Ir para conteúdo

POWERED BY:

Arquivado

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

Gilberto Jr

Erro no fim da paginação

Por , em ASP Clássico

Recommended Posts

Gilberto Jr    26

Gilberto Jr
Postado

@@descricaodorock

boa noite pessoal, eu fiz uma pagina e foi simples mostrar os dados na tela e fazer o link e proximo e anterior e tals. so que o seguinte, eu estava navegando nas paginas e quando eu chego no ultimo arquivo, ou seja na ultima pagina o link Anterior | Proximo eles ficam desordenados e eu fiz tambem pra ele contar a quantidade de paginas tipo Pagina 1 de 50 mas quando chega na ultima pagina ao inves do link Anterior | Próximo ficar dessa forma ele fica PróximoAnterior | como mostra a imagem Imagem Postada e a quantida de pagina ao inves de ficar Pagina 50 de 50 fica Pagina 1 de 50como mostra a imagem Imagem Postada.

 

 

abaixo vai o codigo onde tem o link anterior e proximo.

<%
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<a href="default.asp?pagina=<%=intpagina + 1%>"> Próximo</a>
<%
else
response.Write(" Próximo")
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF intpagina > 1 then
%>
	<a href="default.asp?pagina=<%=intpagina - 1%>">Anterior | </a>
<%
else
response.Write("Anterior | ")
END IF
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

bom dia,

segue o codigo completo.

<!--#include file="config.asp" -->
<%
	call connect
	
	dim rodape, noticia
%>
<%
dim id, Codigo
id = request.QueryString("id")
Codigo = request.QueryString("Codigo")
caminho = "D:\sites\piloto\dados\Rossi.mdb"
'caminho = server.MapPath("../dados/atec.mdb")
set Conn = server.CreateObject("ADODB.Connection")
		
Conn.connectionstring="driver={Microsoft Access Driver (*.mdb)};Dbq="&caminho
Conn.open

Set RS = Server.CreateObject("adodb.recordset")
RS.pagesize=10
SQL = "SELECT * FROM Cadastro"
RS.Open SQL,Conn,3,3
total  = RS.PageCount
primeira = total-total
totalg = RS.PageCount
IF RS.EOF then
   Response.Write "nenhum registro encontrado"
   Response.End 'paramos o programa
ELSE
   'Definindo em qual pagina o visitante está
   IF Request.QueryString("pagina")="" then
      intpagina=1
   ELSE
      IF cint(Request.QueryString("pagina"))<1 then
         intpagina=1
      ELSE
         IF cint(Request.QueryString("pagina"))> RS.PageCount then
            intpagina=RS.PageCount
         ELSE
            intpagina=Request.QueryString("pagina")
         END IF
      END IF
   END IF
END IF
%>

<!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-1" />
<title>ROSSI -  PRODUTOS</title>
<link href="css_js/geral.css" type="text/css" rel="stylesheet" media="all" />
<style type="text/css">
@media print
{
#principal
{
border:1px solid #000;
width:19cm;
height:auto;
display:table;
}
	#imprimir img
	{
	display:none;	
	}
	#titulo-relatorio
	{
		margin:5px auto;
/*		padding:10px;*/
		text-align:center;
/*		font-family:Arial, Helvetica, sans-serif;
		font-size:25px;*/
	/*	color:#FFFFFF;*/
		width:788px;
		height:51px;
/*		font-weight:bold;*/
/*		background-color:#d21f35;*/
		/*border:1px solid #000099;*/
}
	#conteudo
	{
		width:20.9cm;
		height:24cm;
		margin:5px auto;
		/*border:1px solid #666666;*/
		font-family:Arial, Helvetica, sans-serif;
		font-size:12px;
	}
	
	#paginacao img
	{
		width:788px;
		height:30px;
		margin-bottom:3px;
		/*margin:5px auto;*/
/*		font-weight:bold;
		color:#FFFFFF;
		background-color:#d21f35;*/
		/*border:1px #33CC00 solid;*/
	}
	
	#total-paginas
	{
	display:none;
	}
	#anterior-proximo
	{
	display:none;
	}
	
	#logo img
	{
	width:10cm;
	height:100px;
	}
	.foto-produto img
	{
	height:150px;
	height:150px;
	}
	
	.chamada-produto
	{
	width:200px;
	height:auto;
	vertical-align:top;
	border:dashed 2px #ccc;
	}
}

</style>
<script language="JavaScript1.2">
function  DoPrinting() {
    if (!window.print) {
        alert("Netscape, Internet Explorer 4.0 ou superior!")
        return
    }
	window.print();
	//window.logo.style.display="none";
}
</script>
</head>

<body>
<div id="principal">
	<div id="topo">
		<div id="logo">
			<img src="img/rossi_vermelho_sem_site.jpg" />
		</div>
		
		<div id="imprimir">
			<a href="#" onclick="DoPrinting();"><img src="img/impressora.gif" border="0" /></a>
			<!--Imprimir-->
		</div>
		
		<div id="data-hora">
		
			DATA:<%=Date%><br>
			HORA:<%=Time%>
		</div>
	</div>
	
	<div id="titulo-relatorio">
		<img src="img/b_topo.gif" />
	</div>
	
	<div id="conteudo">
	
<%
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados
intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
response.Write "<table border='0'><tr><td class='foto-produto' rowspan='4'><img src='img/"&RS("Local_Arquivo")&"/"&RS("Setor_Arquivo")&"/"&RS("Foto")&"' /></td><td class='chamadas-produtos'>"&RS("Item")&"</td></tr><tr><td class='chamadas-produtos'>Quantidade: "&RS("Quantidade")&"</td></tr><tr><td class='chamadas-produtos'>Setor: "&RS("Setor")&"</td></tr><tr><td class='chamadas-produtos'>Local: "&RS("Local")&"</td></tr></table>"
'---------------------------------------------------------------------------------------------
   RS.MoveNext


   ' Acrescenta +1 ao contador
   intrec=intrec+1
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then
      response.write " "
   END IF
Wend 'fim do loop
%>
</div>

	<div id="paginacao">
		<div id="total-paginas">
			Pagina
			<%
			if cint(Request.QueryString("pagina"))> RS.PageCount <> total then
			
			if strcomp(intpagina,RS.PageCount)=0 then
			response.Write("1")
			elseif strcomp(intpagina,RS.PageCount)<>0 then
			response.Write((intpagina-1)+1)
			end if
			
			else
			response.Write(total)
			end if
			%> de <%=total%>
		</div>
		
		<div id="anterior-proximo">
		<%
			'response.Write(totalg)
		%>
<table border="0">
  <tr>
    <td>
<%
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<a href="default.asp?pagina=<%=intpagina + 1%>"> Próximo</a>
<%
else
response.Write(" Próximo")
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF intpagina > 1 then
%>
	<a href="default.asp?pagina=<%=intpagina - 1%>">Anterior | </a>
<%
else
response.Write("Anterior | ")
END IF
%>
<!--muda o link-->
</td>
  </tr>
</table>
</div>
	<img src="img/b_rodape.gif" />
	</div>
	
</div>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele não gera nenhum erro !?!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

existem alguns ótimos exemplos no lab. onde você pode ver a lógica e comparar com sua aplicação, pode te ajudar

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Olhando assim tb não consigo ver aonde pode esta esse erro, teria que testar isso ai localmente, sugiro que busque outros exemplos de paginação como sugerido pelo Xam.

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