Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

D-Patrick

Inserir próxima página e página anterior em um código já pronto

Por , em ASP Clássico

Recommended Posts

D-Patrick    0

D-Patrick
Postado

Olá,

Galera não entendo nada de ASP, estou fazendo o reedesign de um site e como o site é antigo não consigo contato com o programador.

O lance é o seguinte, o código já está funcionando porem preciso criar um << Anterior e Next>> na navegação da paginação do Recordset oRs.

Olhei alguns códigos aki, mas não consegui adaptar.

Segue o código eu preciso inserir um Página anterior e próxima página quem puder ajudar eu agradeço boa sorte e sucesso sempre.

 

<% 
option explicit 
%> 
<!--#include file="lib/site.asp" -->
<!--#include file="lib/util.asp" -->

<%
DIM oRs, oRs2, oConn, strSQL
DIM i, dia, mes, ano, noticiaID 

DIM PaginaAtual, TotalPaginas, PaginaDe
DIM PaginaAte, Contador 
DIM intpagina, pg,vPageSize
DIM TotalRegistros

vPageSize = 10

noticiaID = Request.QueryString("noticiaID")

Call page_load() 

strSQL = "SELECT * FROM noticias WHERE categoria = 1 ORDER BY noticiaID DESC"
oRs.open strSQL, oConn, 1 

If noticiaID <> "" Then 
	strSQL = "SELECT * FROM noticias WHERE noticiaID ="& noticiaID 
Else 
	strSQL = "SELECT * FROM noticias WHERE categoria = 1 ORDER BY noticiaID DESC "
End If 
oRs2.open strSQL, oConn, 1

'Paginação de Dados
If Not oRs.EOF Then

	PaginaAtual = Request("pg")
	If Not ereg("^[0-9]+$", PaginaAtual) Then
		PaginaAtual = 1
	End If
	PaginaAtual = CInt(PaginaAtual)
	If PaginaAtual = 0 Then PaginaAtual = 1
	
	If Not oRs.EOF Then
		oRs.PageSize = 1
		oRs.CacheSize = 1
		oRs.AbsolutePage = PaginaAtual
		TotalPaginas = oRs.PageCount
		TotalRegistros = oRs.RecordCount
	End If

PaginaDe = PaginaAtual - 2
PaginaAte = PaginaAtual + 2
If PaginaDe < 1 Then PaginaDe = 1
If PaginaAte > TotalPaginas Then PaginaAte = TotalPaginas
	
End If

%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>

<div id="menulateral">
	<ul>
	<li><strong>Últimas Notícias</strong></li>
<% 
			  contador = 0 
			  Do While not oRs.eof AND contador <= 4 
				 ano = year(oRs("data"))
			 	 dia = day(oRs("data"))
			 	 mes = Month(oRs("data"))
				 contador =  contador + 1
			 
				  Print "<li><a href='noticias.asp?noticiaID="& oRs("noticiaID") &"' class='link3'><span class='linknews'>"& dia &"."& mes &"."& ano &"</span> - "& oRs("chamada") &"</a></li>"
				  Print ""
								
			  oRs.MoveNext 
			  Loop 
			  oRs.close
			  %>  
			  
								  <% If TotalPaginas > 1 Then %>
								  <!--Página <%=PaginaAtual%> de <%=TotalPaginas%>.-->
								  <%For Contador = PaginaDe To PaginaAte%>
								  <%'If Contador = PaginaAtual Then%>
								  <%' Print "<span class='link2'>. <b>Contador</b></span>"%>
								  <%'Else%>
								  <a href="<%=AspSelf()%>?noticiaID=<%=noticiaID%>&pg=<%=Contador%>" class="link2"><%=Contador%></a>								  <%'End If%>
								  <%Next%>
								  <% End If %>  
								  
</ul>
</div>

<div id="conteudotextos">

<strong><%= oRs2("titulo")%></strong>
<strong><%= oRs2("texto")%></strong>

	<% 
		  If oRs2("imagem") <> "" Then 
		  Print "<tr>"
		  Print"<td valign='top' class='fonte'><img src=""../images/"& oRs2("imagem") & """ width='360'></td>"
		  Print "</tr>"
		  End If 
		  %>

</div>


</body>
</html>
<% call page_unload() %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

dâ uma pesquisada no forum por paginação, basta você setar corretamente o recordset e conexão, adicionar o codigo para exibir as páginas e uma pequena mudança no while

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

so adicionar o link e na pagina voce poe a atual + 1 para proxima e -1 para anterior

 

 

teste se é a primeira e a ultima pagina para saber se ira adicionar o link de anterior e proxima

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito