Первый — создание набора записей. Простой код копирования кода подкачки выглядит следующим образом:
<%
установите rs=server.createobject(adodb.recordset)
exce=sql 'оператор запроса sql
rs.open exce,conn,1,1
%>
Далее идет настройка свойств подкачки
<%
rs.PageSize=3 'Установить номер страницы
pagecount=rs.PageCount 'Получить общее количество страниц
page=int(request(page)) 'Получить номер страницы
if page<=0 then page=1 'Судья
если запрос(страница)=, то страница=1
rs.AbsolutePage=page 'Установите номер этой страницы
%>
Наконец, отображение страниц в теле
<%
если rs.bof и rs.eof, то
ответ.запись(NULL)
еще
для i=1 до rs.PageSize
response.write rs(имя)
ответ.write(<час>)
rs.movenext
следующий
конец, если
%>
<р>
<%if page=1, а не page=pagecount, тогда%>
Главная|Предыдущая страница
<a href=log1.asp?page=<%=page+1%>>Следующая страница</a>|
<a href=log1.asp?page=<%=pagecount%>>Последняя страница</a>
<%elseif page<>1, а не page=pagcount then%>
<a href=log1.asp?page=1>Домашняя страница</a>|
<a href=log1.asp?page=<%=page-1%>>Предыдущая страница</a>|
<a href=log1.asp?page=<%=page+1%>>Следующая страница</a>|
<a href=log1.asp?page=<%=pagecount%>>Последняя страница</a>
<%elseif page=число страниц, затем%>
<a href=log1.asp?page=1>Домашняя страница</a>|
<a href=log1.asp?page=<%=page-1%>>Предыдущая страница</a>|
Следующая страница|
Последняя страница
<%конец, если%>