Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Jow Xavier

[Resolvido] Paginação

Por , em ASP Clássico

Recommended Posts

Jow Xavier    0

Jow Xavier
Postado

Boa tarde galera peguei aki no forúm um script de paginação pois gostaria q exibisse apenas 4 registros em cada tela, ou seja assim: Nome | Endereço | Cep | Email ... Segue abaixo o script :

<!--#include file="admin/config/conexao.asp"-->

<% call abre_conectar 
  cnn.CursorLocation = 3
  Set tab = Server.CreateObject("Adodb.RecordSet")
  tab.Pagesize = 4
  sql = "SELECT * FROM produtos "
  set tab = cnn.execute(sql) 

  If tab.Eof Then
  Response.Write("")
  Else
  PaginaAtual = CInt(Request.Querystring("Pages"))

  If PaginaAtual = 0 Then
  PaginaAtual = 1 
  End If

  tab.AbsolutePage = PaginaAtual
  Num = tab.PageCount
  
  While Not tab.Eof And tab.AbsolutePage = PaginaAtual
  %>
<tr>
  <td height="22" bgcolor="#F7F7F7" class="classFonte01"> <img src="admin/<%=tab("foto")%>"> </td>
  
</tr>
  <%
  tab.MoveNext : Wend
  Anterior = PaginaAtual - 1
  Proximo = PaginaAtual + 1

  If Anterior <= 0 Then
  Anterior = 1
  End If

  If Proximo > tab.PageCount Then
  Proximo = tab.PageCount
  End If
  %>
