La première est la création d'un jeu d'enregistrements. Le code de copie du code de pagination simple est le suivant :
<%
définir rs=server.createobject(adodb.recordset)
exce=sql 'instruction de requête SQL
rs.open exce,conn,1,1
%>
Ensuite il y a le paramétrage des propriétés de pagination
<%
rs.PageSize=3 'Définir le numéro de page
pagecount=rs.PageCount 'Obtenir le nombre total de pages
page=int(request(page)) 'Recevoir le numéro de page
si page<=0 alors page=1 'Juge
si requête(page)= alors page=1
rs.AbsolutePage=page 'Définir le numéro de page de cette page
%>
Enfin, l'affichage de la pagination dans le corps
<%
si rs.bof et rs.eof alors
réponse.write(NULL)
autre
pour i=1 à rs.PageSize
réponse.write rs(nom)
réponse.write(<hr>)
rs.movenext
suivant
finir si
%>
<p>
<%if page=1 et non page=pagecount then%>
Accueil|Page précédente
<a href=log1.asp?page=<%=page+1%>>Page suivante</a>|
<a href=log1.asp?page=<%=pagecount%>>Dernière page</a>
<%elseif page<>1 et non page=pagcount then%>
<a href=log1.asp?page=1>Page d'accueil</a>|
<a href=log1.asp?page=<%=page-1%>>Page précédente</a>|
<a href=log1.asp?page=<%=page+1%>>Page suivante</a>|
<a href=log1.asp?page=<%=pagecount%>>Dernière page</a>
<%elseif page=pagecount then%>
<a href=log1.asp?page=1>Page d'accueil</a>|
<a href=log1.asp?page=<%=page-1%>>Page précédente</a>|
Page suivante|
Dernière page
<%end if%>