miren esta paginacion

[lexus]

saludos,

alguien sabe como hacer la paginacion qeu aparece en este sitio?

http://www.decali.net/comunidad/c/

espero me puedan ayudar, desde hace tiempo trato de buscar como hacerla y no lo he logrado..

[Helbira]

Aquí te explica de una manera muy sencilla como paginar los resultados de una página ASP:

Paginando un recordset

Aparte, si utilizas el buscador de estos foros podrás encontrar multitud de preguntas acerca de la paginacion en ASP.

Un beso

[lexus]

GRacias helbira, pero ya he visto ese ejemplo y he buscado por las faqs y no veo la paginacion de esta forma
<< 1 2 3 4 .... 50 >> con los puntos suspensivos no quiero decir que siguen los numeros, la paginacion es tal cual como se ve.. del 1 al 4 y si hay mas de 4 paginas solo pone puntos suspensivos y despues muestra la ultima pagina.. para no colocar todos esos numeros.... sabes como hacerlo o alguien que me de una mano?¿

[meru-kun]

Pues digo yo que eso se puede hacer con un For...

Si tenemos
txtPaginasTotales
For i = 1 To i = 4
response.write i
Next
response.write "..."
response.write txtPaginasTotales

[lexus]

gracias por la respuesta, como hago para sacar las paginas totales?

[meru-kun]

txtPaginasTotales = MyRecordset.PageCount

Para ello tienes que abirr la DB ASI:
' ****** VARIABLES PARA PAGINAR ******
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos
Const adCmdText = &H0001
Const adOpenStatic = 3

TamPagina = 15 ' ** AQUI EL TAMAÑO QUE QUIERA

strSQLR = "SELECT * FROM TABLA ORDER BY ID ASC"
' Defino el tamaño de las páginas
MyRecordset.PageSize = TamPagina
MyRecordset.CacheSize = TamPagina

MyRecordset.Open strSQLR, myMensConn, adopenstatic, adcmdtext

PaginasTotales = MyRecordset.PageCount

[...]

[Helbira]

Sólo tienes que poner un simple condicional. Tendrías que comprobar que el número de páginas es mayor que 4, en ese caso, en el apartado donde imprimes los números escribes del 1 al 4, luego los puntos suspensivos y después el total de páginas.

Según el ejemplo del enlace que te he puesto sería en la siguiente parte del código:

Código PHP:

  Muestro los enlaces
Response.Write("<hr>")
numPag = PaginaActual
while numPag > 1 AND numPag < PaginasTotales AND numPag <= 4 
  Response.Write("<A HREF=rspagina.asp?pagina="& numPag-1 & ">" & numPag-1 & "</A>   ")
  numPag = numPag + 1
wend
 
if numPag > 4 then
  Response.Write("<A HREF=rspagina.asp?pagina=" & numPag+1 & ">...</A>")
  Response.Write("<A HREF=rspagina.asp?pagina=" & PaginasTotales & ">" &  PaginasTotales & "</A>")
end if 
   

Quizás me falte alguna comilla.. lo hice un poco de cabeza sin probarlo.

Suerte

[Helbira]

Aunque estoy pensando que si pulsa sobre los puntos sucesivos no te mostrará los número intermedios... seguirán apareciendo puntos sucesivos..

Olvida mi código... Está fatal..!!

Este sí

Código PHP:

  Muestro los enlaces
numPag = PaginaActual - 4
If PaginaActual >= 1 AND PaginaActual < 4 Then
  For i=1 TO 4
%>
    <a href="rspagina.asp?pagina=1"><%=i%></a>
<%
  Next
%>
  <a href="rspagina.asp?pagina=5">...</a>
  <a href="rspagina.asp?pagina=<%=PaginasTotales%>"><%=PaginasTotales%></a>
<%
Else
%>
  <a href="rspagina.asp?pagina=1">1</a>
  <a href="rspagina.asp?pagina=<%=numPag-1%>">...</a>
<%
  For i=numPag TO PaginaActual
%>
    <a href="rspagina.asp?pagina=<%=i%>"><%=i%></a>
<%
  Next
  If PaginaActual<PaginasTotales-4 Then
%>
  <a href="rspagina.asp?pagina=<%=(PaginaActual+1)%>">...</a>
<%
  End If
  If PaginaActual <> PaginasTotales Then
%>
  <a href="rspagina.asp?pagina=<%=PaginasTotales%>"><%=PaginasTotales%></a>
<%
  End If
End If
%> 
   

Un beso