<%
'Seitenprogramm
' total_records Gesamtzahl der Datensätze
' everypage_records zeigt die Anzahl der Datensätze pro Seite an
' current_page aktuelle Seitennummer
' url Die zu übergebende URL, die zu übergebende Variablen enthalten kann, z. B. „list.asp?“ oder „list.asp?keyword=key&“
' Der Programmaufruf ist relativ einfach, aber immer noch problematischer als PHP. Arbeiten Sie weiter hart daran,
sub show_page(total_records,everypage_records,current_page,url)
zu verwenden
total_records=Int(total_records)
anders
total_records=0
Ende wenn
if IsNumeric (everypage_records) dann
everypage_records=Int(everypage_records)
wenn everypage_records<=0 dann
everypage_records=10
Ende wenn
anders
everypage_records=10
Ende wenn
if IsNumeric (current_page), dann
current_page=Int(current_page)
anders
current_page=1
Ende wenn
'Ermitteln Sie die Gesamtzahl der Seiten, also die letzte Seite
wenn total_records mod everypage_records=0 dann
last_page=Int(total_records/everypage_records)
anders
last_page=Int(total_records/everypage_records)+1
Ende wenn
'Bestimmen Sie, ob current_page den Standard erfüllt, und hängen Sie den Wert an page an
wenn current_page>=last_page dann
page=last_page
elseif current_page<=1 dann
Seite=1
anders
Seite=aktuelle_Seite
Ende wenn
'Vorherige Seite
wenn Seite<=0 dann
prepg=0
anders
prepg=Seite-1
Ende wenn
„Nächste Seite
wenn page=last_page dann
nextpg=0
anders
nextpg=Seite+1
Ende wenn
„Beginnen Sie mit der Aufnahme auf dieser Seite.“
firstcount=prepg*everypage_records
'Aufzeichnung dieser Seite beenden
wenn nextpg>=1 dann
lastcount=(nextpg-1)*everypage_records
anders
lastcount=total_records
Ende wenn
'Starten Sie den Navigations-Barcode für das Paginieren
Seitennav=""
pagenav1=""
pagenav=pagenav&"Zeige die <b>"&firstcount&"-"&lastcount&"</b> Datensätze insgesamt <b>"&total_records&"</b> Datensätze"
pagenav1=pagenav1&"Zeige die Datensätze <b>"&firstcount&"-"&lastcount&"</b> insgesamt <b>"&total_records&"</b> Datensätze"
wenn last_page>1 dann
„Wenn es Vorder- und Rückseiten gibt.“
pagenav=pagenav&" <a href='"&url&"page=1'>Startseite</a> "
pagenav1=pagenav1&" <a href='"&url&"page=1'>Startseite</a> "
wenn prepg>=1 dann
pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>Vorherige Seite</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&prepg&"'>Vorherige Seite</a> "
anders
pagenav=pagenav&"vorherige Seite"
pagenav1=pagenav1&"vorherige Seite"
Ende wenn
wenn nextpg>=1 dann
pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>Nächste Seite</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&"'>Nächste Seite</a> "
anders
pagenav=pagenav&"nächste Seite"
pagenav1=pagenav1&"nächste Seite"
Ende wenn
pagenav=pagenav&" <a href='"&url&"page="&last_page&"'>Letzte Seite</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&last_page&"'>Letzte Seite</a> "
pagenav=pagenav&"Gehe zu Seite <input type=text name=text100 id=text100 value="&page&" size=3><input type=button name=button100 value=go onclick='window.location="""&url&" page=""+text100.value'>"
pagenav=pagenav&" total "&last_page&" page"
pagenav1=pagenav1&" to page <input type=text name=text101 id=text101 value="&page&" size=3><input type=button name=button101 value=go onclick= ' window.location="""&url&"page=""+text101.value'>"
pagenav1=pagenav1&" Gesamtzahl der "&last_page&" Seiten"
end if
end sub
%>