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:  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&ccedil;&atilde;o de imagens de um determinado diret&oacute;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">&nbsp;</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>
 


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