'**********************************************
'Funktionsname: ShowPage
'Funktion: Zeigen Sie Informationen wie "vorherige Seite nächste Seite" anzeigen
'Parameter: sFileName ---- Linkadresse
'TotalNumber --- Gesamtzahl
'MaxperPage ---- Anzahl jeder Seite
'Showtotal ---- wird die Gesamtzahl angezeigt?
'ShowAllpages-ob alle Seiten mit einer Dropdown-Liste zur Umleitung angezeigt werden. Einige Seiten können nicht verwendet werden, andernfalls tritt ein JS -Fehler auf.
'Strunit ---- Zählen von Einheiten
'Rückgabewert: HTML -Code für Informationen wie "vorherige Seite nächste Seite".
'**********************************************
Funktionshowpage (Sfilename, TotalNumber, MaxperPage, Showtotal, ShowAllPages, Strunit)
Dimtotalpage, Strtemp, Sturl, ich
iftotalNumber = 0OrmaxPerPage = 0Orisnull (maxperpage) dann
ShowPage = ""
Ausgangsfunktion
Endif
iftotalNumbermodmaxPerPage = 0Then
TotalPage = TotalNumber/MaxperPage
Anders
TotalPage = TotalNumber/MaxperPage+1
Endif
IFcurrentPage> TotalPagetheCurrentPage = Gesamtpage
STRTEMP = "<TableAlign = 'Center'> <tr> <td>"
ifshowtotal = truethen
STRTemp = Strtemp & "共 <b>" & TotalNumber & "</b>" & Strunit & "" "
Endif
StRURL = joinsChar (sfilename)
IfcurrentPage <2Then
STRTEMP = STRTEMP & "Homepage vorherige Seite"
Anders
strTemp = strtemp & "<aRef = '" & stRURL & "Page = 1'> Home </a>"
Strtemp = Strtemp & "<Ahref = '" & stRURL & "Page =" & (currentPage-1) & "'> vorherige Seite </a>"
Endif
IfcurrentPage> = TotalPagethen
STRTEMP = STRTEMP & "Nächste Seite Letzte Seite"