C'est la première fois que je traduis un article, alors pardonnez-moi pour toute lacune.
La raison pour laquelle l’Inde est aujourd’hui un exportateur majeur de logiciels est qu’elle nous est supérieure dans de nombreux domaines. L’un des premiers avantages est que la langue officielle de l’Inde est l’anglais, ce qui apporte des avantages uniques aux programmeurs indiens qui utilisent l’anglais comme langage de programmation. Pour ceux d’entre nous qui travaillent dans l’industrie informatique, nous devrions également renforcer notre formation en anglais.
Introduction Si vous possédez un site Web qui fonctionne depuis plus de deux mois, vous avez peut-être remarqué que de nombreux fichiers image se sont accumulés sur votre site Web. Bien que nous fassions tous de notre mieux pour bien nommer ces fichiers d'images, lorsque nous parcourons les noms de fichiers de ces images, il nous est toujours difficile de nous souvenir de la signification particulière ou de l'utilisation de certains noms de fichiers d'images.
À l’heure actuelle, nous ouvrons généralement ces images à plusieurs reprises avec le navigateur pour voir de quelles images il s’agit ? À l'heure actuelle, ce code ASP peut être utilisé comme navigateur d'images (et nettoyeur) pour parcourir ces images et effectuer des opérations de nettoyage.
codage:
En fait, ce programme est une page de liste contenant toutes les images d'un certain répertoire, utilisant l'objet FileSystemObject pour lister ces fichiers image (fichiers gif et jpeg).
Ajoutez un lien pour basculer l'affichage à la page pour contrôler s'il faut afficher l'image. Lorsque vous avez beaucoup de fichiers et que vous ne souhaitez pas tous les charger, vous pouvez simplement laisser une image sur la page afficher un lien. Au contraire, si vous n'êtes pas sûr de la signification de certains noms de fichiers, cette fonction sera une solution. bonne aide pour vous de nettoyer.
Ce qui suit est un code très concis
<%@ Langage=VBScript %>
<% Option explicite %>
<%
Const ImageFilePath = "images"
Const DeleteButtonLabel = "Supprimer les images sélectionnées"
Dim objFSO
Dim objFolder
Dim objFile
Dim strFileName
Dim strFileExtension
Dim blnShowImages
If Request.QueryString("ShowImages") = "" Then
blnShowImages = Faux
Autre
blnShowImages = CBool(Request.QueryString("ShowImages"))
Fin Si
Si Request.Form("btnDelete") = DeleteButtonLabel Then
Définir objFSO = Server.CreateObject("Scripting.FileSystemObject")
pour chaque strFileName dans Request.Form("delete")
objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & _
strNomFichier))
Suivant
Définir objFSO = Rien
Fin si
%>
<html>
<tête>
<title>Navigateur d'images ASP 101 et tueur !</title>
</tête>
<body>
<form action="<%= Request.ServerVariables("URL") %>" method="post">
<table border="1">
<tr>
<th>Nom de l'image</th>
<th>Image <a href="<%= Request.ServerVariables("URL") %> ?
ShowImages=<%= Pas blnShowImages %>">(Basculer l'affichage)</a></th>
<th>Supprimer cette image</th>
</tr>
<%
Définir objFSO = Server.CreateObject("Scripting.FileSystemObject")
Définir objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
pour chaque objFile dans objFolder.Files
strFileExtension = LCase(Mid(objFile.Name, _
InStrRev(objFile.Name, ".", -1, 1) + 1))
Si strFileExtension = "gif" Ou strFileExtension = "jpg" Ou _
strFileExtension = "jpeg" Alors
' Option d'identification du fichier image d'origine :
'Si objFile.Type = "Image GIF" Ou _
objFile.Type = "Image JPEG" Puis
%>
<tr>
<td>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
<%= objFile.Name %></a>
</td>
<%
Si blnShowImages Alors
%>
<td>
<img src="<%= ImageFilePath & "/" & objFile.Name %>" />
</td>
<%
Autre
%>
<td>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
Afficher l'image</a>
</td>
<%
Fin si
%>
<td align="centre">
<input type="checkbox" name="delete"
value="<%= objFile.Name %>" />
</td>
<%
Fin si
Suivant
Définir objFolder = Rien
Définir objFSO = Rien
%>
<tr>
<td colspan="3" align="right">
<input type="submit" name="btnDelete"
value="<%= SupprimerButtonLabel %>">
</td>
</tr>
</table>
</form>
</body>
</html>
Lorsque vous effectuez une opération de suppression, assurez-vous de noter que s'il n'y a pas d'invite de confirmation de suppression dans le programme, le programme ne pourra pas annuler l'opération de suppression.
Conclusion Les gens n'utiliseront jamais ASP pour créer des sites Web évolutifs à grande échelle. (Note du traducteur : cette phrase n'est pas très appropriée sans traduction. D'après mon expérience professionnelle, ASP peut complètement créer des systèmes de sites Web à grande échelle. En termes d'ASP, j'ai participé à la construction d'intranets d'entreprise à grande échelle, d'applications industrielles mobiles , etc.) Mais parfois vous pouvez utiliser cela pour simplifier votre travail, même si le code n'est jamais publié sur le WEB.
Pour obtenir le code, vous pouvez télécharger le fichier ZIP de discussion contenant ce code depuis le répertoire racine de http://www.weiw.com . Une fois le code exécuté, toutes les images sous http://www.weiw.com/images. / sera affiché.
Vous pouvez modifier la valeur de la constante ImageFilePath. Vous pouvez également placer des chemins virtuels ici et le code utilisera Server.MapPath pour déterminer le chemin physique approprié. Vous pouvez facilement spécifier certains emplacements sur votre site Web. Par exemple, changer la valeur de cette constante de « images » à « /images » pointerait le programme vers le répertoire images dans le répertoire racine du site Web. De la même manière, la valeur de ImageFilePath peut être modifiée pour atteindre le même objectif.
Deuxièmement : lors de l'écriture de ce code, j'ai simplement utilisé le type de fichier sur ma machine. Cela ne fonctionne correctement que sur ma machine. Il s'avère que la description du type de fichier peut modifier la base de votre union de fichiers. Afin d'obtenir les extensions, vous choisissez d'afficher celles basées sur ces fichiers au lieu de leur type. J'ai implémenté cette fonctionnalité dans le code de ce fichier ZIP. Il s'agit désormais de la dernière version du programme.