Ir para conteúdo

POWERED BY:

Arquivado

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

Alex Passos

Problemas com galeria de imagens com o IIS ou FSO

Por , em ASP Clássico

Recommended Posts

Alex Passos    0

Alex Passos
Postado

Olá... estou querendo fazer uma galeria de imagens utilizando o componente FSO, ou seja, determinando uma pasta e carregando as imagens em uma página ASP.

 

Já peguei vários exemplos na internet inclusive aqui neste site, que esta no seguinte link:

 

nome do artigo: Galeria de Fotos

link: http://www.imasters.com.br/artigo.php?cn=3620&cc=189

 

peguei o arquivo pronto do artigo, já verifiquei o caminho da pasta e nada não funciona

 

a página abre mais não carrega as fotos e nem da nenhum erro, fica demorando pra abrir e nada.

 

Será que o IIS não da suporte ao FSO? Ou que pode esta acontecendo?

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

O Script para listar todos basicamente é:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Set Pasta = FSO.GetFolder(Server.MapPath("SuaPasta")).Files
For Each Arquivo In Pasta
	If Arquivo.Type = "JPEG Image" Then
		Response.Write "<img Src="""& Arquivo.Name &"""><BR>"& Arquivo.Name &"<BR><BR>"
	End If
Next
Set Pasta = Nothing
Set FSO = Nothing
%>

Outra coisa, você possui Antivirus instalado? Pode acontecer de ele estar bloqueando a execução desse Script.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Passos    0

Alex Passos
Postado

É eu tenho o Antivirus instalado sim é o Norton SystemWorks 2003 vou desativar ele pra fazer um teste e vou também desativar o Firewall do XP.Então pra listar todos os arquivos de uma pasta é só colocar esse código em uma página e pronto?Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Esse código vai listar as Imagens JPG.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Passos    0

Alex Passos
Postado

Ainda continua sem funcionar... não dar erro nenhum e nem abre as imagens, nossa já estou ficando com raiva disso. Eu desabilitei o norton, já desabilitei o Firewall do XP, compartilhei as pastas para web dando permissão para tudo e nada.O pior que a p$#@% do cliente não quer aceitar eu colocar os nomes das imagens no banco de dados, porque ele acha que vai ficar muito complicado colocar foto po foto no servidor.Gente por favor me ajudem

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Passos    0

Alex Passos
Postado

Olá... já estou ficando doido com essa tal galeria que não funciona.Já dei uma olhada nesse tópico:Dúvidas Frequentes, Antes de Postar Leia !!! Opções FSO em Windows XP Profissionalfiz todas as configurações pedidas reiniciei a máquina e nada.A página abre, mostra a cor de fundo mais não mostra as imagens a barra de progresso para no meio e nada.Olha o código que eu coloquei na página:<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><script language="Javascript" type="text/javascript" src="func.js"></script><script language="JavaScript" type="text/JavaScript"><!--function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) { if ((appName=="Netscape") && (parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);//--></script><style>.INPUT { BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 1px; COLOR: #000000; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #f5f5f5; BORDER-RIGHT-WIDTH: 1px; background-color:#000000; border:0;}</style></head><body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" align="center"><form name="miniaturas"><table cellspacing="1" align="center"> <tr> <td colspan="2" bgcolor="#8080C0"></td> </tr> <tr> <td colspan="2" bordercolor="#000066" bgcolor="#000000"> <font face="Verdana, Arial, Helvetica, sans-serif"> <font size="-2"> <p align='center'>  Galeria nº 1 <br>01/09/05</font></td> </tr> <tr> <td colspan="2" bgcolor="#8080C0"></td> </tr> <% response.Buffer = true response.write "<tr>" Dim Fso, arq, pasta Set Fso = CreateObject("scripting.filesystemobject") Set pasta = Fso.getfolder(server.mapPath("\imagens")) contador = 0 For each arq in pasta.Files if (contador mod 8) = 0 then response.write "</tr>" response.write "<tr>" end if %> <td width="52"> <div align="center"> <font size="-2"> <% nomeArquivo = arq.name %> <a name="<%=contador%>" href="imagens/<%=nomeArquivo%>" target="fotos" onclick="contador.nome.value='<%=nomeArquivo%>'; salvaCookie();"> <img src="imagens/<%=nomeArquivo%>" width="48" height="48"> </a> </font> </div> </td> <% contador = contador + 1 if contador=48 then exit for end if next %> </tr> </table> <br></form><form name="contador" method=get><table align="right"> <input type="hidden" name="nome"> <input name="visitas" size="10" class="input" maxlength="10" type="text" disabled></table></form></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Faça um teste usando aquele Script que passei numa pasta que contenha imagens.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Passos    0

Alex Passos
Postado

Salgado, acabei de fazer o teste tanto colocando o arquivo dentro da página imagens como foraolha o código<html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set Pasta = FSO.GetFolder(Server.MapPath("imagens")).Files For Each Arquivo In Pasta If Arquivo.Type = "JPEG Image" Then Response.Write "<img Src="""& Arquivo.Name &"""><BR>"& Arquivo.Name &"<BR><BR>" End If NextSet Pasta = NothingSet FSO = Nothing%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Buscopan    0

Buscopan
Postado

Olha, sou iniciante e posso estar falando a maior bobagem do mundo, mas como você tá com pressa, talvez tenha algo a ver ...Acho que no MapPath você deveria colocar "\imagens\" Sei lá ... pode ser isso ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Passos    0

Alex Passos
Postado

Ufffffffa, já descobri o problema... depois de uma grande pesquisa nesse forum e na internet... li um tópico nesse forum sobre o assunto, era o norton antivirus que estava bloqueando a utilização de script desativei e reiniciei a máquina e tudo funcionou.Agora vou fazer minha pesquisa saber como faço pra paginar.muito obrigado a todos... que Deus abeçoe a cada ricamente

Compartilhar este post

Link para o post
Compartilhar em outros sites

birobirosk8    0

birobirosk8
Postado

Manoooooow...Se a página fica carregando e carregando, mas nunca carrega com certeza é o AntiVirus q esta travando os SCRIPTS MALICIOSOS...é só desabilitar jhoooowfalooow

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