Эта статья была полностью протестирована и поддерживает ASP+ACCESS и ASP+SQL. Измените соответствующие части.
Обратите внимание, что я отказываюсь торопливо отвечать на базовые вопросы. Этот код и так очень прост. Если вы все еще его не понимаете, вы можете обратиться к другим рубрикам на этом сайте.
<!--#include file="conn.asp"-->
<% 'Вышеуказанное содержит файлы подключения к базе данных
'----------------------------------------------Запуск запроса к базе данных
set rs=server.CreateObject("adodb.recordset")
rs.open "выбрать * из книг, где порядок по идентификатору desc", conn,1,1
если номер ошибки<>0, то
response.write "Нет данных в базе данных"
конец, если
'--------------------------------------------- Пейджинг начинается
если rs.recordcount=0, то
respose.write "Нет данных"
еще
rs.PageSize =10 'Количество записей на странице
iCount=rs.RecordCount 'Общее количество записей
iPageSize=rs.PageSize
maxpage=rs.PageCount
страница = запрос («страница»)
если Not IsNumeric(page) или page="" тогда
страница=1
еще
страница=цинт(страница)
конец, если
если страница<1, то
страница=1
elseif страница>maxpage тогда
страница = максимальная страница
конец, если
rs.AbsolutePage=Страница
если страница=maxpage, то
x=iCount-(maxpage-1)*iPageSize
еще
x=iPageSize
конец, если
Для i=1 до x
Статьи, которые могут вас заинтересовать:
Текущая страница 1/2