[Resolvido] Paginação

Zé Luiz - Dainet · Dezembro 6, 2007

Olá,

estou de volta aqui acho que para concluir meu serviço.

como sempre você me ajudam, e espero que posso ajudar a todos,

em outras dúvidas que eu saiba responder.

é o seguinte, vamos minha dúvida:

tenho uma exibição das informações do meu banco,

preciso que ele só exiba os vamos dá um exemplo 5 ultimos,

ai tenha uma botão para avançar, e mostrar mais 5 na seguencia,

ai apareça um botão voltar. e assim por diante.

Segue abaixo o código que eu estou usando para exibição!!!!

<% while home.eof = false
	cod = home.Fields("cod_noticia")
	titulo = home.Fields("titulo_noticia")
	desc = mid(home.Fields("desc_noticia"),1,600) %>
			<tr>
			  <td><strong><%=titulo%></strong></td>
			</tr>
			<tr>
			  <td><%=desc%>... <a href="artigos_full.asp?cod=<%=cod%>" class="font_master">Veja Mais</a></td>
			</tr>
			<tr>
			  <td><hr /></td>
			</tr>
			<% home.movenext
			wend %>

Obrigado a todos...

--

José Luiz R. Souza Junior

Programador & Designer

dataset · Dezembro 6, 2007

Veja esse link do Imasters... Paginação sem Mistérios:

http://www.imasters.com.br/artigo/1287/asp..._sem_misterios/

Qualquer dúvida, posta aí ...

Att;

Zé Luiz - Dainet · Dezembro 6, 2007

Obrigado.

segue a conclusão, para outro usuarios com duvida.

Grato.

<!--
/*#############################################################

Name: Noria - Home
Date: 2007-12-04
Hour: 11:49:53 AM
Description: Home do Site Noria.
Programer: José Luiz R. Souza Junior
Design: Noria.Com
URL: http://dainet.com.br
E-Mail: zeluiz@dainet.com.br

Todos os direitos reservados a Dainet.
#############################################################*/
-->
<%
	'*/// Conexão com o banco de dados + Select ///*
	
	DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
	DSNtemp=dsntemp & "DBQ=D:/Websites/noria.com/br/novo-br/NORIA/dados/dados.mdb;Driver={Microsoft Access Driver (*.mdb)};"
	sqlstmt = "SELECT * FROM tbl_noticias order by cod_noticia desc"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sqlstmt, DSNtemp, 3, 3
	totalrecs = rs.recordcount
	
	paginal = "artigos_all.asp"					'página de envio do formulário.
	
	if request("exibir") <>"" then				'se não tiver o Exibir do COMBO por default é 10
	parametro = request("exibir")
	rs.pagesize = parametro
	else
	response.Redirect(pagina1&"?exibir=5")		'Verifica se é 1º acesso ou não.
	end if										'Caso for, vai dar um Redirect para exibir 10 registros por página.
	
	if (request("pagina")<>"") then				'Verifica se é 1º acesso ou não.
	pagina = cint(request("pagina"))			'se não página na QUERYSTRING por default é 1
	else
	pagina = 1
	end if
	
	if request("pagina") <>"" then				'Verifica se é 1º acesso ou não.
	j = request("pagina")						'J é a variável que diz a página que está.
	else
	j = 1
	end if 
	
	if request("variavel") <>"" then			'Verifica se é 1º acesso ou não.
	variavel = request("variavel")
	else
	variavel = j + 10							'Mostra os registros do primeiro acesso 1 + 10.
	end if

	rs.Absolutepage = pagina
	if not (rs.eof and rs.bof) then
	
%>
<html>
<head>
<title>Lubrificação, Análise de Óleo e Confiabilidade - Noria Brasil</title>
<link rel="shortcut icon" type="image/x-icon" href="image/favoicon.gif">
<META name="Title" content="Lubrication, oil analysis and reliability experts.">
<META name="keywords" content="lubrication, oil analysis, reliability, predictive maintenance, tribology, maintenance,lubrication, Noria">
<META name="Description" content="Publishers of Machinery Lubrication and Practicing Oil Analysis magazines">
<META name="Title" content="Lubrication and oil analysis experts.">
<META name="keywords" content="oil analysis, predictive maintenance, tribology, maintenance,lubrication, Noria">
<META name="Description" content="Publishers of Machinery Lubrication and Practicing Oil Analysis magazines">
<META name="Title" content="Oil Analysis Noria Tribology Predictive Maintenance">
<META name="keywords" content="oil analysis, predictive maintenance, tribology, maintenance,lubrication, Noria">
<META name="Description" content="Oil Analysis on the web. The premier resource for tribology, lubrication and predictive maintenance information.">
<link href="css/noria.css" rel="stylesheet" type="text/css">
</head>
<body>

