'************************************************************
'Nombre de la función: showpage
'Función: Mostrar información como la "página anterior de la página anterior"
'Parámetro: Sfilename ---- Dirección de enlace
'TotalNumber --- Número total
'MaxperPage ---- número de cada página
'ShowTotal ---- ¿se muestra el número total?
'ShowallPages, ya sea para mostrar todas las páginas con una lista desplegable para la redirección. Algunas páginas no se pueden usar, de lo contrario ocurrirá un error JS.
'Strunit ---- Unidades de conteo
'Valor de retorno: código HTML para obtener información como la "página anterior de la página anterior"
'************************************************************
functionShowPage (Sfilename, TotalNumber, MaxperPage, showTotal, showallpages, strunit)
dimtotalpage, strtemp, strurl, yo
iftotalNumber = 0ormAxperPage = 0orisNull (maxperPage) entonces
Showpage = ""
extinción
endif
iftotalnumberModmaxperPage = 0then
TotalPage = TotalNumber/MaxperPage
Demás
TotalPage = TotalNumber/MaxperPage+1
endif
ifcurrentPage> totalPagethencurrentPage = TotalPage
strtemp = "<TableLeLign = 'Center'> <tr> <td>"
ifshowtotal = TrueThen
strtemp = strtemp & "共 <b>" & TotalNumber & "</b>" & Strunit & ""
endif
Strurl = JoinChar (sfilename)
IfcurrentPage <2Then
strtemp = strtemp y "página de inicio de la página anterior"
Demás
strtemp = strtemp & "<ahref = '" & strurl & "página = 1'> inicio </a>"
strtemp = strtemp & "<ahref = '" & strurl & "page =" & (currentPage-1) & "'> Página anterior </a>"
endif
ifcurrentPage> = totalpagethen
strtemp = strtemp y "página siguiente última página"