Ir para conteúdo

POWERED BY:

Arquivado

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

edson

Galeria de Imagens

Por , em ASP Clássico

Recommended Posts

edson    0

edson
Postado

Pessoal consegui fazer até esse ponto mais as imagens não aperecem, só aparece um "X" inde seria a imagem, se alguém quiser ajudar eu agradeço.Falow.A página é essa:<%@Language="VBScript"%><%Option ExplicitResponse.Expires = 0%><html><head></head><body><table width="100%" border="1" align="center" cellpadding="0" cellspacing="10"><tr><%DIM FSO, strCaminho, strPrincipal, strArquivos, xxstrCaminho = "/"Set FSO = Server.CreateObject("Scripting.FileSystemObject")Set strPrincipal = FSO.GetFolder(strCaminho)Set strArquivos = strprincipal.FilesIF strArquivos.count=0 then%><td> Não existem imagens disponiveis</td><%else%><%DIM strArqFOR EACH strArq IN strArquivos if strArq.name="Thumbs.db" then%> <%else%> <td> <a href="/<%=strArq.name%>"><img src="/<%=strArq.name%>"></a> </td> <%end if%><%NEXT%><%end if%></tr></table><body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

na pagina q exibe o X ao invés da imagem.. manda exibir o código fonte pelo IE mesmo...e veja como ficou o caminho da iimagem no HTML... ai fica fácil de você descobrir o erro, ok...falow

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado 

<%@Language="VBScript"%><%Option ExplicitResponse.Expires = 0%><html><head></head><body><table width="100%" border="1" align="center" cellpadding="0" cellspacing="10"><tr><%DIM FSO, strCaminho, strPrincipal, strArquivos, xxstrCaminho = "imagens/"Set FSO = Server.CreateObject("Scripting.FileSystemObject")Set strPrincipal = FSO.GetFolder(server.mappath(strCaminho))Set strArquivos = strprincipal.FilesIF strArquivos.count=0 then%><td>Não existem imagens disponiveis</td><%else%><%DIM strArqFOR EACH strArq IN strArquivos if strArq.name="Thumbs.db" then%> <%else%><td><a href="<%=strCaminho&strArq.name%>"><img src="<%=strCaminho&strArq.name%>"></a></td><%end if%><%NEXT%><%end if%></tr></table></html>

coloca as imagens numa pasta imagens e adciona a string strCaminho antes do nome da imagem strArq.name

 

esse funciona que testei

Compartilhar este post

Link para o post
Compartilhar em outros sites

edson    0

edson
Postado 

<%@Language="VBScript"%><%Option ExplicitResponse.Expires = 0%><html><head></head><body><table width="100%" border="1" align="center" cellpadding="0" cellspacing="10"><tr><%DIM FSO, strCaminho, strPrincipal, strArquivos, xxstrCaminho = "imagens/"Set FSO = Server.CreateObject("Scripting.FileSystemObject")Set strPrincipal = FSO.GetFolder(server.mappath(strCaminho))Set strArquivos = strprincipal.FilesIF strArquivos.count=0 then%><td>Não existem imagens disponiveis</td><%else%><%DIM strArqFOR EACH strArq IN strArquivos if strArq.name="Thumbs.db" then%> <%else%><td><a href="<%=strCaminho&strArq.name%>"><img src="<%=strCaminho&strArq.name%>"></a></td><%end if%><%NEXT%><%end if%></tr></table></html>

coloca as imagens numa pasta imagens e adciona a string strCaminho antes do nome da imagem strArq.name

 

esse funciona que testei

Funcionou perfeitamente, muito obrigado!

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/excl.gif http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado
http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

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