O primeiro é a criação do conjunto de registros. O código de cópia do código de paginação simples é o seguinte:
<%
definir rs=server.createobject(adodb.recordset)
exce=sql 'instrução de consulta sql
rs.open exce,conn,1,1
%>
Depois, há a configuração das propriedades de paginação
<%
rs.PageSize=3 'Definir número da página
pagecount=rs.PageCount 'Obtém o número total de páginas
page=int(request(page)) 'Recebe o número da página
if page<=0 then page=1 'Juiz
se solicitação(página)= então página=1
rs.AbsolutePage=page 'Defina o número da página desta página
%>
Finalmente, a exibição de paginação no corpo
<%
se rs.bof e rs.eof então
resposta.write(NULL)
outro
para i=1 para rs.PageSize
resposta.write rs(nome)
resposta.write(<hr>)
rs.movnext
próximo
terminar se
%>
<p>
<%se página=1 e não página=contagem de páginas então%>
Início|Página anterior
<a href=log1.asp?page=<%=page+1%>>Próxima página</a>|
<a href=log1.asp?page=<%=pagecount%>>Última página</a>
<%elseif page<>1 e não page=pagcount então%>
<a href=log1.asp?page=1>Página inicial</a>|
<a href=log1.asp?page=<%=page-1%>>Página anterior</a>|
<a href=log1.asp?page=<%=page+1%>>Próxima página</a>|
<a href=log1.asp?page=<%=pagecount%>>Última página</a>
<%elseif página=contagem de páginas então%>
<a href=log1.asp?page=1>Página inicial</a>|
<a href=log1.asp?page=<%=page-1%>>Página anterior</a>|
Próxima página|
Última página
<%fim se%>