<table width="751" border="0" cellspacing="0" cellpadding="0">
  <tr>
	<td colspan="2">
	<table border="0" cellpadding="0" cellspacing="0" width="751">
  <!-- fwtable fwsrc="topo_internos.png" fwbase="top_internas.jpg" fwstyle="Dreamweaver" fwdocid = "858287944" fwnested="0" -->
  <tr>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="150" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="29" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="33" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="20" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="77" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="35" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="42" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="33" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="42" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="19" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="33" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="21" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="25" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="3" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="31" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="11" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="23" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="9" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="26" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="6" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="19" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="35" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="24" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="5" height="1" border="0" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="1" height="1" border="0" /></td>
  </tr>
  <tr>
	<td rowspan="2"><img name="top_internas_r1_c1" src="image/top/top_internas_r1_c1.jpg" width="150" height="47" border="0" id="top_internas_r1_c1" alt="" /></td>
	<td colspan="8"><img name="top_internas_r1_c2" src="image/top/top_internas_r1_c2.jpg" width="311" height="28" border="0" id="top_internas_r1_c2" alt="" /></td>
	<td colspan="3"><img name="top_internas_r1_c10" src="image/top/top_internas_r1_c10.jpg" width="73" height="28" border="0" id="top_internas_r1_c10" alt="" /></td>
	<td><img name="top_internas_r1_c13" src="image/top/top_internas_r1_c13.jpg" width="25" height="28" border="0" id="top_internas_r1_c13" alt="" /></td>
	<td colspan="3"><a href="contato.asp"><img name="top_internas_r1_c14" src="image/top/top_internas_r1_c14.jpg" width="45" height="28" border="0" id="top_internas_r1_c14" alt="" /></a></td>
	<td><img name="top_internas_r1_c17" src="image/top/top_internas_r1_c17.jpg" width="23" height="28" border="0" id="top_internas_r1_c17" alt="" /></td>
	<td colspan="2"><a href="busca.asp"><img name="top_internas_r1_c18" src="image/top/top_internas_r1_c18.jpg" width="35" height="28" border="0" id="top_internas_r1_c18" alt="" /></a></td>
	<td colspan="2"><img name="top_internas_r1_c20" src="image/top/top_internas_r1_c20.jpg" width="25" height="28" border="0" id="top_internas_r1_c20" alt="" /></td>
	<td colspan="2"><img name="top_internas_r1_c22" src="image/top/top_internas_r1_c22.jpg" width="59" height="28" border="0" id="top_internas_r1_c22" alt="" /></td>
	<td><img name="top_internas_r1_c24" src="image/top/top_internas_r1_c24.jpg" width="5" height="28" border="0" id="top_internas_r1_c24" alt="" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="1" height="28" border="0" /></td>
  </tr>
  <tr>
	<td><img name="top_internas_r2_c2" src="image/top/top_internas_r2_c2.jpg" width="29" height="19" border="0" id="top_internas_r2_c2" alt="" /></td>
	<td><a href="default.asp"><img name="top_internas_r2_c3" src="image/top/top_internas_r2_c3.jpg" width="33" height="19" border="0" id="top_internas_r2_c3" alt="" /></a></td>
	<td><img name="top_internas_r2_c4" src="image/top/top_internas_r2_c4.jpg" width="20" height="19" border="0" id="top_internas_r2_c4" alt="" /></td>
	<td><a href="treinamento.asp"><img name="top_internas_r2_c5" src="image/top/top_internas_r2_c5.jpg" width="77" height="19" border="0" id="top_internas_r2_c5" alt="" /></a></td>
	<td><img name="top_internas_r2_c6" src="image/top/top_internas_r2_c6.jpg" width="35" height="19" border="0" id="top_internas_r2_c6" alt="" /></td>
	<td><a href="artigos.asp"><img name="top_internas_r2_c7" src="image/top/top_internas_r2_c7.jpg" width="42" height="19" border="0" id="top_internas_r2_c7" alt="" /></a></td>
	<td><img name="top_internas_r2_c8" src="image/top/top_internas_r2_c8.jpg" width="33" height="19" border="0" id="top_internas_r2_c8" alt="" /></td>
	<td colspan="2"><img name="top_internas_r2_c9" src="image/top/top_internas_r2_c9.jpg" width="61" height="19" border="0" id="top_internas_r2_c9" alt="" /></td>
	<td><img name="top_internas_r2_c11" src="image/top/top_internas_r2_c11.jpg" width="33" height="19" border="0" id="top_internas_r2_c11" alt="" /></td>
	<td colspan="3"><img name="top_internas_r2_c12" src="image/top/top_internas_r2_c12.jpg" width="49" height="19" border="0" id="top_internas_r2_c12" alt="" /></td>
	<td><img name="top_internas_r2_c15" src="image/top/top_internas_r2_c15.jpg" width="31" height="19" border="0" id="top_internas_r2_c15" alt="" /></td>
	<td colspan="3"><img name="top_internas_r2_c16" src="image/top/top_internas_r2_c16.jpg" width="43" height="19" border="0" id="top_internas_r2_c16" alt="" /></td>
	<td colspan="2"><img name="top_internas_r2_c19" src="image/top/top_internas_r2_c19.jpg" width="32" height="19" border="0" id="top_internas_r2_c19" alt="" /></td>
	<td colspan="2"><img name="top_internas_r2_c21" src="image/top/top_internas_r2_c21.jpg" width="54" height="19" border="0" id="top_internas_r2_c21" alt="" /></td>
	<td colspan="2"><img name="top_internas_r2_c23" src="image/top/top_internas_r2_c23.jpg" width="29" height="19" border="0" id="top_internas_r2_c23" alt="" /></td>
	<td><img src="image/top/spacer.gif" alt="" name="undefined_2" width="1" height="19" border="0" /></td>
  </tr>
