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
establecer dbconn = server.createobject ("ADODB.connection")

strconn = ”Proveedor = Microsoft.Jet.OLEDB.4.0; Fuente de datos = ”& Server.MapPath (“ data / utenti.mdb ”)

dbconn.open strconn

Dim objRS

Establecer objRS = Server.CreateObject ("ADODB.Recordset")

RecordsPerPagina = 5 'NÚMERO DE REGISTROS PARA MOSTRAR POR CADA PÁGINA

page = Solicitud ("página")

si página = ”” entonces página = 1

strSQL = "SELECT * FROM sorgenti order by nomesorgente;"

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 han encontrado resultados "

otro

Response.Write (" Nombre Linguaggio Autore ")

Para i = 1 a RecordsPerPagina

si no es objRS.EOF entonces

Response.Write (" "& ObjRS (" nomesorgente ") &" ")

Response.Write (" "& ObjRS (" linguaggio ") &" ")


Response.Write (" "& ObjRS (" apodo ") &" ")

objRS.MoveNext

end if

Página siguiente

Response.Write (" ")

end if

Respuesta.Escribe " Pagine: "


Para pag = 1 a objRS.PageCount

Respuesta.Escriba “ ”

Respuesta.Escribir pag

Respuesta.Escribe ""

Página siguiente

Respuesta.Escribe " "

objRS.Close

Establecer objRS = Nada

DBConn.Close

Establecer DBConn = Nada

%>

Avísame si te funciona.

Añade un comentario de Cómo aplicar la paginación en ASP
¡Comentario enviado con éxito! Lo revisaremos en las próximas horas.