Paginação Imcompleta

marcelocardoso · Maio 24, 2008

Pessoal!

Peguei este código abaixo do TEDK que postou aqui no forum e estou tentando implementar mais ele, mas não sei como inserir o RETORNAR E O AVANÇAR registros, e também para mostrar apenas de 10 em 10 registros, ( que no caso seria assim: 1 2 3 4 5 6 7 8 9 10 ..... depois viria mais 10 que seria 20 21 22 e aí vai, ok )

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
<title>EXEMPLO DE PAGINAÇAO</title>
<style type="text/css">
body {
	font: normal 10px Verdana;
	color: #333333;
	text-decoration: none;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
</style>
</head>
<body>
<br />
<br />
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td width="46%" height="30" bgcolor="#E3E3E3" class="classFonte01 style1">  <strong class="tnt_fontebranca">NOME DO CAMARADA</strong> 
	  <div align="center"></div></td>
	<td width="54%" bgcolor="#E3E3E3" class="classFonte01 style1">  <strong class="tnt_fontebranca">ENDEREÇO DE E-MAIL</strong>
	<div align="center"></div></td>
  </tr>
</table>
<br />
<%
  BANCO = "DBQ=C:\Inetpub\wwwroot\ASP\teste\paginacao.mdb;Driver={Microsoft Access Driver (*.mdb)};"
	SQL = "SELECT nome, email FROM TB_USERS ORDER BY nome ASC"
 SET RS = Server.CreateObject("ADODB.Recordset")
	 RS.CursorLocation = 3
	 RS.CursorType	 = 0
	 RS.LockType	   = 1
	 RS.Pagesize	   = 30
	 RS.Open SQL, BANCO

  If RS.Eof Then
	 Response.Write("Nao há registros no banco de dados")
  Else
  
	 PaginaAtual = CInt(Request.QueryString("paginacao"))
  If PaginaAtual = 0 Then
	 PaginaAtual = 1
  End If

			RS.AbsolutePage = PaginaAtual
	  Num = RS.PageCount
  While Not RS.Eof And RS.AbsolutePage = PaginaAtual
  
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="5">
  <tr>
	<td width="44%"><span class="classFonte01"><%=RS("nome")%></span></td>
	<td width="52%"><span class="classFonte01"><%=RS("email")%></span></td>
  </tr>
</table>
<%
		RS.MoveNext
		   Wend
  Anterior = PaginaAtual - 1
   Proximo = PaginaAtual + 1

  If Anterior <= 0 Then
	 Anterior  = 1
  End If

  If Proximo > RS.PageCount Then
	 Proximo = RS.PageCount
  End If
%>
<br />
<br />
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="5">
  <tr>
	<td><div id="paginacao">
	  <div align="center">
		<%
		PaginacaoContador = 1
  While PaginacaoContador <= RS.PageCount

  If PaginaAtual = PaginacaoContador Then
	 Response.Write(""& PaginacaoContador &"")
		  Else
	 Response.Write("<a href=""paginacaoteste.asp?paginacao="& PaginacaoContador &""""& PaginacaoContador &""">"& PaginacaoContador &"</a></span>")
  End If
	 PaginacaoContador = PaginacaoContador + 1
				  Wend
  End If
%>
 </div>
	</div></td>
  </tr>
</table>
</body>
</html>

TED e amigos, se puderem me ajudar, pois queria deixar aqui pronto assim para depois quando precisar ter algo completo. ok

Pois gostei da paginação dele, pois é simples e fácil de entender.

Podem me ajudar?????

Obrigado a todos.

Salgado · Maio 24, 2008

Aquiu:

<table width="90%" border="0" align="center" cellpadding="0" cellspacing="5">
 <tr>
<td><div id="paginacao">
  <div align="center">
Coloque o link anterior aqui, aproveite que já existe a variável "Anterior" no código ASP, é simples.
	<%
	PaginacaoContador = 1
 While PaginacaoContador <= RS.PageCount

 If PaginaAtual = PaginacaoContador Then
 Response.Write(""& PaginacaoContador &"")
	  Else
 Response.Write("<a href=""paginacaoteste.asp?paginacao="& PaginacaoContador &""""& PaginacaoContador &""">"& PaginacaoContador &"</a></span>")
 End If
 PaginacaoContador = PaginacaoContador + 1
			  Wend
 End If
%>
Coloque o link próximo aqui, aproveite que já existe a variável "Proximo" no código ASP, é simples.
</div>
</div></td>
 </tr>
</table>

Para a forma que quer exibir o restante dê uma pesquisada no "Laboratório de Scripts", lá tem um exemplo parecido com o que quer.

marcelocardoso · Maio 24, 2008

Olá Irmão Salgado!

Obrigado pelo retorno, fui lá no laboratorio, peguei este script abaixo, tentei adaptar, mas não sei oque retirar dele e colocar oque no código.

Ou seja, não sei oque fazer para acrescentar oque eu preciso.

Pois quando tem muitos IF, fico perdidão.

PEGUEI ESTE QUE FAZ EM 10 em 10 e mostra próximo e retornar.

'############## paginacao 02 ####################
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@ ALEX TEIXEIRA - alexct@hotmail.com @@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

 'Coloca o Nº página atual / Nº Total de páginas

 Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")  

'Mostra os botões: Anterior e Próximo, utilizando da opção de IF

'----------- Numeros - Calculos ---------------------------------------------

var01 = Len(PagAtual) 'Lê o tamanho do numero
var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig.
var03 = Left(PagAtual,var02) 'obtem os digitos mais  sig. do numero
var04 = Right(PagAtual,1)	'obtem o digito menos sig. do numero
var05 = var03 & 0 ' Acrecenta ZERO no final
IF var04 <> 0 THEN		' condição se o digito menos sig. é Zero
	inicial = var05 + 1
	final = inicial + 9  
	ELSE
	inicial = var05 - 9  
	final = var05
END IF

indice_i = var04 - 1 'ultimo digito  - 1
indice_f = 10 - var04 ' 10 - digito menos sig.


' If CInt(inicial) < 1 Then inicial = 1
	 
If CInt(final) > CInt(TotalPages) Then final = TotalPages

'------------------------------------------------------------------------------


IF PagAtual > 1 THEN

'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
	  Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
	  Response.Write("<a href='jogos.asp?PagAtual=" &  1 & "'>")
	  Response.Write("Primeira")
	  Response.Write("</a></font></B>  ")
	 
	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
	  Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>")
	  Response.Write("Anterior")
	  Response.Write("</a></font></B>  ")

	  IF PagAtual > 10 THEN

	   Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
	   Response.Write("<a href='jogos.asp?PagAtual=" & inicial - 1 & "'>")
	   Response.Write("...")
	 Response.Write("</a></font></B>  ")

		  ELSE

		 Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	   Response.Write("....")
	   Response.Write("</font></B>  ")

	END IF

  Else

	  Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")
	  Response.Write("Primeira")
	  Response.Write("</font></B>  ")

	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	  Response.Write("Anterior")
	  Response.Write("</font></B>  ")

	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	  Response.Write("...")
	  Response.Write("</font></B>  ")

End If

'---------------------- NUMEROS  ---------------------------

For i = inicial To final
	 If CInt(i)=CInt(PagAtual) Then
		 Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "
	 END IF
	 If CInt(i) < CInt(PagAtual) Then
	  Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a></font>  "
	 END IF
	 If CInt(i) > CInt(PagAtual) Then
		 Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a></font>  "
  END IF
Next

'------------------------------------------------------

IF CInt(PagAtual) <> CInt(TotalPages) THEN


p1 = Left(PagAtual,var02)
p2 = Left(TotalPages,var02)
p3 = Left(TotalPages,var02) & 0


'##### CONDIÇÕES ########
'digitos mais significativos do Numero com 1 no fim > PagAtual
EX:  21   [ 22 ]  23   24  25		 2 com 1 => 21 > 22 (F)
'OU
'PagAtual <= 10	  E	TotalPages > 10
'EX:  ... 1  2  3  4 [ 5 ]  6  ...			  5 <= 10 (V)  E   6 > 10 (F)

IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN	


	   Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
	   Response.Write("<a href='jogos.asp?PagAtual=" & final + 1 & "'>")
	   Response.Write("...")
	   Response.Write("</a></font></B>  ")

		 ELSE

	   Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	   Response.Write("...")
	   Response.Write("</font></B>  ")

   END IF

	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
	  Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual + 1 & "'>")
	  Response.Write("Próxima")
	  Response.Write("</a></font></B>  ")

	  Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
	  Response.Write("<a href='jogos.asp?PagAtual=" & TotalPages & "'>")
	  Response.Write("Ultima")
	  Response.Write("</a></font></B>  ")		

 ELSE

	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	  Response.Write("...")
	  Response.Write("</font></B>  ")

	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	  Response.Write("Próxima")
	  Response.Write("</font></B>  ")

	  Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")
	  Response.Write("Ultima")
	  Response.Write("</font></B>  ")
End If
'################## fim paginacao 02 #######################

SALGADO E AMIGOS.

Oque eu posso retirar daí e colocar no meu codigo????

Veja se consegue me ajudar, pois não entendo muito e quero aprender, pois quero montar uma completa e depois ver se consigo comentar ela e imprimir.

Pois estou bem confuso ainda.

Aguardo seu retorno.

marcelocardoso · Maio 25, 2008

Pessoal!

Alguém consegue me ajudar a implementes meu primeiro código, com o segundo.

Não sei como inserir as partes do segundo código no primeiro, pois preciso colocar no primeiro um RETORNAR e um AVANÇAR que tem no segundo código.

E fazer com que ele mostre apenas registros de 10 em 10.

Alguém poderia me ajudar, pois já tentei aqui em casa recortar algumas partes do IF, mas não sei como juntar as partes certas para fazer isso.

Alguém poderia me dar uma luz?????

Obrigado!

Até para eu aprender, pois paginação não sei realmente como funciona.

marcelocardoso · Maio 28, 2008

TED K!

Você poderia me ajudar aqui, se possível...

Até sei fazer paginação, mas pegando código pronto e ajeitando. ok!

Peguei a sua e tentei ajeitar, mas não consegui...

Quero inserir no meu primeiro código do POST o LINK RETORNAR REGISTRO e AVANÇAR REGISTRO, mas não estou conseguindo.

Poderia me ajudar??????

Obrigado desde já....

Mário Monteiro · Maio 28, 2008

Como tentou fazer? este proximo e anterior é das paginas?

marcelocardoso · Junho 3, 2008

Mário!

Eu tentei inserir aquele code nas partes em que o SALGADO disse anterior e proximo.

Mas como não entendo muito oque cada coisa alí serve, realmente falando sério.

Não deu em nada.

E agora realmente estou confuso.

E acredito que vou deixar assim mesmo, pois eu sozinho não sei resolver mesmo.

Pois eu queria ter uma pronta para eu poder comentar e depois imprimir.

Para ter como modelo.

Se puder ajudar agradeço, mas se não puder tudo bem.

Deus abençoe.

Um forte abraço.

Entrar

Arquivado

Paginação Imcompleta

Recommended Posts

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante