CULTURA

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

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 (“

«)

Para i = 1 a RecordsPerPagina

si no es objRS.EOF entonces

Response.Write («

«)

Response.Write («

«)

Response.Write («

«)

objRS.MoveNext

terminara si

Próximo

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.

Publicaciones relacionadas

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Botón volver arriba
Cerrar