<%
'*******************************
'Fonction: Multipage (nombres, perpage, courpage, URL_ADD)
«Paramètres: nombres, nombre total d'enregistrements; Perfaut, nombre d'enregistrements par page; Curpage, page actuelle; Url_add, autres paramètres de la page actuelle tels que? Action = liste &
'Auteur: Alixi
'Date: 2007/7/15
'Description: ASP Universal Pagination Style Fonction
'Exemple: multipage (100,10,2, "? Action = list &")
'*******************************
FunctionMultipage (nombres, perpage, curpage, URL_ADD)
Curpage = int (curpage)
Dimurl
Url = request.servervariables ("script_name") & url_add
Multipage = ""
DimPage, Offset, Pagei
Ifint (nombres)> int (perpage) puis
Page = 10
Offset = 2
DimPages, FromPage, Topage
Ifnumbersmodcint (perpage) = 0Then
Pages = int (nombres / perpage)
Autre
Pages = int (nombres / perpage) +1
Endire
FromPage = CurPage-Offset
Topage = curpage + page-offset-1
Ifpage> Pagesthen
FromPage = 1
Topage = pages
Autre
Iffropage <1then
Topage = Curpage + 1-FROMPAGE
FromPage = 1
If (topage-fompage) <Pageand (topage-fompage) <pagesthentoPage = page
ElseIftopage> Pagesthen
FromPage = Curpage-Pages + Topage
Topage = pages
If (topage-fompage) <pageand (topage-fompage) <pagesthenfropage = pages-pages + 1
Endire
Endire
Multipage = "<ahref = '" & url & "page = 1'> <<< / a>"
Forpagei = frompagetotopage
Ifpagei <> curpagethen
Multipage = multipage & "<ahref = '" & url & "page =" & pagei & "'> [" & pagei & "] </a>"
Autre
Multipage = multipage & "<b> [" & pagei & "] </b>"
Endire
Suivant
Ifint (pages)> int (page) puis
Multipage = multipage & "... <ahref = '" & url & "page =" & pages & "'> [" & pages & "] >> </a>"
Autre
Multipage = multipage & "<ahref = '" & url & "page =" & pages & "' >>> </a>"
Endire
Endire
EndFunction%>