Paginacion De Resultados
|
" Hay la misma diferencia entre un sabio y un ignorante que entre un hombre vivo y un cadáver " - Aristóteles -    |
Computerfacil.com |
 Chat
 Fotos
 Últimos Posts
 Sin Respuesta
 Ayuda
 Búsqueda
 Miembros
 Calendario
|
| Bienvenido, invitado ( Identificarse | Registrarse ) | Reenviar mensaje de validación |
|
|
Forista del Mes: amateos1404 
|
Foros de Informatica -> Sistemas, Software y Hardware -> Lenguajes de Programación -> Programación en ASP   |
Paginacion De Resultados| dejavi |
 Publicado: Aug 29 2007, 04:02 PM
|
 Tera user  Grupo: Moderadores Mensajes: 3.666 Miembro nº: 17.695 Registrado: 18-January 07  |
290807.
Aquí les dejo un código para paginar resultados. Es bastante claro y sencillo. Lo más importante es la utilizacion de .pageSize y .pageCount del objeto recordset La página ASP se debe llamar: paginador.asp. Si quieren usar otro nombre, deberan cambiar al final del script la pagina a la que apuntan los links. <html> <head><title>Paginar resultados de consulta</title></head> <% 'Conexion a tu base de datos StrConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./db/mibase.mdb") 'Consulta SQL sql = "SELECT * FROM usuarios where totalpost > 100" 'Configurar aqui los registros por página num_registros = 20 'actualizamos la pagina actual if (request.queryString("pag") <> "") then pagina_actual = request.queryString("pag") else pagina_actual = 1 end if Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open StrConn Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,oConn,3,1 RS.pageSize = num_registros RS.absolutePage = pagina_actual cantidad_campos = RS.Fields.Count %> <body> <div align="center"> Página actual: <%= pagina_actual %><br> Cantidad de páginas: <%= RS.PageCount %><br> Registros por página: <%= RS.PageSize %><br> Registros totales: <%= RS.RecordCount %> </div> <br> <table cellspacing="2" cellpadding="2" border="1" align="center"> <tr> <% For campo = 0 to cantidad_campos - 1 %> <td align="center"><%=RS(campo).Name%></td> <% Next %> </tr> <% registros_mostrados = 0 While (Not RS.eof And registros_mostrados < num_registros) registros_mostrados = registros_mostrados +1 %> <tr> <%For campo=0 to cantidad_campos - 1 %> <td align="center"><%=RS(campo)%></td> <%Next%> </tr> <% RS.MoveNext Wend %> <tr> <td colspan="<%=cantidad_campos%>" align="center"> <% i=1 Do While i < RS.PageCount %> <a href="paginador.asp?pag=<%=i%>"><%=i%></a> <% i=i+1 Loop %> </td> </tr> </table> <% 'Limpiamos los objetos (SIEMPRE) RS.Close Set RS = Nothing oConn.Close Set oConn = Nothing %> </body></html> El código paginador lo pueden bajar de aca..................... http://soloasp.com.ar/archivos/paginador.zip  --------------------  |
 
|
0 usuario(s) está(n) leyendo esta discusión (0 invitado(s) y 0 usuario(s) anónimo(s))
0 miembro(s):
 |
|
|
|
|
Invision Power Board © 2007 Licensed to: ComputerFacil.com - IPS, Inc.