Всем известно, что в Dreamwerver можно легко реализовать постраничное отображение наборов записей, но сгенерированный код действительно очень большой, что влияет на скорость отображения веб-страницы, и не кажется очень понятным. Так может ли быть то же самое. достигается простым способом. А как насчет функции? Конечно, я могу использовать следующий простой код для реализации постраничного отображения набора записей. Теперь я поделюсь им со всеми.
Основные коды следующие:
＜%
If rs1.recordcount>0 then 'Если набор записей не пуст, обработать запись rs1.pagesize = 10 'Установить количество записей, отображаемых на каждой странице num=rs1.recordcount 'Общее количество записей pagenum=rs1.pagecount ' Общее количество страниц page=request("page") 'Получить исходную информацию о номере страницы' Начало обработки исходной информации о номере страницы!
Если страница ＜＞ "" то
страница = цент(страница)
если номер ошибки ＜＞ 0, то
ошибка.очистить
страница=1
конец, если
если страница < 1, то
страница=1
конец, если
еще
страница=1
Конец, если
если страница*rs1.pagesize ＞ число, а не ((page-1)*rs1.pagesize ＜ число), то
страница=1
конец, если
'Конец обработки исходной информации о номере страницы! Установить номер текущей страницы rs1.absolutepage = page
%>
<!--Оцените, является ли текущая страница последней, и установите повторное отображение записей на основе этого решения-->
＜% если страница＜＞номер страницы тогда
lablenum=rs1.pagesize
еще
lablenum=num-(страница-1)*rs1.pagesize
конец, если
для i=1 до labelnum
%>
＜tr bgcolor="#FFFFFF"＞
＜td height="25"＞＜div align="center"＞＜%=(rs1.Fields.Item("id").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("name").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("Адрес").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("Категория").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("Последнее изменение").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("Модификатор").Value)%＞＜/div＞＜/td＞
＜/тр＞
<%
rs1.movenext
следующий
%>
<!--Отображение записи текущей страницы заканчивается, следующий код является кодом ссылки на пейджинг набора записей-->
＜ширина таблицы="70%" border="0" align="center" cellpadding="0" cellpacing="0"＞
＜тр＞
＜td высота="35"＞
<div align="right">
＜цвет шрифта="#333333">
Всего ссылок ＜%=num%＞|
＜a href=linkadmin.asp?page=1＞Домашняя страница＜/a＞ |
＜%if page＞1 then%＞＜a href=linkadmin.asp?page=＜%=page-1%＞＞＜%end if%＞Предыдущая страница＜/a＞ |
＜%if page＜pagenum then%＞＜a href=linkadmin.asp?page=＜%=page+1%＞＞＜%end if%＞Следующая страница＜/a＞ |
＜a href=linkadmin.asp?page=＜%=pagenum%＞＞Последняя страница＜/a＞ |
Страница:＜%=страница%＞/＜%=номерстраницы%＞страница |
Всего ＜%=pagenum%＞страниц＜/шрифт＞
＜/дел＞
＜/тд＞
＜/тр＞
＜/таблица＞
<!--Код ссылки на страничный набор записей заканчивается, и следующий код выполняется, когда набор записей пуст -->
＜%еще%＞
＜tr bgcolor="#FFFFFF"＞
＜td height="25" colspan="6"＞＜div align="center"＞＜% response.Write("Нет результатов для отображения!") %＞
＜/дел＞＜/td＞
＜/тр＞
<%
конец, если
rs1.Закрыть()
Установить rs1 = Ничего
%>
Хорошо, это очень просто! Просто внесите простую модификацию, и вы сможете вставить ее в то место, где запись отображается на вашей веб-странице. Попробуйте прямо сейчас!