Ir para conteúdo

POWERED BY:

Arquivado

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

Frango

Mostrar arquivos da pasta

Por , em ASP Clássico

Recommended Posts

Frango    0

Frango
Postado

Galera seguinte,

 

Tô fazendo um album de fotos aki da seguinte maneira

 

set objeto = createobject("scripting.filesystemobject")  set pasta = objeto.getfolder(server.mapPath("album/foto_divulgacao/"))

no caso to conseguindo resgatar todos os arquivos da pasta foto_divulgacao até aí tudo bem. Porém isso se trata de um álbum de fotos, a pasta padrao sera a pasta album e cada pasta dentro dela sera uma galeria (foto divulgacao é uma galeria).

 

Minha perguna é como eu posso fazer para criar várias galerias dinamicamente, pq só to visualizando desta forma, pra cada galeria criar um "set pasta = objeto.getfolder(server.mapPath("album/nova_galeria/"))"

manualmente.

 

Acredito q tenha uma forma melhor de se fazer isso certo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

quintelab    91

quintelab
Postado

Cara se você tiver essas galerias cadastradas em uma banco de dados, você pode fazer um select e passar o nome dessas pastas para uma variavel dentro de um loop. Costumo fazer isso.

Aí em cada linha do loop você passaria:

set pasta = objeto.getfolder(server.mapPath("album/"& vv &"/"))

Compartilhar este post

Link para o post
Compartilhar em outros sites

Frango    0

Frango
Postado

Fala cara, eu tenho uma tabela no banco chamada algum com os campos ID, Titutlo e Pasta onde essa pasta é a galeria. Meu código ta assim

´

<%  set conn = Server.CreateObject("ADODB.Connection")  set rsalbum = Server.CreateObject("ADODB.Recordset")    x = Server.Mappath("adm/bd/bd.mdb")  obj = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & x  conn.Open obj    album = "select * from album order by titulo asc"  set rsalbum = conn.execute (album)    dim objeto, pasta, arquivo    set objeto = createobject("scripting.filesystemobject")  set pasta = objeto.getfolder(server.mapPath("album/"&foto_divulgacao/"))%>

e to chamando la no html assim

 

<h3>» <% response.write(rsalbum("titulo")) %></h3>   <% for each arquivo in pasta.files    	  nomeArquivo = arquivo.name   %>	<a href="javascript:;" onclick="abre('album/foto_divulgacao/<%=nomeArquivo%>');"><img src="album/foto_divulgacao/<%=nomeArquivo%>" class="fotos"></a>   <% next %>

pode me explicar melhor essa dica q você disse?

 

 

Obs: Desconsidera a linha acima o certo é essa

 

set pasta = objeto.getfolder(server.mapPath("album/foto_divulgacao/"))

Compartilhar este post

Link para o post
Compartilhar em outros sites

quintelab    91

quintelab
Postado

Se eu entendi o que você quer, acredito que irá dar certo, tenta o seguinte:

<%
  set conn = Server.CreateObject("ADODB.Connection")
  set rsalbum = Server.CreateObject("ADODB.Recordset")
  
  x = Server.Mappath("adm/bd/bd.mdb")
  obj = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & x
  conn.Open obj
  
  album = "select * from album order by titulo asc"
  set rsalbum = conn.execute (album)
  
  dim objeto, pasta, arquivo, vv

  set objeto = createobject("scripting.filesystemobject")

  if not rsalbum.eof then
	do until rsalbum.eof
		  vv = rsalbum("pasta")
		  Response.write(server.mapPath("album/"& vv &"/"))		  
		  rsalbum.movenext
	 loop
   end if


%>

Testa aí cara, se não der certo, posta aí

Compartilhar este post

Link para o post
Compartilhar em outros sites

Frango    0

Frango
Postado

Outro erro:BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

Compartilhar este post

Link para o post
Compartilhar em outros sites

quintelab    91

quintelab
Postado

Aqui deu certo.

Você usa os dados desse select em outra coisa, antes de montar este código do nome das pastas ?

 

 

Obs.: Lembrando que o código que eu montei só vai mostrar o nome das pastas, mas é pra mostrar todos os nomes que estiverem cadastrados no banco.

 

Se por acaso você já usou os dados desse select antes de montar esse código, então, antes do if você deve colocar:

rsalbum.movefirst

Compartilhar este post

Link para o post
Compartilhar em outros sites

Frango    0

Frango
Postado

Eu não uso esse select antes naum, segue o código

 

<%  set conn = Server.CreateObject("ADODB.Connection")  set rsalbum = Server.CreateObject("ADODB.Recordset")    x = Server.Mappath("adm/bd/bd.mdb")  obj = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & x  conn.Open obj    album = "select * from album order by titulo asc"  set rsalbum = conn.execute (album)    dim objeto, pasta, arquivo, vv  set objeto = createobject("scripting.filesystemobject")  if not rsalbum.eof then	do until rsalbum.eof		  vv = rsalbum("pasta")		  Response.write(server.mapPath("album/"& vv &"/"))		  		  rsalbum.movenext	 loop   end if%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"> <head>  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />  <title>Dughettu - Site Oficial</title>  <link rel="stylesheet" href="css/multimidia.css" type="text/css" />  <script>   function abre(x){ // Abre função que pega uma variavel do link   foto = window.open("","foto","width=0, height=0"); // cria uma variavel com o window.open()... ele faz a janela abrir   foto.document.write("<html><head><title>Dughettu - Site Oficial</title></head><body leftmargin='0' topmargin='0'>"); // escreve na janelinha a linha do body que vai deixar sem margens   foto.document.write("<img src='"+x+"' id='ft' />"); // escreve a tag da imagem    foto.document.write("<script>window.resizeTo(ft.width,ft.height);<\/script>"); // script que redimensionada a janela   }  </script> </head> <body>  <h1>Multimídia</h1>  <h2>Fotos, vídeos y otras cositas más!</h2>  <h3>Fotos</h3>  <h4>Álbum de fotos Dughettu</h4>  <div id="album_de_fotos">   <h3>» <% response.write(rsalbum("titulo")) %></h3>   <% for each arquivo in pasta.files    	  nomeArquivo = arquivo.name   %>	<a href="javascript:;" onclick="abre('album/foto_divulgacao/<%=nomeArquivo%>');"><img src="album/foto_divulgacao/<%=nomeArquivo%>" class="fotos"></a>   <% next %>  </div>     <h3>Discografia</h3>  <h4>Baixe as músicas</h4>  <div id="discografia">   <img src="jpg/capa_single.jpg" class="capa_cd" alt="Single" />   <h3>CD Promocional</h3>   <ul>	<li><a href="discografia/cd_promocional/01_te_levar.zip" title="Clique para download">01 - Te Levar (Download)</a></li>	<li>02 - Olhos Coloridos</li>	<li>01 - A Rua Virou Quadra</li>	<li>02 - Bônus Track Te Levar (Extend)</li>	    </ul>  </div>   </body></html><%  conn.close  Set rsalbum = nothing%>

Será q o problema está no For Each?

Compartilhar este post

Link para o post
Compartilhar em outros sites

quintelab    91

quintelab
Postado

Pode cre, este é o problema

 

Já te mando o código, momento

 

Testa aí colega

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<%

dim objeto, pasta, arquivo, vv, conn, rsalbum, x, obj,album, nomeArquivo

set conn = Server.CreateObject("ADODB.Connection")
set rsalbum = Server.CreateObject("ADODB.Recordset")

x = Server.Mappath("adm/bd/bd.mdb")
obj = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & x
conn.Open obj

album = "select * from tabela order by titulo asc"
set rsalbum = conn.execute (album)

set objeto = createobject("scripting.filesystemobject")

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
  <title>Dughettu - Site Oficial</title>
  <link rel="stylesheet" href="css/multimidia.css" type="text/css" />
  <script>
   function abre(x){ // Abre função que pega uma variavel do link
   foto = window.open("","foto","width=0, height=0"); // cria uma variavel com o window.open()... ele faz a janela abrir
   foto.document.write("<html><head><title>Dughettu - Site Oficial</title></head><body leftmargin='0' topmargin='0'>"); // escreve na janelinha a linha do body que vai deixar sem margens
   foto.document.write("<img src='"+x+"' id='ft' />"); // escreve a tag da imagem 
   foto.document.write("<script>window.resizeTo(ft.width,ft.height);<\/script>"); // script que redimensionada a janela
   }
  </script>
</head>
<body>
  <h1>Multimídia</h1>
  <h2>Fotos, vídeos y otras cositas más!</h2>
  <h3>Fotos</h3>
  <h4>Álbum de fotos Dughettu</h4>
  <div id="album_de_fotos">
   <h3>» <% response.write(rsalbum("titulo")) %></h3>
<%
if not rsalbum.eof then
	do until rsalbum.eof
%>
	<a href="javascript:;" onclick="abre('album/foto_divulgacao/<%=nomeArquivo%>');"><img src="album/foto_divulgacao/<%=nomeArquivo%>" class="fotos"></a>
<%
		rsalbum.movenext
	loop
end if
%>
  </div>   
  <h3>Discografia</h3>
  <h4>Baixe as músicas</h4>
  <div id="discografia">
   <img src="jpg/capa_single.jpg" class="capa_cd" alt="Single" />
   <h3>CD Promocional</h3>
   <ul>
	<li><a href="discografia/cd_promocional/01_te_levar.zip" title="Clique para download">01 - Te Levar (Download)</a></li>
	<li>02 - Olhos Coloridos</li>
	<li>01 - A Rua Virou Quadra</li>
	<li>02 - Bônus Track Te Levar (Extend)</li>	 
   </ul>
  </div>  
</body>
</html>
<%
conn.close
Set rsalbum = nothing
%>

Cara malzão, acho que não era isso que você queria, da uma olhada nesse outro que eu arrumei:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<%

dim objeto, pasta, arquivo, vv, conn, rsalbum, x, obj,album, nomeArquivo

set conn = Server.CreateObject("ADODB.Connection")
set rsalbum = Server.CreateObject("ADODB.Recordset")

x = Server.Mappath("adm/bd/bd.mdb")
obj = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & x
conn.Open obj

album = "select * from tabela order by titulo asc"
set rsalbum = conn.execute (album)

set objeto = createobject("scripting.filesystemobject")

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
  <title>Dughettu - Site Oficial</title>
  <link rel="stylesheet" href="css/multimidia.css" type="text/css" />
  <script>
   function abre(x){ // Abre função que pega uma variavel do link
   foto = window.open("","foto","width=0, height=0"); // cria uma variavel com o window.open()... ele faz a janela abrir
   foto.document.write("<html><head><title>Dughettu - Site Oficial</title></head><body leftmargin='0' topmargin='0'>"); // escreve na janelinha a linha do body que vai deixar sem margens
   foto.document.write("<img src='"+x+"' id='ft' />"); // escreve a tag da imagem 
   foto.document.write("<script>window.resizeTo(ft.width,ft.height);<\/script>"); // script que redimensionada a janela
   }
  </script>
</head>
<body>
  <h1>Multimídia</h1>
  <h2>Fotos, vídeos y otras cositas más!</h2>
  <h3>Fotos</h3>
  <h4>Álbum de fotos Dughettu</h4>
  <div id="album_de_fotos">
<%
if not rsalbum.eof then
	do until rsalbum.eof
	%>
	<h3>» <% response.write(rsalbum("titulo")) %></h3>
	<a href="javascript:;" onclick="abre('album/foto_divulgacao/<%=rsalbum("titulo")%>');"><img src="album/foto_divulgacao/<%=rsalbum("titulo")%>" class="fotos"></a>
<%
		rsalbum.movenext
	loop
end if
%>
  </div>   
  <h3>Discografia</h3>
  <h4>Baixe as músicas</h4>
  <div id="discografia">
   <img src="jpg/capa_single.jpg" class="capa_cd" alt="Single" />
   <h3>CD Promocional</h3>
   <ul>
	<li><a href="discografia/cd_promocional/01_te_levar.zip" title="Clique para download">01 - Te Levar (Download)</a></li>
	<li>02 - Olhos Coloridos</li>
	<li>01 - A Rua Virou Quadra</li>
	<li>02 - Bônus Track Te Levar (Extend)</li>	 
   </ul>
  </div>  
</body>
</html>
<%
conn.close
Set rsalbum = nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

quintelab    91

quintelab
Postado

Passei pro colega por msn, mas se alguém se interessar aí esta o código final;

Demorou mas saiu:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<%

dim objeto, pasta, arquivo, vv, conn, rsalbum, x, obj,album, nomeArquivo

set conn = Server.CreateObject("ADODB.Connection")
set rsalbum = Server.CreateObject("ADODB.Recordset")

x = Server.Mappath("adm/bd/bd.mdb")
obj = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & x
conn.Open obj

album = "select * from tabela order by titulo asc"
set rsalbum = conn.execute (album)

set objeto = createobject("scripting.filesystemobject")

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
  <title>Dughettu - Site Oficial</title>
  <link rel="stylesheet" href="css/multimidia.css" type="text/css" />
  <script>
   function abre(x){ // Abre função que pega uma variavel do link
   foto = window.open("","foto","width=0, height=0"); // cria uma variavel com o window.open()... ele faz a janela abrir
   foto.document.write("<html><head><title>Dughettu - Site Oficial</title></head><body leftmargin='0' topmargin='0'>"); // escreve na janelinha a linha do body que vai deixar sem margens
   foto.document.write("<img src='"+x+"' id='ft' />"); // escreve a tag da imagem 
   foto.document.write("<script>window.resizeTo(ft.width,ft.height);<\/script>"); // script que redimensionada a janela
   }
  </script>
</head>
<body>
  <h1>Multimídia</h1>
  <h2>Fotos, vídeos y otras cositas más!</h2>
  <h3>Fotos</h3>
  <h4>Álbum de fotos Dughettu</h4>
  <div id="album_de_fotos">
<%
if not rsalbum.eof then
	do until rsalbum.eof
	%>
	<h3>» <% response.write(rsalbum("titulo")) %></h3>
	<%
	dim cs, co, z
	set cs=Server.CreateObject("Scripting.FileSystemObject")
	set co=cs.GetFolder("c:\caminho_das_fotos\")
	for each z in co.files
	%>
	<a href="javascript:;" onclick="abre('album/foto_divulgacao/<%=rsalbum("titulo")%>');"><img src="c:\caminho_das_fotos\<%=z.name%>" class="fotos"></a>
	<%
	next
	set co=nothing
	set cs=nothing
		rsalbum.movenext
	loop
end if
%>
  </div>   
  <h3>Discografia</h3>
  <h4>Baixe as músicas</h4>
  <div id="discografia">
   <img src="jpg/capa_single.jpg" class="capa_cd" alt="Single" />
   <h3>CD Promocional</h3>
   <ul>
	<li><a href="discografia/cd_promocional/01_te_levar.zip" title="Clique para download">01 - Te Levar (Download)</a></li>
	<li>02 - Olhos Coloridos</li>
	<li>01 - A Rua Virou Quadra</li>
	<li>02 - Bônus Track Te Levar (Extend)</li>	 
   </ul>
  </div>  
</body>
</html>
<%
conn.close
Set rsalbum = nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Frango    0

Frango
Postado

Fala galera,O ASP do quintelab aí em cima funcionou mas só localmente, qnd fui testar lá no servidor as imagens não abriram pq tá mostrando o caminho físico da máquina.Como eu faço pra mostrar o caminho virtual, no caso só mostrar /album/nome da pasta??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Frango    0

Frango
Postado

Fala Ursolouco,

 

Já está assim

 

<%if not rsalbum.eof then	do until rsalbum.eof	%>	<h3>» <% response.write(rsalbum("titulo")) %></h3>	<%	dim cs, co, z	set cs=Server.CreateObject("Scripting.FileSystemObject")	set co=cs.GetFolder(Server.MapPath("album/foto_divulgacao"))	for each z in co.files	%>	<a href="javascript: foto('<%=co%>\<%=z.name%>','400','300');"><img src="<%=co%>\<%=z.name%>" class="fotos"></a>	<%	next	set co=nothing	set cs=nothing		rsalbum.movenext	loopend if%>

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