</table></td>
  </tr>
  <tr>
	<td colspan="2"><img src="image/artigos_top.jpg" width="751" height="70" /></td>
  </tr>
	<tr>
	<td height="20" colspan="2" align="center" bgcolor="dadada" class="font_master">
	<a href="http://www.noria.com" class="font_master">Inglês</a> | 
	<a href="http://www.noria.com/sp" class="font_master">Espanhol</a> | 
	<a href="http://www.nippon-noria.com/" class="font_master">Japonês</a> </td>
  </tr>
	<tr>
	  <td width="571" valign="top" class="font_master"><br>
		<table width="571" border="0" align="center" cellpadding="0" cellspacing="0">
		<tr>
		  <td class="font_master"><div align="right">
<form name="formulario" action="<%=pagina1%><%if exibir <> "" then %>?exibir=<%request("exibir")%><% else %>?exibir=10<% end if%>" id="formulario">
  <span class="style2">Você está na página <b><%=pagina %></b> de <b><%=rs.pagecount %></b>     </span>
  <select name="exibir" class="style1">
	<option value="5" <% tag = "" %><%	if (request("exibir")) = "5" then 	tag = " selected "	end if	%> <%=tag%>>5 por página</option>
	<option value="10" <% tag = "" %><% if (request("exibir")) = "10" then	tag = " selected "	end if	%> <%=tag%>>10 por página</option>
	<option value="30" <% tag = "" %><%	if (request("exibir")) = "30" then	tag = " selected "	end if	%> <%=tag%>>30 por página</option>
	<option value="50" <% tag = "" %><% if (request("exibir")) = "50" then	tag = " selected "	end if	%> <%=tag%>>50 por página</option>
  </select>
  <input type="submit" class="style1" value="Exibir" />
</form>
</div>
<%
	
	x = 0 
	for x = 1 to rs.pagesize
		if rs.eof then
	exit for

else
	
	id = rs("cod_noticia")
%>
	<table width="96%" align="center">
	  <tr><td class="font_master"><table width="95%" border="0" align="center" cellpadding="2" cellspacing="2" class="font_master">
		<tr>
		  <td width="98%"><strong><%=rs("titulo_noticia")%></strong></td>
		</tr>
		<tr>
		  <td><%=mid(rs("desc_noticia"),1,300)%>... <a href="artigos_full.asp?cod=<%=id%>" class="font_master">Veja Mais</a></td>
		</tr>
		<tr>
		  <td><hr /></td>
		</tr>
	  </table></td>
	  <td bgcolor="#FFFFFF"><img src="spacer.gif" width="1" height="2"></td>
</tr></table>
<%

		rs.MoveNext 
		end if

	next
