Galeria De Fotos

zando · Outubro 6, 2004

Fala galera! Alguém pode me ajudar?

O código abaixo é uma galeria de fotos sem precisar de um banco de dados.

Gostaria de saber o que é aquele arquivo chamado "Thumbs.db" e pra que serve?

Estou tentando fazer, só com arquivos .xls e .doc...

Será que tem como fazer?

<%@Language="VBScript"%>
<%Option Explicit
Response.Expires = 0%>
<html>
<head>
</head>
<body>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="10">
<tr>
<%DIM FSO, strCaminho, strPrincipal, strArquivos, xx, conta, strArq, pagina, fim, anterior, proxima
strCaminho = "/imag"
pagina = Request.QueryString("p")
if pagina = "" then
pagina = 1
end if
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set strPrincipal = FSO.GetFolder(strCaminho)
Set strArquivos = strprincipal.Files
IF strArquivos.count=0 then
fim = 1%>
<td>
Não existem imagens disponiveis
</td>
<%
response.end
end if

xx=0
conta=3
FOR EACH strArq IN strArquivos
xx = xx + 1
IF xx > ((pagina-1)*9) and xx < ((pagina*9)+1) then
if conta=0 then
response.write "</tr><tr>"
conta=3
end if
if strArq.name="Thumbs.db" then
else%>
<td>
<a href="imag/<%=strArq.name%>"><img src="imagm/<%=strArq.name%>"></a>
</td>
<%end if
conta=conta-1
end if
NEXT
%>
</tr>
</table>
<%if fim = "" then
anterior = pagina - 1
proxima = pagina + 1
if anterior <> 0 then%>
<a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>" onMouseOver="window.status='Página <%=anterior%>';return true" onMouseOut="window.status='';return true">Anterior</a><%
end if%>
  | &nbsp Página: <%=pagina%>   | &nbsp
<a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>" onMouseOver="window.status='Página <%=proxima%>';return true" onMouseOut="window.status='';return true">Próxima</a><%
end if%>
<body>
</html>

cyberalexxx · Outubro 6, 2004

esse arquivo thumbs.db é gerado automaticamente pelo windows para visualização das fotos no Windows Explorer através de miniaturas ou pelicula.

zando · Outubro 6, 2004

Quanto ao código acima, o que fazer para que ao invés de mostrar figuras mostre arquivos (txt, doc, xls...) e tb mostre uma paginação dos mesmos?

zando · Outubro 6, 2004

Tenho este codigo aí que já mostra os resultados, mas não faz a paginação.

Como modifica-lo?

<html>
<head>
<title>Editoras</title>
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center"> <strong><font color="#FFFFFF" size="6" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
  </strong></font><font color="#CC0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
  <style type="text/css">
