<%
'*********************************
'Funktion: Multipage (Zahlen, Täter, Kurpage, url_add)
'Parameter: Zahlen, Gesamtzahl der Datensätze; Täter, Anzahl der Datensätze pro Seite; Kurpage, aktuelle Seite; URL_ADD, andere Parameter der aktuellen Seite wie? Action = List &
'Autor: Alixi
'Datum: 2007/7/15
'Beschreibung: ASP Universal Pagination Style -Funktion
'Beispiel: Multipage (100,10,2, "Action = List &")
'*********************************
Funktionsmultipage (Zahlen, Täter, Kurpage, URL_ADD)
Curpage = int (Kurpage)
Dimurl
Url = request.servervariables ("script_name") & url_add
Multipage = ""
Dimpage, Offset, Pagei
IfInt (number)> int (senkrecht) dann
Seite = 10
Offset = 2
Dimpages, From Page, Topage
IfnumbersModcint (sachende) = 0Then
Seiten = int (Zahlen/Täter)
Anders
Seiten = int (Zahlen/Täter) +1
Endif
FromPage = curpage-offset
Topage = Curpage+Page-Offset-1
IFPAGE> HELTEN
From Page = 1
Topage = Seiten
Anders
IFFRMPAGE <1Then
Topage = Kurpage+1-fremd
From Page = 1
If (Topage-fROMPAGE) <Page und Topage-FROMPAGE) <Pagesthentopage = Seite
Andertopage> Heizung
FromPage = Curpage-Pages+Topage
Topage = Seiten
If (Topage-fROMPAGE) <Page und Topage-FROMPAGE) <PagesthenFrompage = Pages-Page+1
Endif
Endif
Multipage = "<ahref = '" & url & "Seite = 1'> <<</a>"
ForPageI = FromPagetotopage
Ifpagei <> curpagethen
Multipage = Multipage & "<Ahref = '" & url & "page =" & pagei & "'> [" & pagei & "] </a>"
Anders
Multipage = Multipage & "<B> [" & pagei & "] </b>"
Endif
Nächste
IfInt (Seiten)> int (Seite) dann
Multipage = Multipage & "... <aRef = '" & url & "page =" & pages & "'> [" & pages & "] >> </a>"
Anders
Multipage = Multipage & "<Ahref = '" & url & "page =" & pages & "' >>> </a>"
Endif
Endif
Endfunktion%>