%
Если rs1.rcordcount ＞ 0, то набор записей не пуст и записи процесса
Rs1.pagesize = 10 'Установите количество записей, отображаемых на страницу
Num = rs1.rcordcount '
Pagenum = rs1.pagecount 'Общее число
Page = запрос (страница) 'Получить исходную информацию о номере страницы
«Начало исходной информации номера страницы обработки!
Если страница <> тогда
Page = cint (page)
Если err.number <> 0, тогда
err.clear
Page = 1
конец, если
Если страница <1, тогда
Page = 1
конец, если
еще
Page = 1
Конец, если
Если Page*rs1.pagesize ＞ Num, а не ((Page-1)*rs1.pagesize <num)
Page = 1
конец, если
«Конец исходной информации номера страницы обработки! Установите текущий номер страницы
Rs1.absolutepage = page
%>
<!-Определите, является ли текущая страница последней страницей, и дубликат отображения записи настройки настройки настроек->
<% Если страница <> pagenum, тогда
lablenum = rs1.pagesize
еще
lablenum = num- (page-1)*rs1.pagesize
конец, если
для i = 1 к Lablenum
%>
<Trbgcolor =#ffffff>
<Td height = 25> <div align = center> <%= (rs1.fields.item (id). Значение)%> </div> </td>
<td> <div align = center> <%= (rs1.fields.item (name). Value)%> </div> </td>
<Td ＞ <liv align = center> <%= (rs1.fields.item (адрес). Значение)%> </div> </td>
<td> <div align = center> <%= (rs1.fields.item (категория). Значение)%> </div> </td>
<td> <div align = center> <%= (rs1.fields.item (наконец -то модифицировано). Значение)%＞ </div> </td>
<td> <div align = center> <%= (rs1.fields.item (модифицированное лицо). Значение)%＞ </div> </td>
</Tr>
%
Rs1.movenext
следующий
%>
<!-Запись текущей страницы окончена, следующий код-это код ссылки на установку записи код ссылки->
<Таблица ширины = 70% граница = 0 align = center cellpadding = 0 cell -spacing = 0>
<Tr>
<TD высота = 35>
<Liv align = справа>
<Font color =#333333>
Есть <%= num%> a Link |
<A href = linkadmin.asp?
<%Если страница ＞ 1, то%＞ <a href = linkadmin.asp?
<%Если Page <Pagenum, то%＞ <a href = linkadmin.asp?
<A href = linkadmin.asp?
Страница: <%= page%＞/<%= pagenum%> страница |
<%= Pagenum%> Page
</Font>
</Div>
</Td>
</Tr>
</Table>
<!-Запишите связанный код кодирования коллекции страниц, набор записей должен выполнить следующий код, когда он пуст->
<%Else%>
<Trbgcolor =#ffffff>
<Td height = 25 colspan = 6> <div align = center ＞ < % response.write (результаты не могут быть отображены!) %>
</Div> </td>
</Tr>
%
конец, если
Rs1.close ()
Установить rs1 = ничего
%>