<!--
a:link {text-decoration: none;color: #AA0000}
a:visited {text-decoration: none;color: #AA0000}
a:hover {text-decoration: underline;color: #AA0000}
a.barra:link {text-decoration: none;color: #AA0000}
a.barra:visited {text-decoration: none;color: #AA0000}
a.barra:hover {text-decoration: underline;color: #AA0000}
-->
</style>
  </strong></font>
  <STYLE type="text/css">
<!--
BODY {
scrollbar-face-color: #EEEEEE;
scrollbar-highlight-color: #EEEEEE;
scrollbar-3dlight-color: #AA0000;
scrollbar-darkshadow-color: #EEEEEE;
scrollbar-shadow-color: #AA0000;
scrollbar-arrow-color: #AA0000;
scrollbar-track-color: #EEEEEE;
}
-->
</style>
  <br>
  </strong> 
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="10">
    <tr> 
      <td height="15" bgcolor="#eeeeee"> 
        <div align="left"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="../imagens/setinha.gif" width="9" height="9">&nbsp;Clique 
          nos links abaixo para fazer o download das listas de pre&ccedil;os</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
          </font></strong></div></td>
    </tr>
    <tr> 
      <%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("e:\home\logoslivraria\web\intranet\listas_precos\arquivos")
Set arquivos = principal.Files

'criando vetor
dim nome
nome=array()
For each arq in arquivos
redim preserve nome(Ubound(nome)+1)
nome(Ubound(nome)) = arq.name
next

'listando arquivos
for x = 0 to Ubound(nome) %>
      <td width="100%" height="15" valign="top" onmouseover="this.style.background='#eeeeee'" onmouseout="this.style.background='#ffffff'"><font color="#CC0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="../imagens/downloads_baixar.gif" alt="&gt;&gt; Download do arquivo" width="16" height="16" border="0"> 
        <a href="arquivos/<%=nome(x)%>" target="_blank"><%=nome(x)%></a> </font></td>
    </tr>
    <%next%>
  </table>
   
  <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong></div>
</body>
</html>

zando · Outubro 6, 2004

Será que alguém pode me responder?

cyberalexxx · Outubro 6, 2004

Cara, faça uma busca no forum, acho que semana passada implantei uma paginação em um sistema de fotos aki no forum.

zando · Outubro 6, 2004

Cara, sou iniciante e já olhei este código e não consegui transformá-lo para o meu problema... se tiver um tempinho, me ajude por favor!

Desde já agradeço a compreensão.

cyberalexxx · Outubro 6, 2004

Quando você diz mostrar arquivos XLS, DOC e TXT, é só um link né??

se for da pra usar o primeiro código que você postou, deixa assim:

<%@Language="VBScript"%>
<%Option Explicit
Response.Expires = 0%>
<html>
<head>
</head>
<body>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="10">
<tr>
<%DIM FSO, strCaminho, strPrincipal, strArquivos, xx, conta, strArq, pagina, fim, anterior, proxima
strCaminho = "/imag"
pagina = Request.QueryString("p")
if pagina = "" then
pagina = 1
end if
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set strPrincipal = FSO.GetFolder(strCaminho)
Set strArquivos = strprincipal.Files
IF strArquivos.count=0 then
fim = 1%>
<td>
Não existem imagens disponiveis
</td>
<%
response.end
end if
xx=0
conta=3
FOR EACH strArq IN strArquivos
xx = xx + 1
IF xx > ((pagina-1)*9) and xx < ((pagina*9)+1) then
if conta=0 then
response.write "</tr><tr>"
conta=3
end if
if strArq.name="Thumbs.db" then
else%>
<td>
<a href="imag/<%=strArq.name%>">imag/<%=strArq.name%></a>
</td>
<%end if
conta=conta-1
end if
NEXT
%>
</tr>
</table>
<%if fim = "" then
anterior = pagina - 1
proxima = pagina + 1
if anterior <> 0 then%>
<a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>" onMouseOver="window.status='Página <%=anterior%>';return true" onMouseOut="window.status='';return true">Anterior</a><%
end if%>
  | &nbsp Página: <%=pagina%>   | &nbsp
<a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>" onMouseOver="window.status='Página <%=proxima%>';return true" onMouseOut="window.status='';return true">Próxima</a><%
end if%>
<body>
</html>

zando · Outubro 6, 2004

Ainda não está funcionando... o que ocorre?

Será que meu código que errado?

Aquele 2º código que passei está mostrando todos os arquivos e fazendo o link corretamente... mas quero que apareça somente 10 por página... entende?

cyberalexxx · Outubro 6, 2004

descreva o erro que esta dando no código que eu postei

zando · Outubro 6, 2004

Simplismente a página não pode ser vizualizada...

"A página não pode ser exibida"

Tem como fazer no 2º código?

cyberalexxx · Outubro 6, 2004

testei o codigo aki e ta funcionando. (você tem só que adaptar o caminho da pasta)

Pra adaptar o segundo codigo, to meio sem tempo agora, quem sabe outro membro do forum tenha disponibilidade.

zando · Outubro 6, 2004

Você modificou essa linha...

"<a href="imag/<%=strArq.name%>">imag/<%=strArq.name%></a>

"

Acho que tem um erro = o nome do arquivo vai ficar imag/nomedoarquivo?

cyberalexxx · Outubro 6, 2004

/imag é o nome da pasta, você tem que adaptar de acordo com a sua estrutura de diretórios

cyberalexxx · Outubro 6, 2004

Olha o codigo que eu testei no meu IIS

<%@Language="VBScript"%>
<%Option Explicit
Response.Expires = 0%>
<html>
<head>
</head>
<body>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="10">
<tr>
 <%DIM FSO, strCaminho, strPrincipal, strArquivos, xx, conta, strArq, pagina, fim, anterior, proxima

 strCaminho = server.mappath("/testes/fotos")

 pagina = Request.QueryString("p")
 if pagina = "" then
  pagina = 1
 end if

 Set FSO = Server.CreateObject("Scripting.FileSystemObject")
 Set strPrincipal = FSO.GetFolder(strCaminho)
 Set strArquivos = strprincipal.Files

 IF strArquivos.count=0 then
  fim = 1%>
  <td>
   Não existem imagens disponiveis
  </td>
 <%
  response.end 
  end if
  
xx=0
conta=3
FOR EACH strArq IN strArquivos 
  xx = xx + 1
  IF xx > ((pagina-1)*9) and xx < ((pagina*9)+1) then
       if conta=0 then
        response.write "</tr><tr>" 
        conta=3
      end if

      if strArq.name="Thumbs.db" then
      else%>
        <td>
        <a href="fotos/<%=strArq.name%>">fotos/<%=strArq.name%></a>
       </td>
      <%end if
    conta=conta-1

   end if
  NEXT
%>
</tr>
</table>
<%if fim = "" then

anterior = pagina - 1
proxima = pagina + 1

if anterior <> 0 then%>
 <a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>"  onMouseOver="window.status='Página <%=anterior%>';return true" onMouseOut="window.status='';return true">Anterior</a><%
end if%> 

&nbsp; | &nbsp Página:  <%=pagina%>  &nbsp; | &nbsp  

<a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>"  onMouseOver="window.status='Página <%=proxima%>';return true" onMouseOut="window.status='';return true">Próxima</a><%

end if%>
<body>
</html>

zando · Outubro 6, 2004

Cara, tá tudo igual mais o meu não está funcionando no meu servidor...

Será que é algum problema de servidor... hospedo na locaweb...

Amanhã tento fazer isto... tenho que sair... valeu pelas resposta!

Entrar

Galeria De Fotos

Pergunta

Link para o comentário

Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns