Senden Sie einen Code an ASP, um alle Bilder im Ordner auf einer einzigen Seite anzuzeigen. Dies ist hilfreich, um die Bilder im aktuellen Ordner zu lesen, sie zu lesen und zu steuern. Kopieren Sie den Codecode wie folgt:
<%
dim fso,objFolder,objFiles
Dateiliste dimmen
Setze fso=Server.CreateObject(scripting.FileSystemObject)
Set objFolder=fso.GetFolder(server.MapPath(thumbs))
Legen Sie objFiles=objFolder.Files fest
'Schleife zur Ausgabe der Dateinamen der Dateien unter dem Ordnerpfad
Für jede objFile in objFiles
Wenn getExt(objFile.name)=gif oder getExt(objFile.name)=jpg oder getExt(objFile.name)=jpeg Dann
filelist = filelist<img src=&objFile.name>
Ende wenn
Nächste
'Objekt freigeben
Setze objFolder=nothing
Setze fso=nichts
'Dateityp abrufen
Funktion getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,.)))
Funktion beenden
%>
<%=Dateiliste%>
Basierend auf dem obigen Code kann eine sekundäre Entwicklung durchgeführt werden, um viel Aufhebens zu machen.