Das Löschen nicht aufgezeichneter Bilder durch ASP erfordert eine Doppelschleife, um jedes Bild im Ordner (dem Ordner, in dem die Bilder gespeichert sind) mit allen Datensätzen in der Datenbank zu vergleichen. Teilen Sie das Bild auf, fragen Sie nach dem ersten Teil des Namens und vergleichen Sie ihn dann mit den Bildpfaddatensätzen in der verbleibenden Datenbank.
Wenn die InStr-Funktion von vb vorhanden ist, ist der Rückgabewert >0 und Sie können eine Schlussfolgerung ziehen.
Der Code lautet wie folgt: deal.asp
Kopieren Sie den Codecode wie folgt:
<%@ language=vbscript%>
<%response.Expires = 0%>
<!--#include file=conn.asp-->
<%
Dim objFSO,objFolder,objFile,FF 'objFSO-Variable zum Speichern der Objektinstanz deklarieren
FF = Server.MapPath(pro_s/)
Setze objFSO = Server.CreateObject(Scripting.FileSystemObject)
Wenn objFSO.FolderExists(ff) Dann
Response.write Alle Dateien im Ordner &ff&:<br>
Setze objFolder = objFSO.GetFolder(ff)
Für jede objFile in objFolder.Files
%>
<%
Dateiname=cstr(objFile.name)
meinname=split(dateiname,.)
ffname=meinname(0)
a=0
set sclass=conn.execute (img aus wksc_pro auswählen)
tun, während nicht sclass.eof
result=Instr(sclass(img),ffname)
a=a+Ergebnis
if(a>0) dann
beenden tun
Ende wenn
sclass.movenext
Schleife
if(a=0) dann
Antwort.Write &objFile&
Antwort.Write<br>
objFile.delete
Ende wenn
%>
<%
Nächste
Anders
Der Response.Write-Ordner &ff& existiert nicht und die zugehörigen Informationen können nicht gelesen werden!
Ende wenn
Setze objFolder = Nothing
Set objFSO = Nothing 'Speicherplatz für die FileSystemObject-Objektinstanz freigeben
%>