Ir para conteúdo

POWERED BY:

Arquivado

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

Marcus Gemeos

Fotos um do lado do outro em um álbum...

Recommended Posts

Olá pessoal,

 

Eu possuo o seguinte código para exibição de fotos em uma pasta:

 

<%		Dim Fso,arq,pasta		 		Set Fso   = CreateObject("scripting.filesystemobject")		Set pasta = Fso.getfolder(server.mapPath("fotos/"))For each arq in pasta.Files			if (contador mod 8) = 0 then 				response.write "</tr>"				response.write "<tr>"			end if		%><%'/////COMECA AS FOTOSResponse.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""100%"">"nomeArquivo = arq.nameimagem="fotos/"& nomeArquivoResponse.Write "<a name= """&contador&""" target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a>"Response.Write "</table></div>"			contador = contador + 1			if contador = 5 then				exit for			end ifnext %>

Mas gostaria que as fotos ficassem um do lado do outro e não um em baixo do outro, mas quando chegasse em uma quantidade de fotos horizontal, e descia mais uma linha e realizasse o mesmo processo da linha anterior!

 

Precisso!!

 

Obrigado!!

 

Marcus

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não sei c entendi bem mais c for oq entendi faça isso.Monte uma tabela com o número de colunas que pretende usar e coloque o respone dentro delas. Ou faça um loop.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Havia no laboratório de scripts um que faz praticamente isso, você define a quantidade de colunas e ele gera. Dê uma pesquisada lá.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá amigo,

 

Eu também não conseguir... parece que este "loop" só existe se o sistema for trabalhar com um banco de dados!

Cansei de procurar e achei esse sistema que está no link abaixo, ficarei com este sistema mesmo!

Abaixe para você e veja se serve também!

 

Se houver alguma novidade, me avise!

 

Abraços!

 

http://www.turmateen.com.br/sistemadefotos.zip

 

 

Marcus

Compartilhar este post


Link para o post
Compartilhar em outros sites

Faz um laço doido ae!

acabei de fazê

<body><form id="form1" name="form1" method="post" action="table.asp">  <p>Linhas   	<input type="text" name="linha" /></p>  <p>Colunas	<input type="text" name="coluna" /></p>  <p>	<input type="submit" name="Submit" value="Submit" />  </p></form><table border="1" cellpadding="1" cellspacing="1"><%'numero de linhasnLinha = Request.Form("linha")'N de colunasnColuna = Request.Form("coluna")For L = 1 To cDbl(nLinha)	Response.Write("<tr width=""30"" height=""30"">")		For C = 1 To cDbl(nColuna)			Response.Write("<td width=""30"" height=""30""></td>")		Next 	Response.Write("</tr>")	Next %></table></body>
daí você adapta com akela sua parada lá 'mod 8' !

qq coisa post

 

se funcionar avisae ou manda a dúvida!

noix

Compartilhar este post


Link para o post
Compartilhar em outros sites

Dá para adaptar algo em cima desse: Duvidas Frequentes

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.