'*******************************************************
'Имя функции: ShowPage
'Function: отображать информацию, такую как «Предыдущая страница следующая страница»
'Параметр: sfilename ---- Адрес ссылки
'TotalNumber --- Общее количество
'Maxperpage ---- Номер каждой страницы
'Showtotal ---- Отображается ли общее число
'ShowallPages-Будь то отображать все страницы с раскрывающимся списком для перенаправления. Некоторые страницы не могут быть использованы, в противном случае произойдет ошибка JS.
'Strunit ---- Подсчет единиц
'Return Value: HTML -код для получения информации, такой как «Предыдущая страница следующая страница»
'*******************************************************
FunctionShowpage (SfilEname, TotalNumber, MaxPerpage, ShowTotal, ShowallPages, Strunit)
DimTotalPage, Strtemp, Strurl, i
iftotalnumber = 0ormaxperpage = 0orisnull (maxperpage) then
ShowPage = ""
Выходная функция
эндиф
iftotalnumbermodmaxperpage = 0then
TotalPage = TotalNumber/MaxPerpage
Еще
TotalPage = TotalNumber/MaxPerpage+1
эндиф
ifcurrentPage> TotalPagethEncurrentPage = TotalPage
strtemp = "<tablealign = 'center'> <tr> <td>"
ifshowtotal = truethen
strtemp = strtemp & "共 <b>" & totalnumber & "</b>" & strunit & ""
эндиф
strurl = joinchar (sfilename)
ifcurrentPage <2Then
strtemp = strtemp & "Домашняя страница предыдущая страница"
Еще
strtemp = strtemp & "<ahref = '" & strurl & "page = 1'> home </a>"
strtemp = strtemp & "<ahref = '" & strurl & "page =" & (currentpage-1) & "> предыдущая страница </a>"
эндиф
ifcurrentPage> = TotalPagethethen
strtemp = strtemp & "Следующая страница последняя страница"