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
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.
