Paginação

[natalia 0]

Oi pessoal,Eu peguei essa páginação aqui mesmo no Forum. Ela funciona, mas está mostrando página a mais.Exemplo: as vezes mostra que tem 3 páginas 1, 2, 3. Mas qdo clico na numero 2 a 3 some. Conclusão, só haviam 2 páginas, mas mostrou 3.Deu pra entender?Dim registros, x, pagina, anterior, proxima, ultima, primeira, ultm2, varValorregistros = 6pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End IfstrSel = " SELECT * FROM .... "rsSel.PageSize = registrosIf rsSel.EOF ThenResponse.Write "Nenhum registro encontrado"ElsersSel.AbsolutePage = paginaWhile Not rsSel.EOF AND x < rsSel.PageSizex = x + 1...rsSel.MoveNextWend<%anterior = pagina - 1proxima = pagina + 1ultima = rsSel.PageCountprimeira = 1ultm2 = FormatNumber(rsSel.PageCount - 1,0)If pagina <> 1 Then %> <b><a href="frete_zero.asp?pagina=<%=primeira%>"><< Primeira Página </a> </b><% End IfIf pagina > 1 AND pagina <> 2 Then %> <b><a href="frete_zero.asp?pagina=<%=anterior - 1%>"><%=anterior - 1%> </a></b><% End IfIf pagina > 1 Then %> <b><a href="frete_zero.asp?pagina=<%=anterior%>"><%=anterior%> </a></b><% End If %><b><%=pagina%></b><% If Not rsSel.EOF Then %> <b><a href="frete_zero.asp?pagina=<%=proxima%>"><%=proxima%> </a></b><% End IfIf Not rsSel.EOF AND pagina <> ultima AND pagina <> ultm2 Then %> <b><a href="frete_zero.asp?pagina=<%=proxima + 1%>"><%=proxima + 1%> </a></b><% End IfIf Not rsSel.EOF Then %> <b><a href="frete_zero.asp?pagina=<%=ultima%>">ÚltimaPágina </a>>> </b><% End IfEnd If %>

[Påpî†ø 0]

oi gata,

 

eu uso uma paginação q eh bala e sempre funcionou...

 

 

ASP [/tr][tr]Set resultado=Server.CreateObject("ADODB.Recordset")

Set resultado.ActiveConnection = conexao

 

mypage=Request("whichpage")

mypagesize=Request("pagesize")

If mypage="" then mypage=1

If mypagesize="" then mypagesize=10

 

resultado.cursorlocation=3

resultado.cachesize=5

dim contador

contador=0

 

resultado.open "SELECT * FROM duvidas"

if resultado.eof or resultado.bof then

Response.Write "<center>Nenhum registro encontrado</center>"

else

resultado.movefirst

resultado.pagesize=mypagesize

maxpages=cint(resultado.pagecount)

maxrecs=cint(resultado.pagesize)

resultado.absolutepage=mypage

howmanyrecs=0

Response.Write "<center>Página " & mypage & " de " & maxpages & "</center><br>"

 

DO UNTIL resultado.eof OR howmanyrecs>=maxrecs

 

Response.Write "Registro: "&resultado("campo") &"<br>"

 

resultado.movenext

howmanyrecs=howmanyrecs+1

LOOP

end if

 

Response.Write("<br><br><center>" & chr(13))

resultado.close

set resultado=nothing

 

pad=""

scriptname=Request.ServerVariables("SCRIPT_NAME")

if (mypage mod 10) = 0 then

counterstart = mypage - 9

else

counterstart = mypage - (mypage mod 10) + 1

end if

counterend = counterstart + 9

if counterend > maxpages then counterend = maxpages

if counterstart <> 1 then

 

Response.Write "<a href='" & scriptname & "?whichpage=" & 1 & "&pagesize=" & mypagesize & "'>Primeira</a> : "

Response.Write "<a href='" & scriptname & "?whichpage=" & (counterstart - 1) & "&pagesize=" & mypagesize & "'>Anterior</a> "

end if

Response.Write "["

for counter=counterstart to counterend

If counter>=10 then

pad=""

end if

if cstr(counter) <> mypage then

ref="<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a>"

else

ref="<b>" & pad & counter & "</b>"

end if

Response.Write ref

if counter <> counterend then Response.Write " "

next

Response.Write ]"

if counterend <> maxpages then

Response.Write " <a href='" & scriptname & "?whichpage=" & (counterend + 1) & "&pagesize=" & mypagesize & "'>Próxima</a>"

Response.Write " : <a href='" & scriptname & "?whichpage=" & maxpages & "&pagesize=" & mypagesize & "'>Última</a>"

Response.Write "</center><br>"

end if

[/tr]

 

flws

 

bjss...