Este artículo ha sido completamente probado y es compatible con ASP+ACCESS y ASP+SQL. Modifique las partes relevantes.
Tenga en cuenta que me niego a responder preguntas básicas rápidamente. Este código ya es muy simple. Si aún no lo comprende, puede consultar otras columnas de este sitio.
<!--#include file="conn.asp"-->
<% 'Lo anterior contiene archivos de conexión a la base de datos
'----------------------------------------------Consulta de inicio de base de datos
establecer rs=server.CreateObject("adodb.recordset")
rs.open "seleccionar * de libros donde ordenar por id desc",conn,1,1
si número de error <> 0 entonces
respuesta.escribir "No hay datos en la base de datos"
terminar si
'-----------------------------------------------------Se inicia la paginación
si rs.recordcount=0 entonces
respose.write "Sin datos"
demás
rs.PageSize =10 'Número de registros por página
iCount=rs.RecordCount 'Número total de registros
iPageSize=rs.PageSize
maxpage=rs.PageCount
página=solicitud("página")
si no es numérico (página) o página = "", entonces
página=1
demás
página=cint(página)
terminar si
si página <1 entonces
página=1
elseif página>maxpage entonces
página = página máxima
terminar si
rs.AbsolutePage=Página
si página = página máxima entonces
x=iCount-(maxpage-1)*iPageSize
demás
x=Tamaño de iPage
terminar si
Para i=1 a x
Artículos que te pueden interesar:
Página actual 1/2