Die erste besteht darin, ein Recordset zu erstellen. Der einfache Kopiercode für den Paging-Code lautet wie folgt:
<%
set rs=server.createobject(adodb.recordset)
exce=sql 'SQL-Abfrageanweisung
rs.open exce,conn,1,1
%>
Dann gibt es noch die Einstellung der Paging-Eigenschaften
<%
rs.PageSize=3 'Seitenzahl festlegen
pagecount=rs.PageCount 'Ermitteln Sie die Gesamtseitenzahl
page=int(request(page)) 'Seitennummer erhalten
if page<=0 then page=1 'Richter
wenn request(page)= dann page=1
rs.AbsolutePage=page 'Legen Sie die Seitenzahl dieser Seite fest
%>
Schließlich erfolgt die Paging-Anzeige im Hauptteil
<%
wenn rs.bof und rs.eof dann
Antwort.write(NULL)
anders
für i=1 bis rs.PageSize
Antwort.write rs(name)
Response.write(<hr>)
rs.movenext
nächste
Ende wenn
%>
<p>
<%if page=1 and not page=pagecount then%>
Startseite|Vorherige Seite
<a href=log1.asp?page=<%=page+1%>>Nächste Seite</a>|
<a href=log1.asp?page=<%=pagecount%>>Letzte Seite</a>
<%elseif page<>1 und nicht page=pagcount then%>
<a href=log1.asp?page=1>Startseite</a>|
<a href=log1.asp?page=<%=page-1%>>Vorherige Seite</a>|
<a href=log1.asp?page=<%=page+1%>>Nächste Seite</a>|
<a href=log1.asp?page=<%=pagecount%>>Letzte Seite</a>
<%elseif page=pagecount then%>
<a href=log1.asp?page=1>Startseite</a>|
<a href=log1.asp?page=<%=page-1%>>Vorherige Seite</a>|
Nächste Seite|
Letzte Seite
<%end if%>