Jump to content
Fórum Script Brasil
  • 0

Sistema de álbum sem banco de dados?


Question

5 answers to this question

Recommended Posts

  • 0

Já achei pessoal...

Eu que não tenho frescuras como muitos por aí... disponibilzo o codigo da página que achei... é só adaptar as suas relidades!

<%@LANGUAGE="vb script:

'Parametro passado pela URL quando se clica em uma determinada pasta ou arquivo:
ParametroPasta = Request.QueryString("Pasta")

'A session abaixo deve ser alterada para o caminho físico onde estarão os arquivos e subdiretórios a serem acessados:
Session("Path") = "C:\Documents and Settings\Marcus Barros\Desktop\arvorefso\album\"&ParametroPasta&""
Path = Session("Path")
'A variável abaixo deve ser alterada para o caminho virtual das pastas no servidor:
PathVirtualArquivos = "/aaa/album"
'A variável abaixo deve ser alterada para o caminho virtual deste script:
PathScript = "/desenvolvimento/asp/colunas/arvoreFso/default.asp"

'Criando o objeto Filesystem Object:
SET FSO = Server.CreateObject("Scripting.FileSystemObject")
'Setando o caminho que será indicado como pasta raiz:
Set Pasta = FSO.GetFolder(""&Path&"")
'Solicitando a lista de arquivos para a pasta raiz:
set arquivos = pasta.files
'Setando a pasta raiz:
set Raiz = Pasta
'Verificando as subpastas da pasta raiz:
Set Pastas = Raiz.SubFolders

'Verificando o Nome da pasta Raiz:
Nome = pasta.name

'Verificando se há subpastas:

contador = 0
for each subpastas in pastas
contador = contador+1
next

%>
</b>
<%
Response.write "<br><div align=left>"
Response.Write "<font face=arial size=2>"

if contador <> 0 then

'Fazendo um loop pelas subpastas da pasta raiz:
for each subpastas in Pastas
response.Write "<img border=0 src='fold.gif' align=top><a href='"&PathScript&"?Pasta="&ParametroPasta&"\"&subpastas.name&"'><font color = #003366>"&subpastas.name&"</font></a><br>"
next

end if

response.write "<br>"

'Fazendo um loop pelos arquivos da pasta:
Apostila = "apostilas"
for each arquivo in arquivos
response.write "<a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><img border=""0"" src='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"' width=""99"" height=""97"" usemap=""#FPMap0"" align='middle'></a>"
next

Response.Write "</font>"
response.write "</div><br>"
%>

<hr color=black>
<font color=black face=Verdana size=2>
<a href='#' onClick='history.go(-1)'><font color=black>Voltar</font></a>&nbsp;|&nbsp;
<%
response.write "<a href='"&PathScript&"?Pasta="&ParametroPasta&"'>"
response.write "Refresh</font></a>"
%>
</font>
</body>
</html>

Abraços a todos!

Edited by marcus Gemeos
Link to post
Share on other sites
  • 0

Bacana Marcus... vou testar mais tarde... acho que o bareta tb!

Derepente subimos ali pro repósitório de scripts...

Funcionou legal pra você?

Tem um exemplo desse script on-line pra podermos dar um bico? Dando uma olhada por cima achei bem interessante... vou ver com mais calma depois!

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148845
    • Total Posts
      644835
×
×
  • Create New...