Cómo aplicar la paginación en ASP
También en ASP es posible aplicar el paginación de registros tanto para evitar altos tiempos de carga y también porque uno página con demasiados registros sería demasiado largo para consultar.
Por paginación entendemos una división de los registros producidos por la misma consulta pero distribuidos en varias páginas, donde en realidad la página es siempre la misma, solo cambian los resultados según la elección del número de página navegado.
Cómo aplicar la paginación en ASP
Veamos en resumen nuestra página Asp:
<% Dim DBConn, strconn
strconn = ”Proveedor = Microsoft.Jet.OLEDB.4.0; Fuente de datos = «& Server.MapPath (» data / users.mdb «)
dbconn.open strconn
Dim objRS
Establecer objRS = Server.CreateObject («ADODB.Recordset»)
RecordsPerPagina = 5 ‘NÚMERO DE REGISTROS PARA MOSTRAR PARA CADA PÁGINA
page = Solicitar («página»)
si página = ”” entonces página = 1
strSQL = «SELECT * FROM sources order by sourcename;»
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = página
Si objRS.Eof = True u objRS.Bof = True entonces
Response.Write « No se encontraron resultados
Demás
Response.Write (“
Nombre | Idioma | Autor |
---|---|---|
» & objRS («nombre de fuente») & « | » & objRS («idioma») & « | » & objRS («apodo») & « |
«)
Terminara si
Respuesta.Escriba « Páginas: «
Para pag = 1 a objRS.PageCount
Response.Write «”
Respuesta Escriba p
Respuesta.Escriba ««
Próximo
Respuesta.Escriba «
«objRS.Close
Establecer objRS = Nada
DBConn.Close
Establecer DBConn = Nada
%>
Avísame si te funciona.