Ir para conteúdo

POWERED BY:

Arquivado

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

Rodrigo Patricio

Paginação em uma galeria

Por , em ASP Clássico

Recommended Posts

Rodrigo Patricio    3

Rodrigo Patricio
Postado

Olá, essa é a minha dúvia numero 1.999.999.999.991 hehehehe, agora é o seguinte, tô fazendo uma galeria de fotos, só q as fotos tem q ficar organizadas em colunas, por exemplo:

 

<> <> <> <>

<> <> <> <>

<> <> <> <>

<> <> <> <>

<> <> <> <>

 

E ter uma paginação, só q eu só consigo fazer um dos dois funcionar, por exemplo, c eu faço exibir em colunas as fotos, a paginação num funfa, c eu consiguo fazer a paginação funcionar a organização das fotos vão pra "China", hehehe, esse é o script q eu uso:

 

<html><head><title>Untitled Document</title></head><body><table width="682" border="0" cellpadding="0" cellspacing="0">  <!--DWLayoutTable-->    <tr>	<td width="682" height="18" align="center" valign="top"><%Set Conn = Server.CreateObject("AdoDb.Connection")Conn.provider="Microsoft.Jet.OLEDB.4.0"Conn.connectionstring=Server.Mappath("banco.mdb")Conn.openSet RS = Server.CreateObject("ADODB.Recordset")RS.PageSize = 4 SQL = "SELECT * FROM album order by id desc"RS.Open SQL,Conn,3,3IF RS.EOF then   Response.Write "nenhum registro encontrado"   Response.End ELSE   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 IFEND IFRS.AbsolutePage=intpaginaWhile intrec < RS.PageSize%></td>  </tr>  <tr>	<td height="54" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">	  <!--DWLayoutTable-->	  <tr>		<td width="682" height="54" align="center" valign="middle"><table width="600" border="1" align="center">			  <tr><%do while not rs.eof  if intrec mod 4 = 0 then%></tr><tr><% end if %>			  				<td align="center" valign="middle"><img src="<%=rs("foto_capa")%>"></td><%intrec = intrec + 1rs.movenextloop IF RS.EOF then	  response.write " "END IFWend%></tr> </table></td>		</tr>	  	</table></td>  </tr>  <tr>	<td height="20" align="center" valign="middle"><% IF intpagina > 1 then%>   <a href="teste_consulta.asp?pagina=<%=intpagina-1%>">Anterior</a><%END IF'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima páginaIF strcomp(intpagina,RS.PageCount) <> 0 then%>   <a href="teste_consulta.asp?pagina=<%=intpagina + 1%>">Próxima</a><%END IF%><%	Rs.Close  Set RS = NothingConn.Close	  Set Conn = Nothing	  %></td>  </tr>  <tr>	<td height="269"> </td>  </tr></table></body></html>

Obrigado e aguardo respostas.

 

 

Ah! Esse script agora tá funcionando na ordem das colunas mas a paginação não funfa.

 

Ih! Já ia me esquecendo, um feliz natal a todos!! http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

smith    0

smith
Postado

Cara... dá uma olha aqui : http://forum.imasters.com.br/index.php?showtopic=17223 sobre paginação!! é a que eu costumo usar !!

 

 

pra mostrar em colunas acho q a idéia seria assim:

While Not rs.EOF AND x < rs.PageSize<tr> <td> if Not rs.EOF AND x < rs.PageSize then  'mostra imagem x = x + 1  rs.MoveNext endif </td> <td> if Not rs.EOF AND x < rs.PageSize then  'mostra imagem x = x + 1  rs.MoveNext endif </td> <td> if Not rs.EOF AND x < rs.PageSize then  'mostra imagem x = x + 1  rs.MoveNext endif </td> <td> if Not rs.EOF AND x < rs.PageSize then  'mostra imagem x = x + 1  rs.MoveNext endif </td></tr>wend

Compartilhar este post

Link para o post
Compartilhar em outros sites

smith    0

smith
Postado

smith, a paginação funcionou, mais num consigo colocar pra exibir em colunas, será q alguem pode me dar uma força?

Mas dá algum erro ??? Posta como ficou o codigo !

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo Patricio    3

Rodrigo Patricio
Postado

