USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Listagem de Fotos sem DB
Postada em 26/9/2003 por Mago_Pc            
<%
'*-- criar uma contante--*'
Conts Celulas = 3

'*-- o nome FSO pode ser subistituido--*'
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
'*--vc deverá colocar o caminho da sua pasta onde se encontra " sua-pasta", entre aspas mesmo--*'
Set Pasta = FSO.GetFolder(Server.MapPath("sua-pasta/"))

i = 1
%><table border="1" align="center"><tr><%
For Each Arquivo In Pasta.Files
     If i mod (Colunas+1) = 0 Then
          %></tr><tr><%
     End If
     %><td valign="top"><center><img src="fotos/<%=Arquivo.Name%>"></center></td><%
     If i mod Colunas = 0 Then i = 1
     i = i + 1
Next
%></tr></table><%

Set Pasta = Nothing
Set FSO =Nothing

%>
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página