Ir para conteúdo

POWERED BY:

Arquivado

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

fabio Avila

Galeria de Fotos na Horizontal

Por , em ASP Clássico

Recommended Posts

fabio Avila    1

fabio Avila
Postado

Ola amigos ,

 

Tenho uma Galeria de Fotos que está funcionando perfeitamente so que gostaria de alterar a exibição das Galeria que hojé é na Vertical existe a possibilidade de deixa-la exibindo na Horizontal , abaixo o código :

 

<%
Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"
Response.AddHeader "Pragma", "no-cache"
response.Charset="iso-8859-1"
%>
<html>
<head>
<title>:: GALERIA ::</title>
<meta name="generator" content="Microsoft FrontPage 5.0">
<script language="JavaScript">
<!--
function na_open_window(name, url, left, top, width, height, toolbar, menubar, statusbar, scrollbar, resizable)
{
 toolbar_str = toolbar ? 'yes' : 'no';
 menubar_str = menubar ? 'yes' : 'no';
 statusbar_str = statusbar ? 'yes' : 'no';
 scrollbar_str = scrollbar ? 'yes' : 'no';
 resizable_str = resizable ? 'yes' : 'no';
 window.open(url, name, 'left='+left+',top='+top+',width='+width+',height='+height+',toolbar='+toolbar_str+',menubar='+menubar_str+',status='+statusbar_str+',scrollbars='+scrollbar_str+',resizable='+resizable_str);
}

// -->
</script>
</head>

<body bgcolor="#FFFFFF" text="black" link="#0000FF" vlink="#800080" alink="#FF0000" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<table align="center" width="440" cellpadding="0" cellspacing="0">
   <tr>
       <td width="681" bgcolor="#FFFFFF">                                                                                                <p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center">
<%
PagAtual = Request.QueryString("PagAtual")
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/database.mdb")
Conn.Open DSNtest
Set RS= Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Galeria ORDER BY ID desc"
RS.Open SQL, conn, 3
Const NumPorPage = 15
Dim PagAtual
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira p�gina
Else
PagAtual = Request.QueryString("PagAtual")
End If
RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o n�mero de registros
RS.MoveFirst 
RS.PageSize = NumPorPage 
Dim TotalPages 
TotalPages = RS.PageCount
RS.AbsolutePage = PagAtual
Count = 0 
i = 0 
DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize 
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if 
%></p>
<table cellspacing="0" width="438" bordercolordark="white" bordercolorlight="black" align="center" cellpadding="0" height="4">
   <tr>
       <td width="168" rowspan="3" height="1" bgcolor="#FFFFFF"><p align="center"> 
                       <font face="Arial">
                       <span style="font-size: 8pt">
                       <a href="javascript:na_open_window('win', 'config/galeria.asp?data=<%=Rs("data")%>', 0, 0, 750, 600, 0, 0, 0, 0, 0)" target="_self"><img src='config/fotos/<%=Rs("Foto")%>' width="150" height="112" border="0"></a>
                       </span></font>             </p>
       </td>
       <td width="52" bgcolor="#FFFFFF" height="18" valign="top">            
<p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;"> 
<b><font face="Arial" style="font-size: 8pt" color="#333333">Evento:</font></b><font face="Arial"><span style="font-size: 8pt">
</span></font> </p>
</td>
       <td width="225" bgcolor="#FFFFFF" height="18" valign="bottom">            
<p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;"> 
<span style="font-size:8pt;"><font face="Arial" color="#333333"><%=Rs("Evento")%> 
                       </font></span> </p>
</td>
       <td width="4" bgcolor="#F0F0F0" height="1" rowspan="2">            
</td>
   </tr>
   <tr>
       <td width="52" bgcolor="#FFFFFF" height="1" valign="top">            
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left">
<font face="Arial" color="#333333"><b><span style="font-size:8pt;">Data:</span></b></font></p>
</td>
       <td width="225" bgcolor="#FFFFFF" height="1" valign="top">            
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left">
<span style="font-size:8pt;"><font face="Arial" color="#333333"><%=Rs("Dia")%>  </font></span></p>
</td>
   </tr>
   <tr>
       <td width="52" bgcolor="#FFFFFF" height="45" valign="top">            
 </td>
       <td width="225" bgcolor="#FFFFFF" height="45" valign="top">            
 </td>
       <td width="4" bgcolor="#F0F0F0" height="45">            
</td>
   </tr>
   <tr>
       <td width="434" colspan="4" bgcolor="#FFFFFF" height="7">
           <p style="line-height:50%; margin-top:0; margin-bottom:0;" align="center"> </p>
       </td>
   </tr>
</table>
<p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center">
<%
i = i+1
Count = Count + 1
RS.MoveNext
LOOP
%>
<%
Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> P�gina " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")   
var01 = Len(PagAtual)
var02 = var01 - 1 
var03 = Left(PagAtual,var02)
var04 = Right(PagAtual,1)
var05 = var03 & 0
IF var04 <> 0 THEN 
inicial = var05 + 1
final = inicial + 9  
ELSE
inicial = var05 - 9  
final = var05
END IF
indice_i = var04 - 1
indice_f = 10 - var04 
If CInt(final) > CInt(TotalPages) Then final = TotalPages
IF PagAtual > 1 THEN 
Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" &  1 & "'>")
Response.Write("<img src='config/images/primeira.gif'border='0' alt='Primeira p�gina'>") 
Response.Write("</a></font></B>  ")
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual - 1 & "'>")
Response.Write ("<img src='config/images/anterior.gif' border='0' alt='P�gina anterior'>") 
Response.Write("</a></font></B>  ")
IF PagAtual > 10 THEN
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" & inicial - 1 & "'>")
Response.Write("...") 
Response.Write("</a></font></B>  ")
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("....") 
Response.Write("</font></B>  ")
END IF
Else
Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") 
Response.Write("<img src='config/images/primeira.gif' border='0' alt='Primeira p�gina'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("<img src='config/images/anterior.gif' border='0' alt='P�gina anterior'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("...") 
Response.Write("</font></B>  ")
End If
For i = inicial To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "
END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a></font> "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a></font> "
END IF
Next
IF CInt(PagAtual) <> CInt(TotalPages) THEN 
p1 = Left(PagAtual,var02) 
p2 = Left(TotalPages,var02)
p3 = Left(TotalPages,var02) & 0
IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN 
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & final + 1 & "'>")
Response.Write("...")
Response.Write("</a></font></B>  ") 
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("...") 
Response.Write("</font></B>  ")
END IF
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual + 1 & "'>")
Response.Write("<img src='config/images/proxima.gif' border='0' alt='Pr�xima p�gina'>")
Response.Write("</a></font></B>  ") 
Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & TotalPages & "'>")
Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima p�gina'>")
Response.Write("</a></font></B>  ")        
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("...") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("<img src='config/images/proxima.gif' border='0' alt='Pr�xima p�gina'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")
Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima p�gina'>") 
Response.Write("</font></B>  ")
End If 
Rs.Close  
Set RS = Nothing
Conn.Close      
Set Conn = Nothing   %></p>
       </td>
   </tr>
</table>
<p> </p>
</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você esta usando algum CSS ou JQuery para isso , ou apenas dando um tableless ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

nesse caso, seria apenas , re-estruturá-lo....

para ficar horizontalmente

Compartilhar este post

Link para o post
Compartilhar em outros sites

saloeric    1

saloeric
Postado

o ideal será fazer isso com divs ou ul,li

 

com divs pode fazer assim para ter ideia

 



<div id="conjunto">
 	<div class="fotos"><img src="" /></div>
 	<div class="fotos"><img src="" /></div>
 	<div class="fotos"><img src="" /></div>
 	<div class="fotos"><img src="" /></div>
</div>

 

as css ponha assim

 


#conjunto{
float:left;
width:500px;
height:auto;
}

.fotos{
float:left;
width:100px;
height:100px;
margin:0 5px 5px 0;
}

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ronaldo Faria Storck Eler    2

Ronaldo Faria Storck Eler
Postado

Olá, acho que já foi respondido, mas só para contribuir, pode usar um loop assim, caso deseje fazer somente com tabelas

 

<%
linhainicial= 0
linhafinal= 0
colunas= 3
linhas= 6
while((linhas <> 0) AND (Not rsGaleria.EOF))
linhainicial= linhafinal+ 1
linhafinal= linhafinal+ colunas
%>
                   <!-- INICIO : COLUNA <%=linhas%>-->
                   <tr align="center" valign="top"> 
           <%
While ((linhainicial<= linhafinal) AND (Not rsGaleria.EOF))
%>
          <!-- INICIO : FOTO <%=linhainicial%> -->
	    <td width="50%" valign="top" align="middle"> (sua imagem)</td>
		  <!-- FIM : FOTO <%=linhainicial%> -->
           <%
linhainicial= linhainicial+ 1
rsGaleria.MoveNext()
Wend
%>
         </tr>
	  <!-- FIM : COLUNA <%=linhas%> -->
         <%
linhas=linhas-1
Wend
%>

 

Acho que é mais ou menos isso... espero que ajude... embora o exemplo dado pelo saloeric é bem mais prático e atual.

 

sds

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