Envoyez un morceau de code pour qu'ASP affiche toutes les images du dossier sur une seule page, ce qui est utile pour lire les images du dossier actuel, les lire et les contrôler. Copiez le code comme suit :
<%
dim fso, objFolder, objFiles
liste de fichiers sombre
Définir fso=Server.CreateObject(scripting.FileSystemObject)
Définir objFolder=fso.GetFolder(server.MapPath(thumbs))
Définir objFiles=objFolder.Files
'Boucle pour afficher les noms de fichiers sous le chemin du dossier
Pour chaque objFile dans objFiles
Si getExt(objFile.name)=gif ou getExt(objFile.name)=jpg ou getExt(objFile.name)=jpeg Alors
liste de fichiers = liste de fichiers<img src=&objFile.name>
Fin si
Suivant
'Libérer l'objet
Définir objFolder = rien
Définir fso = rien
'Obtenir le type de fichier
Fonction getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,.)))
Fonction de fin
%>
<%=liste de fichiers%>
Sur la base du code ci-dessus, un développement secondaire peut être effectué pour faire des histoires.