Ir para conteúdo
Fórum Script Brasil
  • 0

Sistema de álbum sem banco de dados?


marcus Gemeos

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 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!

Editado por marcus Gemeos
Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...