Um das gleichzeitige Löschen von Datensätzen und Bildern zu erreichen, wird im Allgemeinen aus Leistungsgründen der Editor verwendet, um die Bilder im Artikel in einem Feld zu speichern, um die spätere Löschverarbeitung zu erleichtern. Die erste Methode: Dies ist der Code zum Löschen von Einzelfeldbildern. Dies ist relativ einfach, da das Bildfeld bereits im Feld „bookpic“ der Datenbanktabelle vorhanden ist.
Kopieren Sie den Codecode wie folgt:
<!--#include file=conn.asp-->
<%
fileid=trim(request(fileid))'ID des zu löschenden Datensatzes
set rs=server.createobject(adodb.recordset)
sql=select * from shop_books where bookid=3090
rs.open sql,conn,3,2
upfile=rs(bookpic) 'Mit Pfad und Dateiname
set fso=server.CreateObject(scripting.filesystemobject)
fso.deletefile(server.MapPath(upfile))
setze fso=nichts
rs.löschen
rs.update
rs.close
setze rs=nichts
%>
Die zweite Methode: für mehrere Bilder
Unter dem ASP-Programm können Sie beim Hinzufügen von Informationen den ewebeditor verwenden. Dadurch können die Bilder des Artikels extrahiert und in ein Feld eingefügt werden.
Kopieren Sie den Codecode wie folgt:
Id=Anfrage(Id)
Wenn Id= Dann
Response.Write(<script>alert('Löschvorgang fehlgeschlagen: Bitte wählen Sie die zu löschenden Informationen aus!'); hitory.go(-1);</script>)
Anders
Id=Split(Id,,)
Für i=0 bis UBound(Id)
set oRs=SerVer.CreateObject(Adodb.recordset)
sSql = SELECT D_SavePathFileName FROM &data& WHERE ID=&id(i)&
oRs.Open SQL, Conn, 0, 1
Wenn nicht, dann oRs.Eof
asSavePathFileName = oRs(D_SavePathFileName)
Anders
asSavePathFileName=
Ende wenn
oRs.Schließen
Setze oRs=Nothing
Dimmen Sie aSavePathFileName
wenn len(aSavePathFileName)>0 dann
aSavePathFileName = Split(asSavePathFileName, |)
Dim n
Für n = 0 To UBound(aSavePathFileName)
'Dateien nach Pfaddateinamen löschen
Rufen Sie DoDelFile(aSavePathFileName(n)) auf.
Nächste
'Artikel www.vevb.com löschen
Conn.Execute (aus Artikel löschen, wobei id=&id(i)&)
Nächste
Ende wenn
Sub DoDelFile(sPathFile)
„Bei Fehler Weiter fortsetzen.“
Dim ofFSO
Setze oFSO = Server.CreateObject(Scripting.FileSystemObject)
wenn objFSO.fileExists(Server.MapPath(sPathFile)) dann
oFSO.DeleteFile(Server.MapPath(sPathFile))
Ende wenn
Setze oFSO = Nichts
Sub beenden