%>
<%

	if j = variavel then						'Incrementa os registros na variável ao clicar no: (10, 20 e etc...)
		variavel = variavel + 10
	else
		if int(j) < (variavel-10) then			'Decrementa os registros na variável ao Voltar.
			variavel = variavel - 10
		end if
	end if
		
	if int(variavel) >= int(rs.pagecount) then	'Verifica se a variavel está no fim, se estiver ele troca a soma 10 para rs.pagecount (final do arquivo)
		variavel = rs.pagecount
	end if
	
	if int(j) < 10 then							'faz o sistema fixa os 9 primeiros números antes da Página Atual (de 1 a 10)
		j = 1
	else
		j = j - 9
	end if

	response.write "<table cellspacing=""0"" width=""96%"">"
	response.write "  <tr class=""font_master"">"
	response.write "	<td align=""left"" width=""20%"">"

	if pagina <> 1 then	
		response.write "<a href=" & paginal & "?pagina=1&exibir=" & parametro & "&variavel=10><< </a>   "
		response.write "<a href="& paginal &"?pagina=" & pagina-1 & "&exibir=" & parametro & "&variavel="& pagina-1 & ">< </a>"
	end if

	response.write "	</td>"
	response.write "	<td align=""center"" width=""60%"" class=""font_master"">"

	for j = j to variavel						'calcula a paginação.		
		if j = 1 then		
			if pagina = j then
				response.write " <span class=font_maste><b><a href=" & paginal & "?pagina=1&exibir=" & parametro & "&variavel=10>"& j &"</a></b></span>"
			else
				response.write " <a href=" & paginal & "?pagina=1&exibir=" & parametro & "&variavel=10>"& j &"</a>"
			end if
		else		
			if pagina = j then
				response.write " <span class=font_maste><b><a href=" & paginal & "?pagina=" & j & "&exibir=" & parametro & "&variavel="& variavel & ">"& j &"</a></b></span> "
			else
				response.write " <a href=" & paginal & "?pagina=" & j & "&exibir=" & parametro & "&variavel="& variavel & ">"& j &"</a>"
			end if			
		end if
	next

	response.write "</td>"
	response.write "<td align=""right""  width=""20%"">"

	 if pagina <> rs.Pagecount then	
		response.write "<a href=" & paginal & "?pagina=" & pagina+1 &"&exibir=" & parametro & "&variavel="& pagina+1 & "> ></a>   "
		response.write "<a href=" & paginal & "?pagina=" & rs.pagecount &"&exibir=" & parametro & "&variavel="& rs.pagecount & "> >></a>"	
	 end if  

end if
	response.write "</td>"
	response.write "</tr>"
	response.write "</table>"
%></td>
		</tr>
	  </table>
	  <br></td>
	  <td width="180" valign="top" class="font_master"><br>
		<table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
		<tr>
		  <td height="25" align="center" bgcolor="#666666" class="font_master" id="branco"><strong>NEWSLETTER</strong></td>
		</tr>
		<tr>
		  <td bgcolor="efefef"><br>
			<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
			  <tr>
				<td class="font_master">Nome: </td>
				<td align="center" class="font_master"><input name="textfield" type="text" id="textfield" size="8"></td>
			  </tr>
			  <tr>
				<td colspan="2" class="font_master"><img src="image/spacer.gif" width="15" height="15"></td>
			  </tr>
			  <tr>
				<td class="font_master">E-Mail: </td>
				<td align="center" class="font_master"><input name="textfield2" type="text" id="textfield2" size="8"></td>
			  </tr>
			  <tr>
				<td colspan="2" align="center"><span class="font_master"><img src="image/spacer.gif" width="15" height="15"></span></td>
			  </tr>
			  <tr>
				<td colspan="2" align="center"><input name="enviar" type="image" src="image/cadastrar.jpg"></td>
			  </tr>
			  <tr>
				<td colspan="2" align="center" class="font_master" id="small"><img src="image/spacer.gif" width="10" height="10"></td>
			  </tr>
			  <tr>
				<td colspan="2" align="center"><strong><em><a href="#" class="font_master" id="small3">cancelar newsletter</a></em></strong></td>
			  </tr>
			  <tr>
				<td colspan="2" align="center" class="font_master" id="small"><img src="image/spacer.gif" width="10" height="10"></td>
			  </tr>
			  <tr>
				<td colspan="2" align="center" class="font_master" id="small3">Nós nunca compartilhamos, alugamos ou vendemos endereços de e-mail.</td>
			  </tr>
		  </table>			
		  <br></td>
		</tr>
	  </table></td>
	</tr>
	<tr>
	  <td colspan="2" align="center" class="font_master" id="small3">
			<hr>
	  Home | Busca | Oportunidades de Carreira | Sobre | Contato <br />
	  ©2006 - Noria Corporation. Todos os Direitos Reservados.	  </td>
	</tr>
</table>
</body>
</html>

Abraços a todos.

Entrar

Arquivado

[Resolvido] Paginação

Recommended Posts

Zé Luiz - Dainet 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dataset 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Zé Luiz - Dainet 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida referente a PDV

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante