|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Exibição de imagens de um determinado diretório.
|
 |
|
|
|
Postada em 24/3/2004 por vilmarbr
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'>>Exemplo de uso Windows Scripting Hosting junto com FileSystemObject p/ exibir imagens de um
'determinado diretório pelo ASP e mostrar resultado na tela.
'Testado no Ms-IIS 5.0 com Ms-Windows 2000. Pode-se parar de pegar o caminho dinamicamente e passá-lo
'manualmente.
Option Explicit
Response.Expires = -1
%>
<html>
<head>
<title>Exibição de imagens de um determinado diretório</title>
<meta http-equiv="Content-Type" content="text/html; charSet=iso-8859-1">
</head>
<body>
<table width="100%" border="2" bordercolor="#99CC00" cellpadding="0" cellspacing="2">
<tr>
<td align="center" colspan="3"><strong><font size="2" face="Geneva, Arial, Helvetica, sans-serif">Exibição de imagens de um determinado diretório</font></strong></td>
</tr>
<tr>
<td align="center" colspan="3"> </td>
</tr>
<tr>
<%
Dim Caminho,Saida,Contador
Dim objWshell,objFSO,objFSOTexto '»»Objetos instanciados na memória.
Dim MeuArray,I,Descricao
Caminho = Server.MapPath("imagens")
Contador = 0
'»»INÍCIO: Procedimento p/ montar as células da tabela.
Sub MontarCelulas()
If Contador < 3 then
Contador = Contador + 1
Response.Write "<td align='center'><img src='imagens/" & Descricao & "' border='0'></td>" & vbCrLf
Else
Response.Write "</tr>" & vbCrLf & "<tr>" & vbCrLf & "<td align='center'><img src='imagens/" & Descricao & "' border='0'></td>" & vbCrLf
Contador = 1
End If
End Sub
'»»FIM: Procedimento p/ montar as células da tabela.
'»»INÍCIO: Rotina p/ executar comandos ms-dos.
Set objWshell = Server.CreateObject("WScript.Shell")
'»»Comando DIR.
objWshell.Run "%COMSPEC% /C dir " & Caminho & " > " & Caminho & "\dir.txt", 0, TRUE
'»»FIM: Rotina p/ executar comandos ms-dos.
'»»INÍCIO: Rotina p/ abrir objeto de texto com resultados de comandos e mostrar na tela.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFSOTexto = objFSO.OpenTextFile(Caminho & "\dir.txt", 1, TRUE)
Saida = objFSOTexto.ReadAll
MeuArray = Split(Saida," ",-1,1) '»»Cria uma array com o objeto de textstream.
For I = 0 to UBound(MeuArray)
Descricao = MeuArray(I)
If InStr(Descricao,".jpg") then
Descricao = Mid(Descricao,1,InStr(Descricao,".jpg") + 3)
Call MontarCelulas '»»Procedimento p/ montar as células da tabela.
ElseIf InStr(Descricao,".gif") then
Descricao = Mid(Descricao,1,InStr(Descricao,".gif") + 3)
Call MontarCelulas '»»Procedimento p/ montar as células da tabela.
End If
Next
%>
</tr>
</table>
<%
'»»Rotina p/ apagar arquivo temporário dir.txt.
objFSOTexto.Close '»»Fecha o objeto de textstream p/ poder apagar o arquivo físico que foi criado e aberto.
objWshell.Run "%COMSPEC% /C del " & Caminho & "\dir.txt", 0, TRUE
'objFSO.DeleteFile(Caminho & "\dir.txt") '»»Ou apague o arquivo desta forma com FSO.
Set objFSOTexto = nothing
Set objFSO = nothing
Set objWshell = nothing
'»»FIM: Rotina p/ abrir objeto de texto com resultados de comandos e mostrar na tela.
'»»INÍCIO: Tratamento de erros.
If Err.Number <> 0 then
Response.Write "<p align='center'>Erro: " & Err.Description & " Nº: " & Err.Number
End If
'»»FIM: Tratamento de erros.
%>
</body>
</html>
|
|
|
|
|
