Paginação

[crazybaby 0]

Fiz ontem essa paginação...tava numa vontade de fazer... aproveitem

Peço que prestem, atenção no conteudo da variavel 'nomepagina'

Modifiquem as partes emnegrito de acordo com as necessidades

A variavel 'registros' é o tanto de registros exibido por paginas..

 

<style>

<!--

a {text-decoration:none}

a:hover {text-decoration:underline; color:black}

a:active {text-decoration:none; color:black}

a:visited {text-decoration:underline; color:black}

-->

</style>

<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 StringDeConexao

 

Set RS = Server.CreateObject("AdoDb.RecordSet")

 

nomepagina = "default2.asp" 'IMPOTANTE:Coloque aqui o nome desta página.

registros = 4

 

RS.CacheSize = registros

RS.PageSize = registros

 

SQL = "Select * from contatos"

 

RS.Open SQl,Conexao,3,3

 

If RS.Eof then

Response.Write("Nenhum registro encontrado.")

 

else

 

if Request.QueryString("pagina")="" then

pagina = 1

elseif cint(Request.QueryString("pagina"))<1 then

pagina = 1

elseif cint(Request.QueryString("pagina"))>RS.PageCount then

pagina = RS.PageCount

else pagina=Request.QueryString("pagina")

end if

end if

 

RS.AbsolutePage = pagina

 

contador = 0

 

While contador<registros and not RS.eof

 

response.Write(RS("nome")&"-"&RS("telefone")&"-"&RS("email")&"<p>")

 

RS.MoveNext

 

contador = contador + 1

 

If RS.eof then

Response.Write("")

end if

 

Wend

 

for i=1 to RS.PageCount

 

response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")

 

Next

%>

Qualquer erro, ou se naum conseguir modificar o script é só gritar (y)

 

Flows

:D

[mkboy 1]

Acho que me enrrolei!Vou tentar depois posto de novo!!

[crazybaby 0]

Tente só assim

 

 

<style><!--a {text-decoration:none}a:hover {text-decoration:underline; color:black}a:active {text-decoration:none; color:black}a:visited {text-decoration:underline; color:black}--></style><title>Resultado da pesquisa</title><%StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("fish.mdb")Set Conexao = Server.CreateObject("AdoDb.Connection")Conexao.Open StringDeConexaoSet objRS = Server.CreateObject("AdoDb.RecordSet")nomepagina = "processa01.asp" 'IMPOTANTE:Coloque aqui o nome desta página.registros = 4objRS.CacheSize = registrosobjRS.PageSize = registrosSQL = "Select * from bo"objRS.Open SQl,Conexao,3,3If objRS.Eof thenResponse.Write("Nenhum registro encontrado.")elseif Request.QueryString("pagina")="" thenpagina = 1elseif cint(Request.QueryString("pagina"))<1 thenpagina = 1elseif cint(Request.QueryString("pagina"))>objRS.PageCount thenpagina = objRS.PageCountelse pagina=Request.QueryString("pagina")end ifend ifobjRS.AbsolutePage = paginacontador = 0While contador<registros and not objRS.eofresponse.Write(objRS("nome")&"-"&objRS("email")&"<p>")objRS.MoveNextcontador = contador + 1If objRS.eof thenResponse.Write("")end ifWendfor i=1 to objRS.PageCountresponse.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")Next%>

Flows

:D

[d.eleete 0]

No lugar de digitar o nome do arquivo ou da página, é mais facil utilizar o:

 

request.ServerVariables("SCRIPT_NAME")

[AlexCT 0]

request.ServerVariables("SCRIPT_NAME") faz o que?pega a onome da pagina. ex: pagina.aspmas e se tiver valores pagina.asp?id=50&...

[crazybaby 0]

o script name só pega o nome da pagina, mesmo q tenha querystring....nem tinha lembrado de usa-lopois para pegar as querystring se usa request.servervariables("query_string")Flows :D

[mkboy 1]

Ainda não consegui, to refazendo.... :(

[mkboy 1]

Ola, coloquei meu codigo acima, se alguem poder me ajudar fico muito grato.VALEUUU!

[d.eleete 0]

o script name só pega o nome da pagina, mesmo q tenha querystring....nem tinha lembrado de usa-lopois para pegar as querystring se usa request.servervariables("query_string")Flows :D

issuuu!

[Arthur Webdesigner 0]

como faço para adicionar um link de "próxima página" e "página anterior" à este script?

[Vanilson 2]

Pessoal não estou entendendo as seguintes linhas de codigo:

if Request.QueryString("pagina")="" then
pagina = 1
elseif cint(Request.QueryString("pagina"))<1 then
pagina = 1
elseif cint(Request.QueryString("pagina"))>objRS.PageCount then
pagina = objRS.PageCount
else pagina=Request.QueryString("pagina")
end if
end if

Quem poder me ajude.

[hargon 64]

O que você não entendeu? Isso está apenas validando a página atual que será exibida.