Incluindo paginação!

mkboy · Fevereiro 10, 2004

Ola amigos,Estou tentando usar uma paginação do amigo CRAZY BABY, e não estou conseguindo.Vou postar o código dele, o meu e como eu fiz, e gostaria da ajuda de vocÊs me dando uma força de como eu incluo essa paginação em meu código, pois meus conhecimentos em ASP são poucos.A paginação do CRAZY BABY:

<title>Paginação feita por CrazyBaby</title><%StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("clientes.mdb")Set Conexao = Server.CreateObject("AdoDb.Connection")Conexao.Open StringDeConexaoSet RS = Server.CreateObject("AdoDb.RecordSet")nomepagina = "default2.asp" 'IMPOTANTE:Coloque aqui o nome desta página.registros = 4RS.CacheSize = registrosRS.PageSize = registrosSQL = "Select * from contatos"RS.Open SQl,Conexao,3,3If RS.Eof thenResponse.Write("Nenhum registro encontrado.")elseif Request.QueryString("pagina")="" thenpagina = 1elseif cint(Request.QueryString("pagina"))<1 thenpagina = 1elseif cint(Request.QueryString("pagina"))>RS.PageCount thenpagina = RS.PageCountelse pagina=Request.QueryString("pagina")end ifend ifRS.AbsolutePage = paginacontador = 0While contador<registros and not RS.eofresponse.Write(RS("nome")&"-"&RS("telefone")&"-"&RS("email")&"<p>")RS.MoveNextcontador = contador + 1If RS.eof thenResponse.Write("")end ifWendfor i=1 to RS.PageCountresponse.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a> ")Next%>

Meu código, este está funcionado legal, ele faz a pesquisa no banco e responde em sequencia os registros localizados:

<%dim objRSdim strrscor_titulo = "#cccccc"%><%'Recupera o que foi digitadoquery = Request.querystring("query")'Verifica se o campo não está vazioIf query = "" thenresponse.redirect "busca.asp"End if'Conecta ao banco.Set conn = Server.CreateObject ("ADODB.Connection")strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("fish.mdb")conn.open strconn'Faz a busca na tabela.Set objRS = Server.CreateObject("ADODB.Recordset")'Aplica variavelstrrs = "Select * from bo where nome like'%" & query & "%' order by email"objRS.open strrs, connIf objRS.EOF Thenresponse.write "Nenhum nome encontrado"End if'Pega o total de registro encontradototal = objRS.recordcount%><%If erro <> "" ThenResponse.Write mensagemEnd ifDo While not objRS.Eof%><HTML><head><title>Resultado da pesquisa.</title></head><body><center><table bgcolor="#000033" border="0" width="400" cellspacing="0" cellpaging="0"><tr><td><table bgcolor="#ffffff" border="0" width="100%" cellspacing="0" cellpaging="0"><tr><td><%If objRS.BOF or objRS.EOF Then response.write "Nenhum registro localizado."Else cor="ffffff" response.write "<table border=0 cellpaging="&"0"&" cellspaging="&"0"&" width="&"100%"&">" response.write "<tr bgcolor="&cor_titulo&"><td>Nome:</tr><td>E-mail:</tr><tr>" Do While Not objRS.EOF if cor="ffffff" then cor="efefef"else cor="ffffff" end if response.write "<tr bgcolor="&cor&"><td>"&objRS("nome")&"</td><td><a href=""mailto:" & objRs("email") & """>"& objRs("email") &"</a></td></tr>" objRS.MoveNext Loop response.write "</table>"End If%>  <%loopobjRS.closeconn.close%></td></tr></table></td></tr></table></center></body></html>

Este eu tentei incluir a paginação e não deu certo.

<%dim objRSdim strrscor_titulo = "#cccccc"processa_01 = request.ServerVariables("SCRIPT_NAME") %><%'Recupera o que foi digitadoquery = Request.querystring("query")'Verifica se o campo não está vazioIf query = "" thenresponse.redirect "busca.asp"End if'Conecta ao banco.Set conn = Server.CreateObject ("ADODB.Connection")strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("fish.mdb")conn.open strconn'Faz a busca na tabela.Set objRS = Server.CreateObject("ADODB.Recordset")'paginaçãonomepagina = "processa_01.asp"registros = 4RS.CacheSize = registrosRS.PageSize = registrosstrrs = "Select * from bo where nome like'%" & query & "%' order by email"objRS.open strrs, connRS.Open SQl,Conexao,3,3If objRS.EOF Thenresponse.write "Nenhum nome encontrado"elseif Request.QueryString("pagina")="" thenpagina = 1elseif cint(Request.QueryString("pagina"))<1 thenpagina = 1elseif cint(Request.QueryString("pagina"))>RS.PageCount thenpagina = RS.PageCountelse pagina=Request.QueryString("pagina")end ifend ifRS.AbsolutePage = paginacontador = 0While contador<registros and not RS.eof%><HTML><head><title>Resultado da pesquisa.</title></head><body><center><table bgcolor="#000033" border="0" width="400" cellspacing="0" cellpaging="0"><tr><td><table bgcolor="#ffffff" border="0" width="100%" cellspacing="0" cellpaging="0"><tr><td><%If objRS.BOF or objRS.EOF Then response.write "Nenhum registro localizado."Else cor="ffffff" response.write "<table border=0 cellpaging="&"0"&" cellspaging="&"0"&" width="&"100%"&">" response.write "<tr bgcolor="&cor_titulo&"><td>Nome:</tr><td>E-mail:</tr><tr>" Do While Not objRS.EOF if cor="ffffff" then cor="efefef"else cor="ffffff" end if response.write "<tr bgcolor="&cor&"><td>"&objRS("nome")&"</td><td><a href=""mailto:" & objRs("email") & """>"& objRs("email") &"</a></td></tr>" objRS.MoveNext Loop response.write "</table>"End If%>  <%RS.MoveNextcontador = contador + 1If RS.eof thenResponse.Write("")end ifWendfor i=1 to RS.PageCountresponse.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a> ")Next%>%></td></tr></table></td></tr></table></center></body></html>

ska_ska · Fevereiro 10, 2004

codigo grande hein.. da ateh preguiça de ler.. hauhaha..faz assim... manda a msg de erro ne... facilita.. vcnaum sabe como... ahuhauautamos no aguardo,fui

Entrar

Arquivado

Incluindo paginação!

Recommended Posts

mkboy 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

ska_ska 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante