Esta es la primera vez que traduzco un artículo, así que perdónenme por cualquier defecto.
La razón por la que la India es ahora un importante exportador de software es que es superior a nosotros en muchos aspectos. Una de las primeras ventajas es que el idioma oficial de la India es el inglés, lo que aporta ventajas únicas a los programadores indios que utilizan el inglés como lenguaje de programación. Quienes trabajamos en la industria de TI también deberíamos fortalecer nuestra formación en inglés.
Introducción Si tiene un sitio web que ha estado funcionando durante más de dos meses, es posible que haya notado que se han acumulado muchos archivos de imágenes en su sitio web. Aunque todos hacemos todo lo posible para nombrar bien estos archivos de imágenes, cuando examinamos los nombres de estos archivos, siempre nos resulta difícil recordar el significado especial o el uso de algunos nombres de archivos de imágenes.
En este momento, normalmente abrimos esas imágenes con el navegador repetidamente para ver qué imágenes son. En este momento, este código ASP se puede utilizar como explorador de imágenes (y limpiador) para explorar estas imágenes y realizar operaciones de limpieza.
codificación:
De hecho, este programa es una página de lista que contiene todas las imágenes en un directorio determinado, y utiliza el objeto FileSystemObject para enumerar estos archivos de imágenes (archivos gif y jpeg).
Agregue un enlace para alternar la visualización a la página para controlar si se muestra la imagen. Cuando tiene muchos archivos y no desea cargarlos todos, puede simplemente dejar que una imagen en la página muestre un enlace. Por el contrario, si no está seguro de lo que significan algunos nombres de archivos, esta función será una. Buena ayuda para limpiar.
El siguiente es un código muy conciso.
<%@ Idioma=VBScript %>
<% Opción Explícita %>
<%
Const ImageFilePath = "imágenes"
Const DeleteButtonLabel = "Eliminar imágenes seleccionadas"
Dim objFSO
Carpeta obj tenue
Dim objFile
Dim strFileName
Dim strFileExtension
Dim blnShowImages
If Request.QueryString("ShowImages") = "" Entonces
blnShowImages = Falso
Demás
blnShowImages = CBool(Request.QueryString("MostrarImages"))
Finalizar si
If Request.Form("btnDelete") = DeleteButtonLabel Entonces
Establezca objFSO = Server.CreateObject("Scripting.FileSystemObject")
para cada strFileName en Request.Form("delete")
objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & _
strFileName))
Siguiente
conjunto objFSO = Nada
Terminar si
%>
<html>
<cabeza>
<title>¡Explorador de imágenes ASP 101 y Killer!</title>
</cabeza>
<cuerpo>
<formulario acción="<%= Request.ServerVariables("URL") %>" método="publicación">
<table border="1">
<tr>
<th>Nombre de la imagen</th>
¿<th>Imagen <a href="<%= Request.ServerVariables("URL") %>?
ShowImages=<%= No blnShowImages %>">(Alternar visualización)</a></th>
<th>Eliminar esta imagen</th>
</tr>
<%
Establecer objFSO = Server.CreateObject("Scripting.FileSystemObject")
Establezca objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
para cada objFile en objFolder.Files
strFileExtension = LCase(Mid(objFile.Name, _
InStrRev(objFile.Name, ".", -1, 1) + 1))
Si strFileExtension = "gif" O strFileExtension = "jpg" O _
strFileExtension = "jpeg" Entonces
' Opción de identificación del archivo de imagen original:
'Si objFile.Type = "Imagen GIF" o _
objFile.Type = "Imagen JPEG" Luego
%>
<tr>
<td>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
<%= objFile.Nombre %></a>
</td>
<%
Si blnShowImages Entonces
%>
<td>
<img src="<%= ImageFilePath & "/" & objFile.Name %>" />
</td>
<%
Demás
%>
<td>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
Ver imagen</a>
</td>
<%
Terminar si
%>
<td align="centro">
<tipo de entrada="casilla de verificación" nombre="eliminar"
valor="<%= objFile.Name %>" />
</td>
<%
Terminar si
Siguiente
Establecer objFolder = Nada
Establecer objFSO = Nada
%>
<tr>
<td colspan="3" align="derecha">
<tipo de entrada="enviar" nombre="btnDelete"
valor="<%= EliminarEtiquetaBotón %>">
</td>
</tr>
</tabla>
</form>
</cuerpo>
</html>
Al realizar una operación de eliminación, asegúrese de tener en cuenta que si no aparece un mensaje de confirmación de eliminación en el programa, el programa no podrá deshacer la operación de eliminación.
Conclusión La gente nunca utilizará ASP para crear sitios web escalables a gran escala. (Nota del traductor: esta oración no es muy apropiada sin traducción. Según mi experiencia laboral, ASP puede construir completamente sistemas de sitios web a gran escala. En términos de ASP, he participado en la construcción de intranets corporativas a gran escala, aplicaciones de la industria móvil , etc.) Pero a veces puedes usar esto para simplificar tu trabajo, incluso si el código nunca se publica en la WEB.
Para obtener el código, puede descargar el archivo ZIP de discusión que contiene este código desde el directorio raíz de http://www.weiw.com . Una vez ejecutado el código, todas las imágenes se encuentran en http://www.weiw.com/images. Se mostrará / .
Puede cambiar el valor de la constante ImageFilePath. También puede colocar algunas rutas virtuales aquí y el código utilizará Server.MapPath para determinar la ruta física adecuada. Puede especificar fácilmente ciertas ubicaciones en su sitio web. Por ejemplo, cambiar el valor de esa constante de "imágenes" a "/imágenes" apuntaría al programa al directorio de imágenes en el directorio raíz del sitio web. De la misma manera, el valor de ImageFilePath se puede modificar para lograr el mismo propósito.
Segundo: al escribir este código, simplemente usé el tipo de archivo en mi máquina. Esto sólo funciona sin problemas en mi máquina. Resulta que la descripción del tipo de archivo puede cambiar la base de su unión de archivos. Para obtener las extensiones, elige mostrar aquellas basadas en dichos archivos en lugar de su tipo. He implementado esta funcionalidad en el código de este archivo ZIP. Esta es ahora la última versión del programa.