Вот подробное руководство по функциям страниц, обычно используемых ASP. Метод очень прост. Заинтересованные друзья, давайте узнаем об этом с редактором!
Кода -копия выглядит следующим образом:
Rs.opensql, Conn, 1,1
ifrs.eofandrs.bofthen
response.write "
"
еще
TotalPut = Rs.RecordCount
MapperPage = 18
ifcurrentpage
CurrentPage = 1
эндиф
if (currentPage-1)*maxPerpage> TotalPutThen
if (totalputmodmaxperpage) = 0then
CurrentPage = TotalPut/MaxPerpage
еще
CurrentPage = TotalPut/MaxPerpage+1
эндиф
эндиф
ifcurrentpage = 1then
ShowPage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
ShowContent ()
ShowPageTotalput, MaxPerpage, "Infotype.asp? id =" & request ("id")
еще
if (currentPage-1)*maxperpage
Rs.Move (CurrentPage-1)*MaxPerpage
DimBookmark
Закладка = Rs.bookmark
ShowPage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
Showcontent
ShowPageTotalput, MaxPerpage, "Infotype.asp? id =" & request ("id")
еще
CurrentPage = 1
ShowPage1totalput, maxperpage, "infotype.asp? id =" & request ("id")
Showcontent
ShowPageTotalput, MaxPerpage, "Infotype.asp? id =" & request ("id")
эндиф
эндиф
эндиф
%>
subshowcontent ()
%>
ИДЕНТИФИКАТОР
выбирать
Название информации
Обновление даты
Нажимать
Добавить людей
редактировать
удалить
Генерировать [Zero]
i = 1
Dowhilenotrs.eof
%>
">
"target =" _ Blank "> []
strcounts = truelen (theTitle1)
response.writethetTle1
%>
datetime = rs ("dateTime")
yname = год (dateTime)
mname = месяц (dateTime)
iflen (mname)
dname = месяц (dateTime)
iflen (dname)
foldername = yname & mname
%>
/.htm"title="view Сгенерированная статическая страница "target =" _ Blank ">
"> Модифицировать
) "> Удалить
) "> Generate (',' ',' width = 0, height = 0 ')">)
i = i+1
ifi> maxperpagetheneexitdo
Rs.movenext
петля
%>
ИДЕНТИФИКАТОР
выбирать
Название информации
Обновление даты
Нажимать
Добавить людей
редактировать
удалить
генерировать
заканчивая
%>
FunctionShowpage (TotalNumber, MaxPerpage, имя файла)
%>
пример
iftotalnumbermodmaxperpage = 0then
n = totalnumber/maxperpage
еще
n = totalnumber/maxperpage+1
эндиф
%>
Всего есть предметы,
Текущая страница/
[Главная] [Предыдущая страница]
"> [Home] & page ="> [предыдущая страница]
[Следующая страница] [Последняя страница] & page = "> [Следующая страница] & page ="> [Последняя страница]
Перейти к:
onchange = "location.href = this.options [this.selectedIndex] .value">
ifcurrentpage = jthen
%> & page = "Выбрано>
еще
%>
& page = ">
эндиф
следующий
%>
конечная функция
%>
FunctionShowPage1 (TotalNumber, MaxPerpage, имя файла)
%>
димб
iftotalnumbermodmaxperpage = 0then
b = totalnumber/maxperpage
еще
b = totalnumber/maxperpage+1
эндиф
%>
Всего есть предметы,
Текущая страница/
dxystart = currentPage-5
ifdxystart
dxyend = currentpage+5
ifdxyend> bthendxyend = b
fordxy = dxystarttodxyend
ifdxy = currentpagethen
response.write "[" & "" & dxy & "" & "]" & "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "Му "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" = Red>
еще
response.write "[" & dxy & "" & "]" & "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "Му "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""
эндиф
следующий
%>
конечная функция
%>
Rs.close
setrs = ничего
Conn.close
setConn = ничего
%>
Выше приведено подробное руководство по функциям ASP Pagination. Я считаю, что вы узнали об этом. Для получения более связанного контента, пожалуйста, продолжайте обращать внимание на канал технологии Wonew.