Ir para conteúdo
Fórum Script Brasil
  • 0

Paginação

Legionáriors

Perguntado por Legionáriors,

 Share

Pergunta

Legionáriors

Legionáriors

Postado
Postado (editado)

Como dividir uma linha de 6 produtos em 2 de 3 produtos e paginar por departamento mostrando os 6 últimos produtos cadastrados no departamento?

Obrigado a todos que puderem ajudar!!!

<%
'Abrimos a Conexão com o Banco
Dim caminho
Dim conexao
caminho = Server.MapPath("/banco/loja.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

        'Selecionamos todos os Produtos da Tabela
Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")
strBuscaProdutos = "SELECT * FROM produtos ORDER BY imagem"
        rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3

'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset
rsBuscaProdutos.PageSize = 6

'Criamos as Validações
if rsBuscaProdutos.eof then
   Mensagem = "Nenhum Registro Encontrado"
   Response.End
else
   'Definimos 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"))>rsBuscaProdutos.PageCount then  
    intpagina = rsBuscaProdutos.PageCount
         else
    intpagina = Request.QueryString("pagina")
end if
      end if   
   end if   
        end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Paginacao</title>
</head>
<body>
  <%
   'Iniciamos o Loop
    rsBuscaProdutos.AbsolutePage = intpagina
    intrec = 0
    While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof  
  %>
  <center>
<td><table width="100%" border="0" cellpadding="0" cellspacing="3" bgcolor="white">
<tr> 
<td bgcolor="white"><table width="100%" border="5" cellspacing="0" cellpadding="0">
  <tr>
    <td id="imagem"><center><img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0>
    <br>
  <font face="verdana" size="2" color="black">
    <b>
    <%=rsBuscaProdutos("nome")%>
    <br>
  <font face="verdana" size="2" color="Red">
    <%="R$: "%>
    <%=rsBuscaProdutos("preço")%>,00
    </td>
  </tr>
</td>
</table>

  <%
    rsBuscaProdutos.MoveNext
    intrec = intrec + 1
    if rsBuscaProdutos.eof then
       response.write " "
    end if   
    Wend  
  %>
  <tr>
    <td colspan="0"  id="Dados"></td>
    <td id="Dados">
    <%
    'Criamos as Validações para a navegação "Anterior" e "Próximo"  
    if intpagina>1 then
    %>
    <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>
    <%
    end if
    if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then  
    %>
    <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Proximo</a>  
    <%
    end if
    rsBuscaProdutos.close
    Set rsBuscaProdutos = Nothing
    %>
    </td>
  </tr>  
</table>
</body>
</html>

Editado por Legionáriors
Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
ju_rezende

ju_rezende

Postado
Postado

tenho uma que eu utilzo, não sei se vai ajudar

pagina pesquisa.asp 1

pagina=rsNot1.recordcount/6 ' divide pela quantidade de intens que quer mostrar 
        If Int(pagina) < pagina Then
            pagina=int(pagina)+1
        end if

        contador=1
        posicao=1
        posicaoAtual=posicao

        do while contador <= cint(pagina) 
            if posicaoAtual = posicao then%> 
                    <%=contador%>
            <%else%>            
                <a href="noicias1.asp?posicao=<%=posicao%>"><%=contador%></a>
            <%end if%>
        <%contador=contador + 1
        posicao=posicao + 6%>
        <%loop%>
agora a página de nocias1.asp 
posicao1=request.querystring("posicao")
        pagina=rsNot1.recordcount/6
              
        contador=1
        posicao=1
        PaginaAtual=(request.querystring("posicao")+1)/6
       
        do while contador <= cint(pagina) 
            posicaoAtual=(posicao+1)/6
            if posicaoAtual = PaginaAtual then%>
                <%=contador%>
            <%else%>        
                <a href="noicias1.asp?posicao=<%=posicao%>"><%=contador%></a>
            <%end if%>
            <%contador=contador + 1
        posicao=posicao + 6%>
        <%loop%>

este scrip faz a paginação com números igual o do google, ele é funcional e bem mais simples

Se ficar com dúvidas nele

me adiciona no MSN

Link para o comentário
Compartilhar em outros sites
  • 0
ju_rezende

ju_rezende

Postado
Postado

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Untitled Document</title>

</head>

<body>

<%caminho = Server.MapPath("/banco/loja.mdb")

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

'Selecionamos todos os Produtos da Tabela

Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")

strBuscaProdutos = "SELECT * FROM produtos ORDER BY imagem"

rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3

linha=rsBuscaProdutos.recordcount /3

%>

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

<%For n=1 to linha

if rsBuscaProdutos.eof=false then%>

<%For rsBuscaProdutos=1 to linha

if rsBuscaProdutos.eof=false then%>

<tr>

<td>

<img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0>

<br>

<font face="verdana" size="2" color="black">

<b>

<%=rsBuscaProdutos("nome")%>

<br>

<font face="verdana" size="2" color="Red">

<%="R$: "%>

<%=rsBuscaProdutos("preço")%>,00

</td>

<%rsBuscaProdutos.movenext

end if

if rsBuscaProdutos.eof=false then%>

<td>

<img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0>

<br>

<font face="verdana" size="2" color="black">

<b>

<%=rsBuscaProdutos("nome")%>

<br>

<font face="verdana" size="2" color="Red">

<%="R$: "%>

<%=rsBuscaProdutos("preço")%>,00

</td>

<%rsBuscaProdutos.movenext

end if%>

<%if rsBuscaProdutos.eof=false then%>

<td>

<img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0>

<br>

<font face="verdana" size="2" color="black">

<b>

<%=rsBuscaProdutos("nome")%>

<br>

<font face="verdana" size="2" color="Red">

<%="R$: "%>

<%=rsBuscaProdutos("preço")%>,00

</td>

<%rsBuscaProdutos.movenext

end if

next

rsBuscaProdutos.close%>

%>

</tr>

<tr>

<td colspan="3"><p>Pagina: aqui coloca a pagina&ccedil;&atilde;o</p>

<p>&nbsp; </p></td>

</tr>

</table>

</body>

</html>

Link para o comentário
Compartilhar em outros sites
  • 0
ju_rezende

ju_rezende

Postado
Postado 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<%caminho = Server.MapPath("/banco/loja.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

'Selecionamos todos os Produtos da Tabela
Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")
strBuscaProdutos = "SELECT * FROM produtos ORDER BY imagem"
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3
linha=rsBuscaProdutos.recordcount /3
                if int(linha)<linha then
                    linha=int(linha)+1
                else
                    linha=int(linha)
                end if

%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%For n=1 to linha 
                    
if rsBuscaProdutos.eof=false then%>

                <%For rsBuscaProdutos=1 to linha  
                    
                    if rsBuscaProdutos.eof=false then%>
                  <tr>
                    <td>
                            <img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0>
                            <br>
                            <font face="verdana" size="2" color="black">
                            <b>
                            <%=rsBuscaProdutos("nome")%>
                            <br>
                            <font face="verdana" size="2" color="Red">
                            <%="R$: "%>
                            <%=rsBuscaProdutos("preço")%>,00                    
                    </td>
                    <%rsBuscaProdutos.movenext
                    end if
                        
                    if rsBuscaProdutos.eof=false then%>
                        <td>
                                <img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0>
                                <br>
                                <font face="verdana" size="2" color="black">
                                <b>
                                <%=rsBuscaProdutos("nome")%>
                                <br>
                                <font face="verdana" size="2" color="Red">
                                <%="R$: "%>
                                <%=rsBuscaProdutos("preço")%>,00                        
                        </td>
                    <%rsBuscaProdutos.movenext
                    end if%>
                        
                    <%if rsBuscaProdutos.eof=false then%>
                        <td>
                                <img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0>
                                <br>
                                <font face="verdana" size="2" color="black">
                                <b>
                                <%=rsBuscaProdutos("nome")%>
                                <br>
                                <font face="verdana" size="2" color="Red">
                                <%="R$: "%>
                                <%=rsBuscaProdutos("preço")%>,00                        
                        </td>
                    <%rsBuscaProdutos.movenext
                    end if
                        
                        %>
        
  </tr>
          <%        next
                rsBuscaProdutos.close%>

  <tr>
    <td colspan="3"><p>Pagina: aqui coloca a pagina&ccedil;&atilde;o</p>
    <p>&nbsp; </p></td>
  </tr>
</table>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...