aí PESSOAL TO FAZENDO UMA PAGINAÇÃO E APARECE SEMPRE O MESMO REGISTRO
VEJAM:
<%
id = request.querystring("id")
pagina = request.QueryString("pagina")
%>
<!--#include file="funcoes_asp/gamela.asp"-->
<!--#include file="funcoes_asp/selecionabanner468.asp"-->
<%
'---------------------------------------------------------------------
'Criando o sql e abrindo o objeto RS na conexao do banco de dados
'---------------------------------------------------------------------
srtSQL = "select * from torpedos"
Set rspag = Server.createobject("adodb.recordset")
rspag.open srtSQL, conex, 3,3
%>
<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>:-) Torpedos (-:</title>
</head>
<body bgcolor="#FF6600" background="imagens/back_red.jpg">
<%
'---------------------------------------------------------------------
'Definido a quantidade de registros por página
rspag.PageSize = 5
if rspag.eof then
else
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")= "" then
intpagina = 1
ELSE
'Se a pagina atual for menor que 1, então a pagina será 1
IF cint(Request.QueryString("pagina")) < 1 then
intpagina = 1
ELSE
'Se a pagina atual for maior que o numero de paginas do
'RS então a pagina atual será igual a numero total de paginas(ultima)
IF cint(Request.QueryString("pagina")) > rspag.PageCount then
intpagina = rspag.PageCount
ELSE
'caso contrário a pagina atual será aquela enviado pelo parametro
intpagina = Request.QueryString("pagina")
'Fim das verificações de exceções
END IF
END IF
END IF
END IF
'---------------------------------------------------------------------
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
rspag.AbsolutePage = intpagina
'---------------------------------------------------------------------
'Inicia o contador que vai controlar os registros mostrados
contador = 0
'---------------------------------------------------------------------
While not rspag.EOF AND contador < rspag.PageSize
%>
<table border="0" width="479" id="table1" height="70" style="border-left-width: 1px; border-right-width: 1px; border-top-style: dotted; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px">
<tr>
<td width="71" rowspan="3" height="65" valign="middle">
<p align="center">
<a target="_blank" href="profile.asp?id=">
<img border="0" src="" width="66" height="66"></a></td>
<td colspan="3" height="23"><b>
<font face="Verdana" size="1" color="#FFFFCC">DE: - Em: <%=rspag("data")%></font></b></td>
</tr>
<tr>
<td width="389" height="23" colspan="3" bordercolorlight="#FFFFCC" bordercolordark="#FFFFCC">
</td></font>
</tr>
<tr>
<td width="314" height="24"><b>
<font face="Verdana" size="1" color="#FFFFCC">O que deseja fazer com o
torpedo?</font></b></td>
<td width="43" height="24">
<p align="center">
<a href="torpedos.asp?act=delete&idt=<%=rspag("id")%>">
<img border="0" src="imagens/apagar.jpg" width="32" height="32" alt="APAGAR TORPEDO"></a></td>
<td width="43" height="24">
<p align="center"><a href="torpedos.asp?act=send&idt=<%=rspag("id")%>">
<img border="0" src="imagens/responder.jpg" width="32" height="32" alt="RESPONDER TORPEDO"></a></td>
</tr>
</table>
<%
'Acrescenta 1 ao contador
contador = contador + 1
'---------------------------------------------------------------------
Wend
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<table border="0" width="479" height="37">
<tr>
<td>
<p align="center">
<font face="Verdana" size="2">
<a href = "torpedos.asp?pagina=<%= intpagina - 1%>&id=<%=id%>">
<font color="#FFFF00"><< Anterior</font></a><font color="#FFFF00"> |
<%
END IF
%>
</font>
<font color="#FFFF00">
<%
'---------------------------------------------------------------------
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina, rspag.PageCount) <> 0 then
%>
| </font> <a href="torpedos.asp?pagina=<%= intpagina + 1%>&id=<%=id%>">
<font color="#FFFF00">Próxima >></font></a></font></p>
</td>
</tr>
</table>
<%
End if
Conex.close
Set Conex = nothing
set rspag = nothing
set rsuser = nothing
%>
</body>
</html>
Pergunta
DELPHI-Man32
aí PESSOAL TO FAZENDO UMA PAGINAÇÃO E APARECE SEMPRE O MESMO REGISTRO
VEJAM:
<% id = request.querystring("id") pagina = request.QueryString("pagina") %> <!--#include file="funcoes_asp/gamela.asp"--> <!--#include file="funcoes_asp/selecionabanner468.asp"--> <% '--------------------------------------------------------------------- 'Criando o sql e abrindo o objeto RS na conexao do banco de dados '--------------------------------------------------------------------- srtSQL = "select * from torpedos" Set rspag = Server.createobject("adodb.recordset") rspag.open srtSQL, conex, 3,3 %> <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>:-) Torpedos (-:</title> </head> <body bgcolor="#FF6600" background="imagens/back_red.jpg"> <% '--------------------------------------------------------------------- 'Definido a quantidade de registros por página rspag.PageSize = 5 if rspag.eof then else 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")= "" then intpagina = 1 ELSE 'Se a pagina atual for menor que 1, então a pagina será 1 IF cint(Request.QueryString("pagina")) < 1 then intpagina = 1 ELSE 'Se a pagina atual for maior que o numero de paginas do 'RS então a pagina atual será igual a numero total de paginas(ultima) IF cint(Request.QueryString("pagina")) > rspag.PageCount then intpagina = rspag.PageCount ELSE 'caso contrário a pagina atual será aquela enviado pelo parametro intpagina = Request.QueryString("pagina") 'Fim das verificações de exceções END IF END IF END IF END IF '--------------------------------------------------------------------- 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta rspag.AbsolutePage = intpagina '--------------------------------------------------------------------- 'Inicia o contador que vai controlar os registros mostrados contador = 0 '--------------------------------------------------------------------- While not rspag.EOF AND contador < rspag.PageSize %> <table border="0" width="479" id="table1" height="70" style="border-left-width: 1px; border-right-width: 1px; border-top-style: dotted; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"> <tr> <td width="71" rowspan="3" height="65" valign="middle"> <p align="center"> <a target="_blank" href="profile.asp?id="> <img border="0" src="" width="66" height="66"></a></td> <td colspan="3" height="23"><b> <font face="Verdana" size="1" color="#FFFFCC">DE: - Em: <%=rspag("data")%></font></b></td> </tr> <tr> <td width="389" height="23" colspan="3" bordercolorlight="#FFFFCC" bordercolordark="#FFFFCC"> </td></font> </tr> <tr> <td width="314" height="24"><b> <font face="Verdana" size="1" color="#FFFFCC">O que deseja fazer com o torpedo?</font></b></td> <td width="43" height="24"> <p align="center"> <a href="torpedos.asp?act=delete&idt=<%=rspag("id")%>"> <img border="0" src="imagens/apagar.jpg" width="32" height="32" alt="APAGAR TORPEDO"></a></td> <td width="43" height="24"> <p align="center"><a href="torpedos.asp?act=send&idt=<%=rspag("id")%>"> <img border="0" src="imagens/responder.jpg" width="32" height="32" alt="RESPONDER TORPEDO"></a></td> </tr> </table> <% 'Acrescenta 1 ao contador contador = contador + 1 '--------------------------------------------------------------------- Wend 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <table border="0" width="479" height="37"> <tr> <td> <p align="center"> <font face="Verdana" size="2"> <a href = "torpedos.asp?pagina=<%= intpagina - 1%>&id=<%=id%>"> <font color="#FFFF00"><< Anterior</font></a><font color="#FFFF00"> | <% END IF %> </font> <font color="#FFFF00"> <% '--------------------------------------------------------------------- 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina, rspag.PageCount) <> 0 then %> | </font> <a href="torpedos.asp?pagina=<%= intpagina + 1%>&id=<%=id%>"> <font color="#FFFF00">Próxima >></font></a></font></p> </td> </tr> </table> <% End if Conex.close Set Conex = nothing set rspag = nothing set rsuser = nothing %> </body> </html>ESSE E O CODIGO
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.