Paginação

Davidmg · Abril 26, 2005

Olá galera,Tenho um código de paginação que mostra um botão PRÓXIMA e um botão ANTERIOR, mas eu queria que além disso, ele mostrasse abaixo desses botões os links para todas as páginas.Exemplo:BOTÃO ANTERIOR - BOTÃO PRÓXIMA1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10...Entenderam?Aguardo resposta.

Mário Monteiro · Abril 26, 2005

tem um exemplo na area do laboratorio de scripts pra paginação....se não achar entra no topico pendurado duvidas frequentes que tem um link pra esse topico que te faleivocê terá que adaptar um pouco pois mostra anterior proximo e apenas 5 paginas a atual duas pra frente e duas pra trasboa sorte...

Davidmg · Abril 26, 2005

Eu já tenho o código de paginação, pode me ajudar a colocar os números nesse que já tenho? É a primeira vez que estou mexendo com paginação.

O código é o seguinte:

ASP

[*]

[*]<%

[*] Set RS = Server.CreateObject('color: red;'>"adodb.recordset")

[*] RS.PageSize = 30

[*]

[*] Vendedor = Session('color: red;'>"Nome")

[*] SQL = 'color: red;'>"Select * From Pedido Where Leonel = 'L' and Cancelado = 'N' Order By Id DESC;"

[*] RS.Open SQL,MyConn,3,3

[*] 'Set RS = MyConn.Execute(SQL)

[*]

[*] dia = Day(date())

[*] if dia < 10 then dia = 'color: red;'>"0" & dia

[*] mes = Month(date())

[*] if mes < 10 then mes = 'color: red;'>"0" & mes

[*] ano = Year(date())

[*] datatu = dia & 'color: red;'>"/" & mes & "/" & ano

[*] horatu = Time()

[*] Atupag = datatu & 'color: red;'>" " & "ás" & " " & horatu

[*]

[*]IF RS.EOF then

[*] Response.Write 'color: red;'>"nenhum registro encontrado"

[*] Response.End 'paramos o programa

[*]ELSE

[*] 'Definindo em qual pagina o visitante está

[*] IF Request.QueryString('color: red;'>"pagina")="" then

[*] intpagina=1

[*] ELSE

[*] IF cint(Request.QueryString('color: red;'>"pagina"))<1 then

[*] intpagina=1

[*] ELSE

[*] IF cint(Request.QueryString('color: red;'>"pagina"))> RS.PageCount then

[*] intpagina=RS.PageCount

[*] ELSE

[*] intpagina=Request.QueryString('color: red;'>"pagina")

[*] END IF

[*]END IF

[*]

[*] RS.AbsolutePage=intpagina

[*] intrec=0

[*]

[*]%>

[*]<%While intrec < RS.PageSize and not RS.EOF%>

[*] <%

[*]If RS('color: red;'>"Evair") = "L" and RS("Leonel") = "L" then Status = "Liberado" end if

[*]If RS('color: red;'>"Evair") = "L" and RS("Leonel") = "B" then Status = "Bloqueado" end if

[*]If RS('color: red;'>"Evair") = "L" and RS("Leonel") = "A" then Status = "Analizando" end if

[*]If RS('color: red;'>"Evair") = "B" and RS("Leonel") = "B" then Status = "Bloqueado" end if

[*]If RS('color: red;'>"Leonel") = "L" and RS("Evair") = "B" then Status = "Bloqueado" end if

[*]If RS('color: red;'>"Leonel") = "L" and RS("Evair") = "A" then Status = "Analizando" end if

[*]If RS('color: red;'>"Leonel") = "A" and RS("Evair") = "A" then Status = "Analizando" end if

[*]

[*] Prazodias = RS('color: red;'>"Prazodias")

[*] If Prazodias = 'color: red;'>"" then

[*] Prazodias = 'color: red;'>"0"

[*] else

[*] Prazodias = Prazodias

[*] end if

[*]

[*] Prazo = RS('color: red;'>"Prazo")

[*] If Prazo = 'color: red;'>"Em" then

[*] Praz = 'color: red;'>"Á Prazo"

[*] Else

[*] Praz = Prazo

[*] End if

[*]

[*] Basec = RS('color: red;'>"Lcarregamento")

[*] SQLbase = 'color: red;'>"Select * From Bases Where Id = "&Basec&" Order By Id"

[*] Set RSbase = MyConn.Execute(SQLbase)

[*] Nbase = Rsbase('color: red;'>"Bases")

[*]

[*] Id_cli = RS('color: red;'>"Id_cli")

[*]

[*] SQLpedi1 = 'color: red;'>"Select * From Pedido Where Id_cli = '"&Id_cli&"' and Prazo <> 'Antecipado'"

[*] Set RSpedi1 = MyConn.Execute(SQLpedi1)

[*]

[*] SQLcli = 'color: red;'>"Select * From Cliente Where Codigo = '"&Id_cli&"'"

[*] Set RScli = MyConn.Execute(SQLcli)

[*]

[*] If NOT RSpedi1.EOF then

[*] SQLpedi2 = 'color: red;'>"Select Sum(totalpedido) as ToPedi From Pedido Where Id_cli = '"&Id_cli&"' and Prazo <> 'Antecipado'"

[*] Set RSpedi2 = MyConn.Execute(SQLpedi2)

[*]

[*] Limatual = CDBL(Replace(RScli('color: red;'>"Limite_disp"),".",",")) - CDBL(Replace(RSpedi2("ToPedi"),".",","))

[*] else

[*] Limatual = RScli('color: red;'>"Limite_disp")

[*] end if

[*]

[*] If Limatual < 'color: red;'>"0" then

[*] Corlima = 'color: red;'>"#ff0000"

[*] else

[*] Corlima = 'color: red;'>"#0000ff"

[*] end if

[*] %>

[*] <tr>

[*] <td bgcolor='color: red;'>"#E8E8E8" align="center" height="15">

[*] "Verdana" size="1"><%=RS("Id")%></td>

[*] <td bgcolor='color: red;'>"#E8E8E8" align="center">

[*] "Verdana" size="1"><%=RS("Vendedor")%></td>

[*] <td bgcolor='color: red;'>"#E8E8E8" align="center">

[*] "Verdana" size="1"><%=RS("Cliente")%></td>

[*] <td bgcolor='color: red;'>"#E8E8E8" align="center">

[*] "Verdana" size="1"><%=Status%></td>

[*] <td bgcolor='color: red;'>"#E8E8E8" align="center">

[*] "Verdana" size="1">

[*] <a href='color: red;'>"detped_adm.asp?id=<%=RS("id")%>">detalhes</a></td>

[*] </tr>

[*] <%

[*] RS.MoveNext

[*] intrec=intrec+1

[*] IF RS.EOF then

[*] response.write 'color: red;'>" "

[*] END IF

[*] Wend

[*] %>

[*] </table>

[*] </center>

[*] </div>

[*] <tr>

[*] <td colspan='color: red;'>"3" height="10">

[*] </td>

[*] </tr>

[*] <tr>

[*] <td colspan='color: red;'>"3">

[*] "center">

[*] <%IF intpagina > 1 then%>

[*] <a href='color: red;'>"tela_leonel_l.asp?pagina=<%=intpagina-1%>"><img border="0" src="img/bt_anterior.jpg"></a>

[*] <% END IF %>

[*]

[*] <%IF strcomp(intpagina,RS.PageCount) <> 0 then %>

[*] <a href='color: red;'>"tela_leonel_l.asp?pagina=<%=intpagina + 1%>"><img border="0" src="img/bt_proxima.jpg"></a>

[*] <% END IF %>

[*]

Davidmg · Abril 26, 2005

Vou tentar colocar certo, o codigo acima ficou bagunçado.

<%	Set RS = Server.CreateObject("adodb.recordset")    RS.PageSize = 30		Vendedor = Session("Nome")	SQL = "Select * From Pedido Where Leonel = 'L' and Cancelado = 'N' Order By Id DESC;"	RS.Open SQL,MyConn,3,3	'Set RS = MyConn.Execute(SQL) 	 dia = Day(date())    if dia < 10 then  dia = "0" & dia    mes = Month(date())    if mes < 10 then  mes = "0" & mes    ano = Year(date())     datatu = dia & "/" & mes & "/" & ano    horatu = Time()    Atupag = datatu & " " & "ás" & " " & horatu    IF RS.EOF then    Response.Write "nenhum registro encontrado"   Response.End 'paramos o programaELSE   'Definindo em qual pagina o visitante está   IF Request.QueryString("pagina")="" then       intpagina=1    ELSE      IF cint(Request.QueryString("pagina"))<1 then         intpagina=1       ELSE         IF cint(Request.QueryString("pagina"))> RS.PageCount then             intpagina=RS.PageCount          ELSE            intpagina=Request.QueryString("pagina")         END IF      END IF   END IFEND IF	RS.AbsolutePage=intpagina	intrec=0%><%While intrec < RS.PageSize and not RS.EOF%>                  <%If RS("Evair") = "L" and RS("Leonel") = "L" then Status = "<font face='Verdana' size='1' color='#00a400'><b>Liberado</b></font>" end ifIf RS("Evair") = "L" and RS("Leonel") = "B" then Status = "<font face='Verdana' size='1' color='#ff0000'><b>Bloqueado</b></font>" end ifIf RS("Evair") = "L" and RS("Leonel") = "A" then Status = "<font face='Verdana' size='1' color='#0000FF'><b>Analizando</b></font>" end ifIf RS("Evair") = "B" and RS("Leonel") = "B" then Status = "<font face='Verdana' size='1' color='#ff0000'><b>Bloqueado</b></font>" end ifIf RS("Leonel") = "L" and RS("Evair") = "B" then Status = "<font face='Verdana' size='1' color='#ff0000'><b>Bloqueado</b></font>" end ifIf RS("Leonel") = "L" and RS("Evair") = "A" then Status = "<font face='Verdana' size='1' color='#0000FF'><b>Analizando</b></font>" end ifIf RS("Leonel") = "A" and RS("Evair") = "A" then Status = "<font face='Verdana' size='1' color='#0000FF'><b>Analizando</b></font>" end if  Prazodias = RS("Prazodias")  If Prazodias = "" then  Prazodias = "0"  else  Prazodias = Prazodias  end if    Prazo = RS("Prazo")  If Prazo = "Em" then  Praz  = "Á Prazo"  Else  Praz = Prazo  End if    Basec = RS("Lcarregamento")  SQLbase = "Select * From Bases Where Id = "&Basec&" Order By Id"  Set RSbase = MyConn.Execute(SQLbase)  Nbase = Rsbase("Bases")    Id_cli = RS("Id_cli")    SQLpedi1 = "Select * From Pedido Where Id_cli = '"&Id_cli&"' and Prazo <> 'Antecipado'"  Set RSpedi1 = MyConn.Execute(SQLpedi1)  SQLcli = "Select * From Cliente Where Codigo = '"&Id_cli&"'"  Set RScli = MyConn.Execute(SQLcli)  If NOT RSpedi1.EOF then  SQLpedi2 = "Select Sum(totalpedido) as ToPedi From Pedido Where Id_cli = '"&Id_cli&"' and Prazo <> 'Antecipado'"  Set RSpedi2 = MyConn.Execute(SQLpedi2)  Limatual = CDBL(Replace(RScli("Limite_disp"),".",",")) - CDBL(Replace(RSpedi2("ToPedi"),".",","))  else  Limatual = RScli("Limite_disp")  end if    If Limatual < "0" then  Corlima = "#ff0000"  else  Corlima = "#0000ff"  end if %>                  <tr>                    <td bgcolor="#E8E8E8" align="center" height="15">                    <font face="Verdana" size="1"><%=RS("Id")%></font></td>                    <td bgcolor="#E8E8E8" align="center">                    <font face="Verdana" size="1"><%=RS("Vendedor")%></font></td>                    <td bgcolor="#E8E8E8" align="center">                    <font face="Verdana" size="1"><%=RS("Cliente")%></font></td>                    <td bgcolor="#E8E8E8" align="center">                    <font face="Verdana" size="1"><%=Status%></font></td>                    <td bgcolor="#E8E8E8" align="center">                    <font face="Verdana" size="1">                    <a href="detped_adm.asp?id=<%=RS("id")%>">detalhes</a></font></td>                  </tr>                  <%                  RS.MoveNext                  intrec=intrec+1                  IF RS.EOF then          response.write " "       END IF                  Wend                  %>                </table>                </center>              </div>            <tr>              <td colspan="3" height="10">                </td>            </tr>            <tr>              <td colspan="3">                <p align="center">                <%IF intpagina > 1 then%>                <a href="tela_leonel_l.asp?pagina=<%=intpagina-1%>"><img border="0" src="img/bt_anterior.jpg"></a>    <% END IF %>    <%IF strcomp(intpagina,RS.PageCount) <> 0 then %>    <a href="tela_leonel_l.asp?pagina=<%=intpagina + 1%>"><img border="0" src="img/bt_proxima.jpg"></a>     <% END IF %>

Valew

Davidmg · Abril 26, 2005

O código que estou usando é este:

Link: http://www.imasters.com.br/artigo.php?cn=1287&cc=39#

Mário Monteiro · Abril 26, 2005

cara basicamente você terá que montar os links só...verifica a logica e poe no fim de sua pagenão precisa mesmo mexer a paginação...qualquer duvida posta ai

Davidmg · Abril 27, 2005

Marioufpa,Tenho o código que mostra o total de páginas:<% Response.Write Rs.PageCount %>Daí ele mostra 35Mas como faço um loop nesse PageCount pra mostrar todas as páginas com os links: 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 -9....Nunca usei paginação, pode me ajudar?Grato...

Mário Monteiro · Abril 27, 2005

você vai colocar todas as paginas lá em baixo?? e se o bixo crescer e ficar 100, 200, 300???bem pra colocar lá é só por um numero linkado mesmo onde no link você poe o caminho e passar um parametro indicando a pagina...

Davidmg · Abril 27, 2005

você vai colocar todas as paginas lá em baixo?? e se o bixo crescer e ficar 100, 200, 300???

bem pra colocar lá é só por um numero linkado mesmo onde no link você poe o caminho e passar um parametro indicando a pagina...

<{POST_SNAPBACK}>

Colocar o numero com o link e o parametro eu consigo, maseu terei q colocar todos os links manualmente? Não tem como dar um loop nesse numero pra ele ir até o numero de páginas q existir?

David

Mário Monteiro · Abril 27, 2005

claro qeu sim carase você tem o pagecount você faz um FORFOR i = 1 TO rs.pagecountresponse.write(i)NEXTai você poe o link ai tb

Davidmg · Abril 27, 2005

claro qeu sim cara

se você tem o pagecount você faz um FOR

FOR i = 1 TO rs.pagecount

response.write(i)

NEXT

ai você poe o link ai tb

<{POST_SNAPBACK}>

Valew Marioufpa mais uma vez, você é fera.

Olha como ficou:

ASP

[*]

[*]<% For i = 1 to rs.pagecount %>

[*]<a href='tela_leonel_l.asp?pagina=<%=i%>'><%=i%></a>

[*]<% next %>

[*]

Muito Obrigado.

Mário Monteiro · Abril 27, 2005

de nada cara

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Arquivado

Paginação

Recommended Posts

Davidmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Davidmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Davidmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Davidmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Davidmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Davidmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Davidmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante