Esta é a primeira vez que traduzo um artigo, então, por favor, perdoe-me por quaisquer deficiências.
A razão pela qual a Índia é hoje um grande exportador de software é que é superior a nós em muitos lugares. Uma das primeiras vantagens é que o idioma oficial da Índia é o inglês, o que traz vantagens únicas aos programadores indianos que utilizam o inglês como linguagem de programação. Para nós que trabalhamos na indústria de TI, devemos também fortalecer nosso treinamento em inglês.
Introdução Se você tem um site em funcionamento há mais de dois meses, deve ter notado que muitos arquivos de imagem se acumularam em seu site. Embora todos nós tentemos ao máximo nomear bem esses arquivos de imagem, quando navegamos pelos nomes dos arquivos dessas imagens, é sempre difícil lembrar o significado especial ou o uso de alguns nomes de arquivos de imagem.
Neste momento, costumamos abrir essas imagens repetidamente com o navegador para ver que imagens são? Neste momento, este código ASP pode ser usado como um navegador (e limpador) de imagens para navegar nessas imagens e realizar operações de limpeza.
codificação:
Na verdade, este programa é uma página de lista contendo todas as imagens em um determinado diretório, usando o objeto FileSystemObject para listar esses arquivos de imagens (arquivos GIF e JPEG).
Adicione uma exibição de alternância de link à página para controlar se a imagem será exibida. Quando você tem muitos arquivos e não deseja carregar todos eles, basta deixar uma imagem na página exibir um link. Pelo contrário, se você não tiver certeza do significado de alguns nomes de arquivos, esta função será uma função. boa ajuda para você limpar.
O código a seguir é muito conciso
<%@Idioma=VBScript%>
<% Opção Explícita %>
<%
Const ImageFilePath = "imagens"
Const DeleteButtonLabel = "Excluir imagens selecionadas"
Dim objFSO
Dim objFolder
Dim objFile
Dim strNomeArquivo
Dim strFileExtension
Dim blnShowImages
If Request.QueryString("ShowImages") = "" Then
blnShowImages = Falso
Outro
blnShowImages = CBool(Request.QueryString("ShowImages"))
End If
If Request.Form("btnDelete") = DeleteButtonLabel Então
Defina objFSO = Server.CreateObject("Scripting.FileSystemObject")
para cada strFileName em Request.Form("delete")
objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & _
strNomeArquivo))
Próximo
Definir objFSO = Nada
Terminar se
%>
<html>
<cabeça>
<title>Navegador e assassino de imagens ASP 101!</title>
</head>
<body>
<form action="<%= Request.ServerVariables("URL") %>" method="post">
<table border="1">
<tr>
<th>Nome da imagem</th>
<th>Imagem <a href="<%= Request.ServerVariables("URL") %>?
ShowImages=<%= Não blnShowImages %>">(Alternar exibição)</a></th>
<th>Excluir esta imagem</th>
</tr>
<%
Definir objFSO = Server.CreateObject("Scripting.FileSystemObject")
Defina objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
para cada objFile em objFolder.Files
strFileExtension = LCase(Mid(objArquivo.Nome, _
InStrRev(objFile.Name, ".", -1, 1) + 1))
Se strFileExtension = "gif" Ou strFileExtension = "jpg" Ou _
strFileExtension = "jpeg" Então
'Opção de identificação do arquivo de imagem original:
'Se objFile.Type = "Imagem GIF" Ou _
objFile.Type = "Imagem JPEG" Então
%>
<tr>
<td>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
<%=objArquivo.Nome %></a>
</td>
<%
Se blnShowImages então
%>
<td>
<img src="<%= ImageFilePath & "/" & objFile.Name %>" />
</td>
<%
Outro
%>
<td>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
Ver imagem</a>
</td>
<%
Terminar se
%>
<td alinhar="centro">
<input type="caixa de seleção" nome="excluir"
valor="<%= objFile.Name %>" />
</td>
<%
Terminar se
Próximo
Definir objFolder = Nada
Definir objFSO = Nada
%>
<tr>
<td colspan="3" alinhar="direita">
<input type="submit" name="btnDelete"
valor="<%= DeleteButtonLabel %>">
</td>
</tr>
</table>
</form>
</body>
</html>
Ao executar uma operação de exclusão, observe que, se não houver nenhum prompt de confirmação de exclusão no programa, o programa não será capaz de desfazer a operação de exclusão.
Conclusão As pessoas nunca usarão ASP para construir sites escaláveis em larga escala. (Nota do tradutor: Esta frase não é muito apropriada sem tradução. De acordo com minha experiência de trabalho, o ASP pode construir completamente sistemas de sites em grande escala. Em termos de ASP, participei na construção de intranets corporativas em grande escala, aplicativos da indústria móvel , etc.) Mas às vezes você pode usar isso para simplificar seu trabalho, mesmo que o código nunca seja publicado na WEB.
Para obter o código, você pode baixar o arquivo ZIP de discussão contendo este código do diretório raiz de http://www.weiw.com . Após a execução do código, todas as imagens em http://www.weiw.com/images. / será exibido.
Você pode alterar o valor da constante ImageFilePath. Você também pode colocar alguns caminhos virtuais aqui e o código usará Server.MapPath para determinar o caminho físico apropriado. Você pode especificar facilmente determinados locais em seu site. Por exemplo, alterar o valor dessa constante de “images” para “/images” apontaria o programa para o diretório de imagens no diretório raiz do site. Da mesma forma, o valor de ImageFilePath pode ser modificado para atingir o mesmo propósito.
Segundo: ao escrever este código, simplesmente usei o tipo de arquivo em minha máquina. Isso só funciona perfeitamente na minha máquina. Acontece que a descrição do tipo de arquivo pode alterar a base da sua união de arquivos. Para obter as extensões, você escolhe exibi-las com base nesses arquivos, em vez de em seu tipo. Implementei essa funcionalidade no código deste arquivo ZIP. Esta é agora a versão mais recente do programa.