Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
marcus Gemeos

Sistema de álbum sem banco de dados?

Question

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

Share this post


Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0

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..

Share this post


Link to post
Share on other sites
  • 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

Share this post


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!

Share this post


Link to post
Share on other sites
  • 0

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!

Share this post


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.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148575
    • Total Posts
      644272
×
×
  • Create New...