Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Sábado - 18 de Novembro de 2017  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
Criando um catálogo de imagens com exclusão
Avaliações: 74   -   Minha nota: Média Geral: 2  

Vamos neste artigo aprender a criar um catálogo simples de visualização e exclusão de imagens. O catálogo exibe todas as imagens encontradas em um diretório especificado.

Veja na figura abaixo o catálogo de imagens:

Veja agora o catálogo de imagens mostrando as imagens encontradas:

Vamos ao código do catálogo 


<%@ Language=VBScript %>
<%
Option Explicit %>
<%
Const ImageFilePath = "c:\idev\htdocs\imagens"
Const DeleteButtonLabel = "Excluir imagens marcadas" < /FONT >

Dim objFSO
Dim objFolder
Dim objFile

Dim strFileName
Dim strFileExtension

Dim blnShowImages

If Request.QueryString("ShowImages") = "" Then
    blnShowImages = False
Else
    blnShowImages = CBool(Request.QueryString("ShowImages"))
End If

If Request.Form("btnDelete") = DeleteButtonLabel Then
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")< /FONT >

    For Each strFileName In Request.Form("delete")
        objFSO.DeleteFile(ImageFilePath & "/" & _
            strFileName)
    Next

    Set objFSO = Nothing
End If
%>

<html>
<head>
  <title>ListList</title>
</head>
<body>

<form action="<%= Request.ServerVariables("URL") %>" method="post">< /FONT>

<table border="1" bordercolor=silver cellpadding=2 cellspacing=0
bordercolorlight=silver bordercolordark=White>
<tr bgcolor=gainsboro>
    <th>Nome da imagem</th>
    <th>Imagem<a href="
    <%= Request.ServerVariables("URL") %>?ShowImages=<%= Not blnShowImages %>">
    (Mostrar/Esconder)</a></th>
    <th>Excluir</th>
</tr>
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(ImageFilePath)< /FONT >

For Each objFile In objFolder.Files
  strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))< /FONT >

If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Then
  %>
  <tr>
    <td>
      <a href="<%= ImageFilePath & "/" & objFile.Name %>">
      <%= objFile.Name %></a>
    </td>
  <%
  If blnShowImages Then
  %>
    <td>
      <img src="<%= ImageFilePath & "/" & objFile.Name %>" />
    </td>
  <%
  Else
  %>
    <td>
      <a href="<%= ImageFilePath & "/" & objFile.Name %>">
      Ver imagem</a>
     </td>
  <%
  End If
  %>
    <td align="center">
      <input type="checkbox" name="delete"
      value="<%= objFile.Name %>" />
    </td>
  <%
  End If
Next

Set objFolder = Nothing
Set objFSO = Nothing
%>
<tr>
    <td colspan="3" align="right">
        <input type="submit" name="btnDelete"
        value="<%= DeleteButtonLabel %>">
    </td>
</tr>
</table>

</form>

</body>
</html>

 

Basta informar corretamente o diretório de suas imagens e seu catálogo de imagens estará pronto.


»
Clique aqui para pegar o código do catálogo








SuperASP do Brasil Ltda

03.066.522/0001-84
Av. Rio Branco 433 - Centro - Florianopolis - SC
Contato

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados