Ir para conteúdo
Fórum Script Brasil
  • 0

Paginação


shelter

Pergunta

2 respostass a esta questão

Posts Recomendados

  • 0

ESTOU aqui PARA AJUDAR...

cara você poderá ver como este script funciona nes página:

http://i.1asphost.com/teajudo/livro/ver_livro.asp?pagina=1

e aqui vem o código... é só você adaptar...

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Vendo Mensagem do site</title>
</head>

<body>

<%if request.querystring("enviado") = "ok" then%>
<div align="center">
  <center>
<table border="0" width="500" cellpadding="0">
  <tr>
    <tudo width="100%" align="center" style="color:#FF0000">
    A sua mensagem foi postada com sucesso, por&eacute;m o administrador
    do site vai v&ecirc;-la primeiro antes de ela ir para o ar!
    </tudo>
  </tr>
</table>
  </center>
</div>
<%end if%>
<%
'--------------------------------------------------------------------------
'Aqui vem todos os dados da paginacao                                     #
'--------------------------------------------------------------------------
TamanhoDaPagina = 2
pagina = request.querystring("pagina")

if pagina = "" then
    pagina = CInt("1")
else
    pagina = CInt(request.querystring("pagina"))
end if
'--------------------------------------------------------------------------
vendo = "1"

Set rs = Server.CreateObject("ADODB.RecordSet")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb")
SQL = "SELECT * FROM mensagem WHERE ver = '"& vendo &"' ORDER BY id DESC"
rs.Open SQL, DSN, 3, 3

TotaldePaginas = CInt(rs.RecordCount/TamanhoDaPagina)
rs.PageSize= TamanhoDaPagina

if not rs.EOF then
    rs.AbsolutePage = pagina
    
for x = 1 to TamanhoDaPagina
if rs.EOF then exit for%>
<div align="center">
  <center>
<table border="0" width="500" cellspacing="1" cellpadding="0">
  <tr>
    <tudo width="116" valign="middle" align="right"><b>Nome:</b></tudo>
    <tudo width="368" valign="top" align="left"><%=rs("nome")%></tudo>
  </tr>
  <tr>
    <tudo width="116" valign="middle" align="right"><b>E-mail:</b></tudo>
    <tudo width="368" valign="top" align="left"><%=rs("email")%></tudo>
  </tr>
  <%if rs("site") = "0" or rs("site") = "" or rs("site") = "http://" then
  else%>
  <tr>
    <tudo width="116" valign="middle" align="right"><b>Site:</b></tudo>
    <tudo width="368" valign="top" align="left"><a href="http://<%=rs("site")%>" target="_blank"><%=rs("site")%></a></tudo>
  </tr>
  <%end if%>
  <tr>
    <tudo width="116" valign="top" align="right"><b>Mensagem:</b></tudo>
    <tudo width="368" valign="top" align="left"><%=rs("msg")%></tudo>
  </tr>
  <tr>
    <tudo width="484" valign="top" align="right" colspan="2">
      <table border="0" width="100%" cellspacing="1" cellpadding="0">
        <tr>
          <tudo width="25%" align="right"><b>Data</b>:</tudo>
          <tudo width="25%" align="left"><%=rs("data")%></tudo>
          <tudo width="25%" align="right"><b>Hora:</b></tudo>
          <tudo width="25%" align="left"><%=rs("hora")%></tudo>
        </tr>
        <tr>
          <tudo width="100%" align="right" colspan="4"><hr></tudo>
        </tr>
      </table>
    </tudo>
  </tr>
</table>
  </center>
</div>
<%rs.MoveNext
Next
'end if do absolute page
end if%>
<br>
<div align="center">
  <center>
<table border="0" width="500" cellspacing="1" cellpadding="0">
  <tr>
    <tudo width="100" valign="middle" align="right">
    <%if pagina <> 1 then
    response.write "<a href=""ver_livro.asp?pagina="& pagina - 1 &""">P&aacute;gina Anterior</a>"
    end if%>
    </tudo>
    <tudo width="300" align="center">
    <div id="pagg0">
    <%for y = 1 to TotaldePaginas
    if pagina <> y then
        response.write " <a href=""ver_livro.asp?pagina=" & y & """>" & y & "</a>"
    else
        response.write " "& y &" "
    end if
next%></div>
    </tudo>
    <tudo width="100" valign="middle" align="left">
    <%if pagina < TotaldePaginas then
    response.write "<a href=""ver_livro.asp?pagina="& pagina + 1 &""">Pr&oacute;xima P&aacute;gina</a>"
    end if%></tudo>
  </tr>
</table>
  </center>
</div>

</body>

</html>

Se você não entender poderá pedir ajuda... falou?

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...