Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не работает цикл обработки БД Access + ASP / 13 сообщений из 13, страница 1 из 1
06.02.2014, 16:42
    #38552167
Maximusb
Maximusb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
Добрый день!

На сайте используется ASP + VB + ACCESS. Дорабатываю скрипт новостей. Нужно вывести все новости дивами для дальнейшей обработки каруселью.

Использую такой код.

1) В шапке:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
<%
Dim sSQL, id
Const PageSizes = 5 'кол-во комментариев на странице
Dim Page, nPages, i, i2, navbar
 
id = CLng(Request.QueryString("id").Item)
 
id = CStr(id)
 
if dbType = "SQLServer" then
    sSQL = "SELECT news_id, convert(varchar(10), issuedate, 105) As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id 
else
    sSQL = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id
end if
 
rs.CursorLocation = 3
rs.Open sSQL, cn, 1
%>



2) В главной части:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
<%
if rs.RecordCount <> 0 then
%>
 
        <%
    i2 = 0
    Do While (Not rs.EOF)
    i2 = i2 + 1
%>
  <div class="carousel-item"> <a href="news_detail.asp?id=<%=rs.fields("news_id")%>"> <img src="images/projects/sestroreck_b.jpg" width="160" height="120" alt=""> <span class="title"><%=rs.fields("subject")%></span> </a> </div>
  <%
    rs.MoveNext
    Loop
%>
  <% end if%>
<%
cn.Close
Set rs = Nothing
Set cn = Nothing
%>



В итоге выводится только один DIV вида:

Код: html
1.
<div class="carousel-item"> <a href="news_detail.asp?id=62"> <img src="images/projects/sestroreck_b.jpg" width="160" height="120" alt=""> <span class="title">Новость 1</span> </a> </div>



А в базе 20 новостей.

В VB разбираюсь совсем плохо, сижу уже 2,5 дня. Помогите, пожалуйста. Буду очень благодарен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2014, 16:44
    #38552169
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
так вы запрос делаете с фильтрацией по одному ID
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2014, 17:06
    #38552189
Maximusb
Maximusb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
Konst_One,

у меня на другой странице работает ок похожий кусок. А здесь нет.

Подскажите, пожалуйста, где подправить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2014, 16:18
    #38555922
Maximusb
Maximusb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
Добрый день!

Поменял шапку на:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
<%
Dim sSQL, sSQL2, id
Const PageSizes = 5 'кол-во комментариев на странице
Dim Page, nPages, i, i2, navbar

id = CLng(Request.QueryString("id").Item)

id = CStr(id)
sSQL2 = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, importance, announce FROM news WHERE publication = 1 ORDER BY issuedate DESC, news_id DESC"
if dbType = "SQLServer" then
	sSQL = "SELECT news_id, convert(varchar(10), issuedate, 105) As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id 
else
	sSQL = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id
end if

rs.CursorLocation = 3
rs.Open sSQL, cn, 1
%>



Ничего, к сожалению, не поменялось. Помогите, пожалуйста, работа встала (
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2014, 16:26
    #38555942
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
Код: sql
1.
... news_id = " & id



вот это вот убирайте
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2014, 16:36
    #38555962
Maximusb
Maximusb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
Konst_One,

У меня на этой странице выводится определенная новость методом:

Код: vbnet
1.
2.
3.
4.
<div class="news-article">
  <div class="news-date"><%=rs.fields("fissuedate")%></div>
  <p><%=rs.fields("content")%></p>
</div>



+ далее должны выводиться анонсы всех новостей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2014, 16:37
    #38555967
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
ну так разделите одну новость и список на разные запросы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2014, 16:51
    #38556006
Maximusb
Maximusb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
Konst_One,

У меня сейчас шапка выглядит так:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
<%
Dim sSQL, sSQL2, id
Const PageSizes = 5 'кол-во комментариев на странице
Dim Page, nPages, i, i2, navbar

id = CLng(Request.QueryString("id").Item)

id = CStr(id)
sSQL2 = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, importance, announce FROM news WHERE publication = 1 ORDER BY issuedate DESC, news_id DESC"
if dbType = "SQLServer" then
	sSQL = "SELECT news_id, convert(varchar(10), issuedate, 105) As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id 
else
	sSQL = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id
end if



rs.CursorLocation = 3
rs.Open sSQL, cn, 1
%>



А затем в теле так:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
<%
if rs.RecordCount <> 0 then
%>

<div class="news-article">
  <div class="news-date"><%=rs.fields("fissuedate")%></div>
  <p><%=rs.fields("content")%></p>
</div>

        <%
	i2 = 0
	Do While (Not rs.EOF)
	i2 = i2 + 1


%>
  <div class="carousel-item"> <a href="news_detail.asp?id=<%=rs.fields("news_id")%>"> <img src="images/projects/sestroreck_b.jpg" width="160" height="120" alt=""> <span class="title"><%=rs.fields("subject")%></span> </a> </div>
  <%
	rs.MoveNext
  	Loop
%>
  <% end if%>



В итоге выводится одна новость полностью + 1 div (а должно быть много div со всеми новостями).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2014, 16:56
    #38556010
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
см , я ответил выше, что нужно делать. код переписывать за вас я не буду =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2014, 17:02
    #38556024
Maximusb
Maximusb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
Konst_One,

Я понимаю, что нужно сделать, но вот технически не получается.

Добавил
Код: vbnet
1.
2.
Dim sSQL2
sSQL2 = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, importance, announce FROM news WHERE publication = 1 ORDER BY issuedate DESC, news_id DESC"



Не знаю как делается этот момент:

Код: vbnet
1.
2.
rs.Open sSQL, cn, 1
rs2.Open sSQL2, cn, 1



Добавлять rs2 это правильно или нет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2014, 17:05
    #38556027
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
Код: vbnet
1.
2.
3.
4.
5.
Dim rs2

Set rs2 = Server.CreateObject("ADODB.Recordset")

rs2.Open ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2014, 17:16
    #38556052
Maximusb
Maximusb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
Konst_One,

Всё работает, Константин ) Хотел добавить Set cn2 = Server.CreateObject("ADODB.Connection"). Понял, что можно не добавлять. Все работает отлично.

Спасибо Вам огромное за помощь! Здоровья Вам и благополучия. Пусть Ваша помощь возвращается к Вам добрыми и хорошими событиями каждый день. Я от всей души благодарен Вам. Кстати, у Вас очень красивые фотографии из путешествий, желаю, чтобы их было еще больше.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2014, 17:18
    #38556056
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает цикл обработки БД Access + ASP
 
не за что, могли бы сами тоже самое сделать. тут тем аналогичных на форуме много. за пожелание спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не работает цикл обработки БД Access + ASP / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 595ms
Закрыть
start [/forum/search_topic.php?author=%D0%9F%D0%BE%D1%81%D0%BE%D0%B2%D0%B5%D1%82%D1%83%D1%8E&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 9ms
get forum list:
 11ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 443ms
total:  595ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]