Cara, erro num dá nenhum, é o seguinte, c eu colocar paginação as imagens num ficam em coluna, ficam uma em baixo da outra, ai c eu tirar a paginação, as imagens ficam organizadas em coluna, isso q num tô conseguindo fazer, adaptar o script q organiza as fotos em colunas com a paginação.

 

Eu tentei esse script, pq o q você me disse num consegui de jeito nenhum:

<table width="100%" cellspacing="10" bgcolor="#eaeaea" style="border:2px solid #cccccc"><% Set Conexao = Server.CreateObject("AdoDb.Connection")Conexao.provider="Microsoft.Jet.OLEDB.4.0"Conexao.connectionstring=Server.Mappath("banco.mdb")Conexao.open			intPag		= Request.QueryString("pag")	IF intPag = "" THEN intPag = 1	Set db = Server.Createobject("ADODB.RECORDSET")	Set db.ActiveConnection = Conexao			TotRegPag = 2 ' QUANTIDADE DE REGISTROS POR PAGINA		db.CursorType = 3		db.PageSize = TotRegPag		strSQL = "SELECT * FROM album order by id desc"		db.Open strSQL, Conexao					IF db.BOF AND db.EOF THEN							Response.Write "<br><center>Nenhum Bairro Encontrado</center><br>"					ELSE									IF Int(intPag) > db.PageCount THEN intPag = 1				db.AbsolutePage = intPag							Do While NOT db.EOF %><tr align="center"><% j=0Do While J < 5 AND NOT db.EOF 'lista 2 registros por linha%><td valign="middle" width="203" align="center"><a href="perfil2.asp?cod=<%=db("id")%>" class="style22"><span class="style22"><br><img src="<%=db("foto_capa")%>"><br></span></a></p> </td><%j=j+1db.MoveNextLOOP%></tr><%LOOP%></table></td></tr></table><table width="959" border="0" cellpadding="0" cellspacing="0">  <!--DWLayoutDefaultTable-->  <tr>	<td width="13" height="3"></td>	<td width="946"></td>  </tr>  <tr>	<td height="20"></td>	<td align="center" valign="middle"><%															' ###################################################################					TotReg = db.RecordCount					TotPag = db.PageCount							IF TotPag > 1 THEN												strLP = "?t=" & cs						IF Cint(intPag) > 1 THEN 							Links = Links & "<a href='kkkk.asp?pag=" & intPag-1 & "'>Anterior</a>"						ELSE							Links = Links & "<strike>Anterior</strike>"						END IF												IF Cint(intPag) < Cint(TotPag) THEN 							Links = Links & " | <a href='kkkk.asp?pag=" & intPag+1 & "'>Próximo</a>"						ELSE							Links = Links & " | <strike>Próximo</strike>"						END IF													Response.Write "<br><center>" & Links & "</center><br>"					END IF									END IF						db.Close		Set db = Nothing%></td>  </tr></table>

Ai do jeito q tá consegui colocar a paginação e organizar as fotos, só q a paginação num corta a quantidade de fotos para colocar na outra pagiana, por exemplo, na 1° pagiana, ela exibe todas as fotos, da 1° a ultima, ai c eu por exemplo tivesse limitado pra 8 fotos por pagina, na 2° pagina começaria da 8 até a ultima, e assim por diante.

 

 

PS: Essa paginação funcionando sem essa organização das fotos funfa beleza.

 

Obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo Patricio    3

Rodrigo Patricio
Postado

Postei 2 imagens, uma é a 1° pagina, onde deveria ser exibida só a 1° linha, mas estão sendo todas e a outra é a segunda pagina (apos ter clicado em proximo) q começa a exibir da figura certa, mas num pararia só na 1° linha c tivesse mais fotos.

 

1° pagina (deveria exibir só a 1° linha)

Imagem Postada

 

2° Pagina (apos ter clicado em proximo)

Imagem Postada

 

E esse é o script dessa pagina acima:

<table width="100%" cellspacing="10" bgcolor="#eaeaea" style="border:2px solid #cccccc"><% Set Conexao = Server.CreateObject("AdoDb.Connection")Conexao.provider="Microsoft.Jet.OLEDB.4.0"Conexao.connectionstring=Server.Mappath("banco.mdb")Conexao.open			intPag		= Request.QueryString("pag")	IF intPag = "" THEN intPag = 1	Set db = Server.Createobject("ADODB.RECORDSET")	Set db.ActiveConnection = Conexao			TotRegPag = 4 ' QUANTIDADE DE REGISTROS POR PAGINA		db.CursorType = 3		db.PageSize = TotRegPag		strSQL = "SELECT * FROM album order by id"		db.Open strSQL, Conexao					IF db.BOF AND db.EOF THEN							Response.Write "<br><center>Nenhum Bairro Encontrado</center><br>"					ELSE									IF Int(intPag) > db.PageCount THEN intPag = 1				db.AbsolutePage = intPag							Do While NOT db.EOF %><tr align="center"><% j=0Do While J < 4 AND NOT db.EOF 'lista 2 registros por linha%><td valign="middle" width="203" align="center"><a href="perfil2.asp?cod=<%=db("id")%>" class="style22"><span class="style22"><br><img src="<%=db("foto_capa")%>"><br></span></a></p> </td><%j=j+1db.MoveNextLOOP%></tr><%LOOP%></table></td></tr></table><table width="959" border="0" cellpadding="0" cellspacing="0">  <!--DWLayoutDefaultTable-->  <tr>	<td width="13" height="3"></td>	<td width="946"></td>  </tr>  <tr>	<td height="20"></td>	<td align="center" valign="middle"><%															' ###################################################################					TotReg = db.RecordCount					TotPag = db.PageCount							IF TotPag > 1 THEN												strLP = "?t=" & cs						IF Cint(intPag) > 1 THEN 							Links = Links & "<a href='kkkk.asp?pag=" & intPag-1 & "'>Anterior</a>"						ELSE							Links = Links & "<strike>Anterior</strike>"						END IF												IF Cint(intPag) < Cint(TotPag) THEN 							Links = Links & " | <a href='kkkk.asp?pag=" & intPag+1 & "'>Próximo</a>"						ELSE							Links = Links & " | <strike>Próximo</strike>"						END IF													Response.Write "<br><center>" & Links & "</center><br>"					END IF									END IF						db.Close		Set db = Nothing%></td>  </tr></table>
PS: As fotos q estão repitidas foi de proposito.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo Patricio    3

Rodrigo Patricio
Postado

Naum.... Por exemplo, eu configurei o script pra exibir 4 fotos por pagina, ai nesse caso das minhas figuras só exibiria a 1° linha. por exemplo:

 

<> <> <> <>

Anterior - Proximo

 

Só q tá assim:

<> <> <> <>

<> <> <> <> <-- Essas fotos eram pra ser exibidas ná pagina seguinte.

Anterior - Proximo

 

Entendeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

smith    0

smith
Postado

troque:

Do While NOT db.EOF %><tr align="center"><% j=0Do While J < 4 AND NOT db.EOF 'lista 2 registros por linha%><td valign="middle" width="203" align="center"><a href="perfil2.asp?cod=<%=db("id")%>" class="style22"><span class="style22"><br><img src="<%=db("foto_capa")%>"><br></span></a></p> </td><%j=j+1db.MoveNextLOOP%></tr><%LOOP

por isso, é a linha ( <tr> ) completa das 4 imagens, :

While Not db.EOF AND x < db.PageSize<tr><td valign="middle" width="203" align="center">if Not db.EOF AND x < db.PageSize then <a href="perfil2.asp?cod=<%=db("id")%>" class="style22"><span class="style22"><br><img src="<%=db("foto_capa")%>"><br></span></a>x = x + 1 db.MoveNextendif</td><td valign="middle" width="203" align="center">if Not db.EOF AND x < db.PageSize then <a href="perfil2.asp?cod=<%=db("id")%>" class="style22"><span class="style22"><br><img src="<%=db("foto_capa")%>"><br></span></a>x = x + 1 db.MoveNextendif</td><td valign="middle" width="203" align="center">if Not db.EOF AND x < db.PageSize then <a href="perfil2.asp?cod=<%=db("id")%>" class="style22"><span class="style22"><br><img src="<%=db("foto_capa")%>"><br></span></a>x = x + 1 db.MoveNextendif</td><td valign="middle" width="203" align="center">if Not db.EOF AND x < db.PageSize then <a href="perfil2.asp?cod=<%=db("id")%>" class="style22"><span class="style22"><br><img src="<%=db("foto_capa")%>"><br></span></a>x = x + 1 db.MoveNextendif</td></tr>wend

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