FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Hola TaiTA, mira ya estuve mirando ese codigo, pero yo busco algo como el paginado de esta pagina "Club Delphi" por ejemplo, q muestra 1 al 5 ponele y si presionas la flechita aparecen mas paginas, algo asi busco, o sea quiero limitar el paginado y con un link siga mostrando mas paginas y asi sucesivamente hasta las ultimas paginas.Pancho, muchas gracias
|
#2
|
||||
|
||||
OK:
En ese caso deberías usar algo asi: Código:
<html> <head> <title>Repaginador de resultados</title> </head> <% sSQL="select lo que tu quieras" 'esta sentencia SQL puede ser creada a partir de un buscador como el que hemos visto en otro reportaje 'y almacenada en una session para emplearla sucesivas veces en el script: session("ssql")=ssql 'actualizamos numero de pagina If Request.QueryString("pag")<>"" Then Session("pagina")=Request.QueryString("pag") Else Session("pagina")=1 End If 'constantes ADO VBScript Const adCmdText = &H0001 Const adOpenStatic = 3 Set Conn = Server.CreateObject("ADODB.Connection") Set Command = Server.CreateObject("ADODB.Command") Set RS =Server.CreateObject("ADODB.RecordSet") Conn.Open "nombre de tu base de datos" RS.Open sSQL,Conn,adopenstatic,adcmdtext 'resultados por pagina a elegir arbitrariamente num_registros = 5 'Dimensionamos las paginas y determinamos la pagina actual RS.PageSize=num_registros RS.AbsolutePage=Session("pagina") %> <body> <div align="center"> Número de página actual: <b><%=Session("pagina")%></b> <br> Número de páginas total: <b><%=RS.PageCount%></b> <br> Número de registros por página: <b><%=RS.PageSize%></b> <br> Número de registros seleccionados: <b><%=RS.RecordCount%></b> </div> <br><br> <table cellspacing="2" cellpadding="2" border="1" align="center"> <% 'Contamos el numero de campos num_campos=RS.Fields.Count For campo=0 to num_campos-1%> <td align="center"><%=RS(campo).Name%></td> <% Next registros_mostrados = 0 While (Not RS.eof And registros_mostrados < num_registros) registros_mostrados = registros_mostrados +1 %> <tr> <%For campo=0 to num_campos-1 %> <td align="center"><%=RS(campo)%></td> <%Next%> </tr> <% RS.MoveNext Wend %> <tr> <td colspan="<%=num_campos%>" align="center"> <% i=0 While i<RS.PageCount i=i+1 %> <b><a href="paginar.asp?pag=<%=i%>"><%=i%></a></b> <% Wend %> </td> </tr> </table> <% RS.Close Conn.Close %> </body> </html> algo asi ... supongo. Yo en mi página estoy por crear un código completo para realizar la paginación. Será algo parecido al que te acabo de mostrar (que, todo hay que decirlo, no es mio). Intenta modificar éste y si ves que no eres capaz avísame, así te echo una mano. Saludos!. PD: Deseo dejar claro que el autor de este código es Rubén Alvarez
__________________
No sabiendo que era imposible... él fue... y lo hizo!!! En fase de construcción: LoBusco.com más .com que nunca! Última edición por taita fecha: 14-10-2004 a las 21:11:55. |
|
|
|