Sistema de álbum sem banco de dados?

[marcus Gemeos]

Olá pessoal,

Eu gostaria de saber, de um sistema de álbum que não precisasse de banco de dados e redimensionasse também as fotos...?

Se alguém souber, pode ser em ASP ou JavaScript! Pois eu procurei, procurei... mas está meio difícil de achar um legal!

Obrigado a todos!

Marcus Vinicius

[bareta]

achu q já vi alguma coisa desse tipo só num lembro ond.. kkkk aqui no fórum mesmo...

faz umas buscas ai... sobre album de fotos..

[marcus Gemeos]

Olá pessoal,

Alguém sabe de um sistema de álbum que pegue as fotos direto da pasta?

Obrigado a todos!

[marcus Gemeos]

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!

Editado Janeiro 29, 2009 por marcus Gemeos

[Rafael Spilki]

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!

[marcus Gemeos]

Se colocar esse código na página principal em *ASP e colocar um diretório onde vão ficar as fotos... ele "puxa os arquivos" e imprimi na página... não precisa de outros arquivos complementares!