Ir para conteúdo

POWERED BY:

Arquivado

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

kaptor

Paginação em Álbum de Fotos

Por , em ASP Clássico

Recommended Posts

kaptor    0

kaptor
Postado

Falae Galera!!!Espero que estejam bem...Estou com um problema em fazer uma paginação.Estou tentando fazer uma página que tem uma tabela central com duas colunas:Na primeira coluna tem uma outra tabela que mostra os thumnails das fotos que serão exibidas nas segunda coluna da tabela maior.O caso é que eu não estou conseguindo fazer a paginação. Eu quero que na tabela de thumbs apareça 20 fotos por vez e quando clica nas pequenas abra a grande. Acho que é simples mas não estou conseguindo fazer.O que acontece é que quando eu estou nas páginas seguintes e clico em uma foto para exibir, ele sempre volta para a primeira página.Será que alguém pode me ajudar???Abrasuss a todos!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

No link para abrir a foto grande passe também o número da página que você se encontra na paginação.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Sem clicar em link para abrir a foto grande está funcionando corretamente a paginação?

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaptor    0

kaptor
Postado

estou postando o code:

 

<%Set RS_Fotos = Server.CreateObject("AdoDb.RecordSet")nomepagina = "equipe2.asp"registros = 20RS_Fotos.CacheSize = registrosRS_Fotos.PageSize = registrosSQL = "Select * from fotos_equipe"RS_Fotos.Open SQl,Conexao,3,3If RS_Fotos.Eof thenResponse.Write("Nenhum registro encontrado.")elseif Request.QueryString("pagina")="" thenpagina = 1elseif cint(Request.QueryString("pagina"))<1 thenpagina = 1elseif cint(Request.QueryString("pagina"))>RS_Fotos.PageCount thenpagina = RS_Fotos.PageCountelse pagina=Request.QueryString("pagina")end ifend ifRS_Fotos.AbsolutePage = paginacontador = 0%></head><script LANGUAGE="JavaScript" src="el_fader.js"></script><body><table width="780" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>    <td><!--#include file="topo.asp" --></td>  </tr>  <tr>    <td><!--#include file="menu.asp" --></td>  </tr>  <tr>    <td align="center" valign="top" background="fig/bg_tela.jpg"><br>      <table width="780" border="0" cellspacing="0" cellpadding="0">        <tr>          <td width="250" valign="top"><!--#include file="m_action2.asp" --></td>          <td width="520" align="center" valign="top">                 <table width="530" border="0" cellspacing="0" cellpadding="0">                    <tr>                      <td><img src="fig/tits/tit04.gif" width="350" height="30"></td>                    </tr>                 </table><br><table width="530" border="0" cellspacing="0" cellpadding="0">            <tr>              <td><table width="530" border="0" cellspacing="0" cellpadding="0">                    <tr>                      <td align="center"><table width="205" border="0" cellspacing="2" cellpadding="0">                        <tr>                          <td align="center">Clique para ampliar as fotos</td>                        </tr>                        </table>                        <table width="205" border="0" cellpadding="0" cellspacing="1" bgcolor="#FF9900"><%foto = RS_Fotos("foto_g")for i=1 to RS_Fotos.PageCount%><% While contador<registros and not RS_Fotos.eof %>                        <tr bgcolor="#FFFFFF">                          <td><a href="equipe2.asp?foto=<% =(RS_Fotos("foto_g")) %>"><img src="<% =RS_Fotos("foto_p") %>" width="50" height="50" border="0" style="filter:alpha(opacity=50)" onmouseover="elFader(this,100,60,30)" onmouseout="elFader(this,50,60,10)"></td><% RS_Fotos.MoveNextcontador = contador + 1%>                          <td><a href="equipe2.asp?foto=<% =(RS_Fotos("foto_g")) %>"><img src="<% =RS_Fotos("foto_p") %>" width="50" height="50" border="0" style="filter:alpha(opacity=50)" onmouseover="elFader(this,100,60,30)" onmouseout="elFader(this,50,60,10)"></td><% RS_Fotos.MoveNextcontador = contador + 1%>                          <td><a href="equipe2.asp?foto=<% =(RS_Fotos("foto_g")) %>"><img src="<% =RS_Fotos("foto_p") %>" width="50" height="50" border="0" style="filter:alpha(opacity=50)" onmouseover="elFader(this,100,60,30)" onmouseout="elFader(this,50,60,10)"></td><% RS_Fotos.MoveNextcontador = contador + 1%>                          <td><a href="equipe2.asp?foto=<% =(RS_Fotos("foto_g")) %>"><img src="<% =RS_Fotos("foto_p") %>" width="50" height="50" border="0" style="filter:alpha(opacity=50)" onmouseover="elFader(this,100,60,30)" onmouseout="elFader(this,50,60,10)"></td><% RS_Fotos.MoveNextcontador = contador + 1%>                        </tr><% Wend %>                      </table>                      <table width="205" border="0" cellspacing="2" cellpadding="0">                        <tr>                          <td align="center"><% response.Write("[ <a href="&nomepagina&"?pagina="&i&"&foto="&foto&">"&replace(i,pagina,"<b>"&i&"</b>")&"</a> ] ") Next%>        </td>                        </tr>                        </table>                      <td align="center"><img src="<%=Request("foto")%>" width="300" height="200" border="1"></td>                    </tr>                  </table>    <br></td>            </tr>          </table></td>        </tr>      </table></td>  </tr>  <tr>    <td><!--#include file="rodape.asp"--></td>  </tr></table></body></html>

Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Nos trechos que você escreve os links faça:

ASP
  1.  <td><a href="equipe2.asp?foto=<% =(RS_Fotos("foto_g")) %>&Pagina=<%=Pagina%>"><img src="<% =RS_Fotos("foto_p") %>" width="50" height="50" border="0" style="filter:alpha(opacity=50)" onmouseover="elFader(this,100,60,30)" onmouseout="elFader(this,50,60,10)"></td>

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