<!-#include file = "conn.asp"->
<%
"Следующая часть заключается в том, чтобы проверить, является ли представленная страница законным параметром
"Эта часть лучше всего определить, является ли представленный параметр значением символом
Dim Page
Page = trim (request ("page")
Если page = "" Тогда
Page = 1
Elseif cint (page) <= 0 тогда
Page = 1
еще
Page = cint (page)
Конец, если
"Запрос, выньте запись, которую хотите отобразить
Dim RS, SQL, STR
Установить rs = server.createObject ("adodb.oldset")
SQL = "SELECT * из A1"
Rs.oopen SQL, Conn, 1,3
Если не rs.eof, то
str = rs ("a1")
Конец, если
Rs.close
Установить RS = ничего
"Поместите записанные записи в массив
Dim Strtmp
strtmp = split ((str), "<br>"))
"Удалите запись, которая будет отображаться, и одновременно получить количество страниц
Dim N, TMP, I, J, TT
n = 500
i = 0
j = 0
Делать, пока я <= uborder (strtmp)
Tmp = strtmp (i)
Tt = true
Делать, пока тт
Если i> = ubound (strtmp), тогда
Tt = false
J = J 1
Elseif len (tmp)> = n
Tt = false
J = J 1
Elseif len (tmp) len (strtmp (i 1))> = n тогда
Tt = false
J = J 1
Еще
Tmp = tmp "<br>" strtmp (i 1)
i = 1 1
Конец, если
Петля
Если page = j, то str = tmp "<br>"
i = 1 1
Петля
"Определите, пересекают ли параметры передачи по границе, если вы пересекаете границу, вы получите содержание последней страницы
Если страница> j тогда
str = tmp
конец, если
"Покажите контент пьеса
«Обратите внимание на параметры прохождения, здесь проходит только страница. Если есть и другие параметры, которые должны быть переданы вместе, в противном случае она не будет отображаться после пейджинга.
response.write "paging->" "" "
Для n = 1 до j
Если n = страница, тогда
response.write "& nbsp;"
еще
response.write "[<a href = index.asp? Page =" & n & ">" & n & "</a>]
конец, если
Следующий
response.write "<br> <br>" "
"Покажите эту часть этой части контента, которая будет отображаться
response.write str
%>