2 replies to this topic

[_webmaster_]

ae gurizada eu so iniciante ainda......

como q eu crio paginaçao em asp???

quem ajuda obrigado ....

[Luis Otávio]

eu usaria a busca...
http://forum.wmonlin...howtopic=122521

[kaplan]

Vamos la amigo é bem simples

registros = 20 'Aqui vc coloca a quantidade de registros por pagina que vc quer
pagina = Request.QueryString("pagina")
If pagina = "" Then
   pagina = 1
End If

'Conexao com o banco de dados

Dim Conn
Dim Rs
Dim Sql

   Set Conn = Server.CreateObject("ADODB.Connection")
   Conn.Open= "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco.mdb")

   Set Rs = Server.CreateObject("ADODB.Recordset")
   set rs.ActiveConnection = Conn
   rs.CursorType = 3
   rs.PageSize = registros
   Sql = "Select * From Dados"
   rs.Open sql
   %>
   <table border="0">
   <tr>
   <%
'Aqui vc faz o Loop   
   If rs.EOF Then
      Response.Write "Nenhum registro encontrado"
   Else
      rs.AbsolutePage = pagina
      While Not rs.EOF AND x < rs.PageSize
         x = x + 1
         %>
         <td><%=Rs("Email")%><br></td>
         <td><%=Rs("Cidade")%><br></td>
         <%
      Rs.MoveNext
      Wend
      %>
   </tr>
</table>
  <%              
'Aqui vc coloca as paginas anterior e depois e ect
  anterior = pagina - 1
  proxima = pagina + 1
  ultima = rs.PageCount
  primeira = 1
  ultm2 = FormatNumber(rs.PageCount - 1,0)
  If pagina <> 1 Then
     Response.Write "<b>&laquo; <a href=default.asp?pagina="&primeira&">Primeira Página</a></b> "
  End If
  If pagina > 1 AND pagina <> 2 Then
     Response.Write "<b>[ <a href=default.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
  End If
  If pagina > 1 Then
    Response.Write "<b>[ <a href=default.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
  End If
     Response.Write "<b>[ "&pagina&" ]</b> "
  If Not rs.EOF Then
     Response.Write "<b>[ <a href=default.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
  End If
  If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
     Response.Write "<b>[ <a href=default.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
  End If
  If Not rs.EOF Then
     Response.Write "<b><a href=default.asp?pagina="&ultima&">Última Página</a> &raquo;</b> "
  End If
End If
rs.Close
Set rs = Nothing
%>
</body>
</html>