2. ASP: Советы разработчику
- Постраничный вывод (разбиение на страницы) большого набора записей
3. Новости Relib.com
- C++: Темы обсуждения
- Delphi: Темы обсуждения
- VB: Темы обсуждения
- ASP: Темы обсуждения
- Java: Темы обсуждения
- БД: Темы обсуждения
Российская телекоммуникационная отрасль живет богато. Свидетельством того, что рынок телекоммуникаций переживает бум, стала открывшаяся вчера в "Экспоцентре" на Красной Пресне 13-я по счету выставка "Связь-Экспокомм".
Последние достижения в области мобильной связи, IP-телефонии и Интернета -- бурное развитие этих направлений наблюдалось подряд три послекризисных года -- теперь можно увидеть воочию. Мероприятие года в телекоммуникационной отрасли -- крупнейшая в СНГ тематическая выставка "Связь-Экспокомм" -- выглядит богато. В отличие от прошедшей в конце апреля компьютерной выставки "Комтек", организаторам "Связь-Экспокомма" удалось практически полностью продать выставочные площади. Экспонентов от "телекома" собралось почти втрое больше, чем две недели назад компьютерщиков -- более 700 компаний из 33 стран. При этом выставку заметили практически все крупные компании: Avaya, Alcatel, Lucent, LG и другие. Рост количества участников выставки отметил и министр РФ по связи и информатизации Леонид Рейман, открывший выставку. "Стенды заметно подросли. Выставка напоминает 'Комтек' уровня 1997 года",-- считает начальник отдела рекламы и маркетинга компании Sterling Group Людмила Зайцева.
Постраничный вывод (разбиение на страницы) большого набора записей
Пример разбития на страницы по 10 записей большого набора записей при помощи использования свойств PageSize и AbsolutePage.
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Dim Con
Dim rsPage
Dim Page
Dim RowCount
Dim PageCounter
'Текущая страница
Page = Request.QueryString("Page")
'Если нет значения, то установим 1-ю стр.
If Page = "" then Page = 1
RowCount = 0
set con = server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
lsSQL = "SELECT Title from Products"
Con.Open "MY-CONNECTION-STRING"
'Установим cursor type в adOpenStatic
rsPage.CursorType = 3 'adOpenStatic
'Кол-во записей на странице будет 10
rsPage.PageSize = 10
'Открываем recordset
rsPage.Open lsSQL, Con
'Устанавливаем текущую страницу
rsPage.AbsolutePage = cInt(Page)
If Response.IsClientConnected = true then
Response.Write "<TABLE>"
Do while not rsPage.eof and RowCount < rsPage.PageSize
Response.Write "<tr><td>" & rsPage("Title") & "</td></tr>"
rsPage.Movenext
RowCount = RowCount + 1
Loop
Response.Write "</TABLE><p>"
'Делаем ссылки на другие страницы
For PageCounter = 1 to rsPage.PageCount
Response.Write "<a href='products.asp?Page=" & PageCounter & "'>" & _
PageCounter & "</a> "
Next
rsPage.Close
set rsPage = Nothing
End if
%>
</body>
</html>