Paginação – 4º Artigo

Este já é o 4º
artigo do ASP.iMasters onde abordamos o tema "Paginação".
Cada artigo com uma opção diferente de
código para paginação, que é
indispensável em qualquer busca.

Este código foi escrito por Francisco
Hárley, que deixou seu ICQ e e-mail à
disposição para tirar dúvidas…Você
encontrará no final do artigo.

Neste exemplo, veremos como utilizar
do recurso de paginação tornando mais fácil a navegação
entre os registros de um recordset.

<%
regs = 10 ‘Aqui setamos quantos registros serão listados
por página
pag = request.querystring("pagina")

if pag = "" Then
   pag = 1
end if

set conn = createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data
source=" & server.mappath("banco_de_dados.mdb")

set rs = createobject("adodb.recordset")

set rs.activeconnection = conn

rs.cursortype = 3 ‘Definimos o cursor a ser utilizado
rs.pagesize = regs

sql = "select * from tabela"
rs.open sql

if rs.eof or rs.bof then
   response.write "O banco de dados↳Banco de dados134 conteúdosSQL ou NoSQL: eis a questão!!Data · mar 2020Banco de dados: como organizar e dar segurança para milhões de dados de loteriasData · mai 20215 serviços gratuitos na cloud para bancos de dados PostgresData · fev 2025Ver tudo em Data → está
vazio"
else
   rs.absolutepage = pag
   contador = 0
   do while not rs.eof and contador < rs.pagesize
   response.write rs("campo1") &
" " & rs("campo2") & "
e ai vai…<br>"
   contador = contador +1
   rs.movenext
   loop
end if

‘Criando links para a navegação

response.write "<br><b>Página(s):</b>
"

for i = 1 to rs.pagecount

if i = cint(pag) then
   response.write "<i><b>"
& i & "</b></i> "
else
   response.write "<a href=’"
& request.servervariables("script_name")
& "?pagina=" & i & "’>"
& i & "</a> "
end if

next

rs.close
conn.close
set rs = nothing
set conn = nothing
%>