'*********************************************************
'Nom de la fonction: showpage
'Fonction: afficher des informations telles que "page suivante de page précédente"
'Paramètre: Adresse de liaison SFileName ----
'TotalNumber --- Nombre total
'MAXPERPAGE ---- Nombre de chaque page
'Showtotal ---- Le nombre total est-il affiché
«ShowallPages - que ce soit pour afficher toutes les pages avec une liste déroulante pour la redirection. Certaines pages ne peuvent pas être utilisées, sinon une erreur JS se produira.
'STrunit ---- Counting Units
'Valeur de retour: code HTML pour des informations telles que "page suivante précédente"
'*********************************************************
FunctionShowPage (SFileName, TotalNumber, MaxperPage, Showtotal, ShowAllPages, Strunit)
dimtotalpage, strTEmp, strurl, i
iftotalNumber = 0ormaxPerpage = 0ORISNULL (MaxPerpage) puis
Showpage = ""
sortie
endire
iftotalNumberModMaxPerpage = 0THEN
TotalPage = TotalNumber / MaxPerpage
Autre
TotalPage = TotalNumber / MaxPerpage + 1
endire
ifcurrentPage> TotalPageTheCurrentPage = TotalPage
strTemp = "<tablealIgn = 'Center'> <tr> <td>"
ifshowtotal = truethen
StrTemp = StrTemp & "共 <b>" & TotalNumber & "</b>" & Strunit & ""
endire
strurl = joinChar (sFileName)
ifcurrentpage <
StrTemp = StrTemp & "Page précédente de la page d'accueil"
Autre
StrTemp = StrTemp & "<Ahref = '" & Strurl & "Page = 1'> Home </a>"
StrTemp = StrTemp & "<Ahref = '" & Strurl & "Page =" & (CurrentPage-1) & "'> Page précédente </a>"
endire
ifcurrentPage> = TotalPageThen
StrTemp = StrTemp & "Page suivante Dernière page"