Paginação em Asp Simples

Muitas pessoas tem duvidas de como se desenvolve uma paginação em Asp quando se tem varios registro no banco para analiza-los visualmente, por isso desenvolvi esta coluna exatamente abordando da forma mais simples possivel esse Tema. Sem códigos confusos e outras coisas visando apenas o ententer das pessoas que quere prender.

Por | @oficinadanet Programação
Começaremos criando um novo banco de dados no Access, salvem com o nome de produtos.mdb feito isso criem uma tabela com os seguintes campos como mostra a figura abaixo:

Paginação em Asp Simples

Salvem a Tabela com o Nome TProdutos, depois de criada a insiram nela 40 produtos, creio que a parte mais chata, mas vale apena, eu disse 40 produtos pois quanto mais a contidade de produtos melhor poderemos entender depois como funciona apaginação em Asp.

Paginação em Asp Simples

Para começar inicie o software de sua preferência para programar a página Asp, eu uso o Dreamweaver CS3 pois existem funcionalidades bastantes úteis nele.

Iniciem um novo arquivo Asp chamado
"paginacao.asp"

Primeiramente devemos criar a conexão como Banco de Dados Access ou seja o banco que criamos "produtos.mdb" vejam o codigo a baixo:

<%
'Abrimos a Conexão com o Banco
Dim caminho
Dim conexao
caminho = Server.MapPath("produtos.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 TProdutos ORDER BY Produto_ID"
        rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3

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

'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
%>



Tutorial de Paginação




  
    
    
    
    
  
  <%
   'Iniciamos o Loop
    rsBuscaProdutos.AbsolutePage = intpagina
    intrec = 0
    While intrec   %>
  

    
    
    
    
  
  <%
    rsBuscaProdutos.MoveNext
    intrec = intrec + 1
    if rsBuscaProdutos.eof then
       response.write " "
    end if   
    Wend  
  %>
  
    
    
    
Produto IDNomeTipoCategoria
<%=rsBuscaProdutos("Produto_ID")%><%=rsBuscaProdutos("Produro_Nome")%><%=rsBuscaProdutos("Protudo_Tipo")%><%=rsBuscaProdutos("Produto_Categoria")%>

    <%
    'Criamos as Validações para a navegação "Anterior" e "Próximo"  
    if intpagina>1 then
    %>
    Anterior
    <%
    end if
    if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then  
    %>
    Próximo  
    <%
    end if
    rsBuscaProdutos.close
    Set rsBuscaProdutos = Nothing
    %>
    




Resultado do código acima:
Paginação em Asp Simples


Salvem o arquivo como "paginacao.asp" e testem no IIS de vocês e vejam que não é complicado e sim bastante eficiente esta paginação. Tentei desenvolver do geito mais simples possivel.

Mais sobre:
Share Tweet
DESTAQUESRecomendadoMais compartilhados
Comentários