El primero es la creación del conjunto de registros. El código de copia de paginación simple es el siguiente:
<%
establecer rs=servidor.createobject(adodb.recordset)
exce=sql 'declaración de consulta SQL
rs.open exce,conn,1,1
%>
Luego está la configuración de las propiedades de paginación.
<%
rs.PageSize=3 'Establecer número de página
pagecount=rs.PageCount 'Obtiene el número total de páginas
page=int(solicitud(página)) 'Recibir número de página
si página<=0 entonces página=1 'Juez
si solicitud (página) = entonces página = 1
rs.AbsolutePage=page 'Establece el número de página de esta página
%>
Finalmente, la visualización de paginación en el cuerpo.
<%
si rs.bof y rs.eof entonces
respuesta.escribir (NULL)
demás
para i=1 a rs.PageSize
respuesta.escribir rs(nombre)
respuesta.escribir(<hora>)
rs.movenext
próximo
terminar si
%>
<p>
<%si página=1 y no página=recuento de páginas entonces%>
Inicio|Página anterior
<a href=log1.asp?page=<%=page+1%>>Página siguiente</a>|
<a href=log1.asp?page=<%=pagecount%>>Última página</a>
<%elseif página<>1 y no página=pagcount entonces%>
<a href=log1.asp?page=1>Página de inicio</a>|
<a href=log1.asp?page=<%=page-1%>>Página anterior</a>|
<a href=log1.asp?page=<%=page+1%>>Página siguiente</a>|
<a href=log1.asp?page=<%=pagecount%>>Última página</a>
<%elseif página=recuento de páginas entonces%>
<a href=log1.asp?page=1>Página de inicio</a>|
<a href=log1.asp?page=<%=page-1%>>Página anterior</a>|
Página siguiente|
Última página
<%finalizar si%>