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