<tr>
  <td height="30" colspan="2" align="right" bgcolor="#EBEBEB" class="classFonte01"><strong>Paginas:</strong> <%
  Jo = 1
  While Jo <= tab.PageCount 

  If PaginaAtual = Jo Then
  Response.Write("["&Jo&"]  ")
  Else
  Response.Write("<a href=""paginacao.asp?Pages="&Jo&""" class=""classFonte01"" title=""Página "&Jo&""">"&Jo&"</a>  ")
  End If
  Jo = Jo + 1 
  Wend
  End If
%>
Desse jeito está assim: http://www.visaopedestais.com.br/novo/loji...cao.asp?Pages=1

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

4 registros ou 4 campos?

 

Se for 4 campos, seria 1 registro com 4 campos por página.

tab.Pagesize = 1

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado 

Set tab = Server.CreateObject("Adodb.RecordSet")
  tab.Pagesize = 4
  sql = "SELECT * FROM produtos "
  set tab = cnn.execute(sql) 

  If tab.Eof Then
  Response.Write("")
  Else
  PaginaAtual = Request.Querystring("Pages")

  If PaginaAtual = "" Then
  PaginaAtual = 1 
  Else
  PaginaAtual = CINT(PaginaAtual) 
  End If

  tab.AbsolutePage = PaginaAtual
  
  Mostrou = 0
  While Not tab.Eof And Mostrou < tab.Pagesize
  Mostrou = Mostrou + 1
  %>
<tr>
  <td height="22" bgcolor="#F7F7F7" class="classFonte01"> <img src="admin/<%=tab("foto")%>"> </td>
  
</tr>
  <%
  tab.MoveNext : Wend

Fiz umas pequenas mudanças altere exatamente da primeira linha que mexi até a ultima o resto deixa igual e veja o que acontece

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

4 registros ou 4 campos?

 

Se for 4 campos, seria 1 registro com 4 campos por página.

tab.Pagesize = 1

Então tenho q exibir 1 campo mas 4 registros em mesma página, tententei alterar tab.Pagesize = 1 ... mas continua a mesma coisa ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Conforme postei faltou contar quantos havia exibido na pagina

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Como esta o seu codigo agora?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado 

<table width="100%" border="0" cellspacing="2" cellpadding="0">

<tr>

<td width="44%" height="30" bgcolor="#EBEBEB" class="classFonte01"> <strong>Produto</strong> </td>

</tr>

<!--#include file="admin/config/conexao.asp"-->

 

<% call abre_conectar

cnn.CursorLocation = 3

Set tab = Server.CreateObject("Adodb.RecordSet")

tab.Pagesize = 4

sql = "SELECT * FROM produtos "

set tab = cnn.execute(sql)

 

If tab.Eof Then

Response.Write("")

Else

PaginaAtual = Request.Querystring("Pages")

 

If PaginaAtual = "" Then

PaginaAtual = 1

Else

PaginaAtual = CINT(PaginaAtual)

End If

 

tab.AbsolutePage = PaginaAtual

 

Mostrou = 0

While Not tab.Eof And Mostrou < tab.Pagesize

Mostrou = Mostrou + 1

%>

<tr>

<td height="22" bgcolor="#F7F7F7" class="classFonte01"> <img src="admin/<%=tab("foto")%>"> </td>

 

</tr>

<%

tab.MoveNext : Wend

 

While Not tab.Eof And tab.AbsolutePage = PaginaAtual

%>

<tr>

<td height="22" bgcolor="#F7F7F7" class="classFonte01"> <img src="admin/<%=tab("foto")%>"> </td>

 

</tr>

<%

tab.MoveNext : Wend

Anterior = PaginaAtual - 1

Proximo = PaginaAtual + 1

 

If Anterior <= 0 Then

Anterior = 1

End If

 

If Proximo > tab.PageCount Then

Proximo = tab.PageCount

End If

%>

<tr>

<td height="30" colspan="2" align="right" bgcolor="#EBEBEB" class="classFonte01"><strong>Paginas:</strong> <%

Jo = 1

While Jo <= tab.PageCount

 

If PaginaAtual = Jo Then

Response.Write("["&Jo&"]  ")

Else

Response.Write("<a href=""paginacao.asp?Pages="&Jo&""" class=""classFonte01"" title=""Página "&Jo&""">"&Jo&"</a>  ")

End If

Jo = Jo + 1

Wend

End If

%></td>

</tr>

</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce tem que tirar o codigo anterior

 

voce pois os dois

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Fiz assim, mas continua exibindo da mesma forma 

<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
  <td width="44%" height="30" bgcolor="#EBEBEB" class="classFonte01"> <strong>Produto</strong> </td>
  </tr>
<!--#include file="admin/config/conexao.asp"-->

<% call abre_conectar 
  cnn.CursorLocation = 3
   Set tab = Server.CreateObject("Adodb.RecordSet")
  tab.Pagesize = 4
  sql = "SELECT * FROM produtos "
  set tab = cnn.execute(sql) 

  If tab.Eof Then
  Response.Write("")
  Else
  PaginaAtual = Request.Querystring("Pages")

  If PaginaAtual = "" Then
  PaginaAtual = 1 
  Else
  PaginaAtual = CINT(PaginaAtual) 
  End If

  tab.AbsolutePage = PaginaAtual
  
  Mostrou = 0
  While Not tab.Eof And Mostrou < tab.Pagesize
  Mostrou = Mostrou + 1
  %>
<tr>
  <td height="22" bgcolor="#F7F7F7" class="classFonte01"> <img src="admin/<%=tab("foto")%>"> </td>
  
</tr>
  <%
  tab.MoveNext : Wend

  Anterior = PaginaAtual - 1
  Proximo = PaginaAtual + 1

  If Anterior <= 0 Then
  Anterior = 1
  End If

  If Proximo > tab.PageCount Then
  Proximo = tab.PageCount
  End If
  %>
<tr>
  <td height="30" colspan="2" align="right" bgcolor="#EBEBEB" class="classFonte01"><strong>Paginas:</strong> <%
  Jo = 1
  While Jo <= tab.PageCount 

  If PaginaAtual = Jo Then
  Response.Write("["&Jo&"]  ")
  Else
  Response.Write("<a href=""paginacao.asp?Pages="&Jo&""" class=""classFonte01"" title=""Página "&Jo&""">"&Jo&"</a>  ")
  End If
  Jo = Jo + 1 
  Wend
  End If
%></td>
</tr>
</table>
.... o q eu fiz de errado ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

com esta alteração ta online?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Faz um teste pra mim

 

Acrescenta um response.write(Mostrou) abaixo de once incrementa o valor desta variavel

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

e poe online tambem

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Ainda ta estranho

 

manda escrever o tab.Pagesize tambem

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

é como se estive com valor 10

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Mandei response.write(tab.pagesize) ... e me retornou e me retornou numeros com um intervalo de 100

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como está a parte que manda escrever?

 

poe ai para eu ajeitar como quero ver

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito