Untuk mencapai penghapusan rekaman dan penghapusan gambar secara bersamaan, umumnya demi kinerja, editor digunakan untuk menyimpan gambar dalam artikel dalam satu bidang. Metode pertama: Ini adalah kode untuk menghapus gambar satu bidang. Ini relatif sederhana, karena field gambar sudah ada sebelumnya di field bookpic tabel database.
Copy kode kodenya sebagai berikut:
<!--#sertakan file=sambungan.asp-->
<%
fileid=trim(request(fileid))'ID rekaman yang akan dihapus
set rs=server.createobject(adodb.recordset)
sql=pilih * dari shop_books di mana bookid=3090
rs.open sql,sambungan,3,2
upfile=rs(bookpic) 'Dengan jalur dan nama file
set fso=server.CreateObject(scripting.filesystemobject)
fso.deletefile(server.MapPath(upfile))
atur fso=tidak ada
rs.hapus
rs.update
rs.tutup
atur rs=tidak ada
%>
Metode kedua: untuk banyak gambar
Di bawah program ASP, Anda dapat menggunakan ewebeditor saat menambahkan informasi. Ini dapat mengekstrak gambar artikel dan memasukkannya ke dalam kolom.
Copy kode kodenya sebagai berikut:
Id=Permintaan(Id)
Jika Id = Maka
Response.Write(<script>alert('Operasi penghapusan gagal: Silakan pilih informasi yang akan dihapus!'); hitory.go(-1);</script>)
Kalau tidak
Id=Pisahkan(Id,,)
Untuk i=0 hingga UBound(Id)
set oRs=SerVer.CreateObject(Adodb.recordset)
sSql = PILIH D_SavePathFileName DARI &data& DI MANA ID=&id(i)&
atau.Buka sSql, Sambungan, 0, 1
Jika Tidak atau Sesekali Lalu
asSavePathFileName = oRs(D_SavePathFileName)
Kalau tidak
asSavePathFileName=
Akhiri Jika
atau.Tutup
Tetapkan oRs=Tidak Ada
Redupkan SavePathFileName
jika len(aSavePathFileName)>0 maka
aSavePathFileName = Pisahkan(asSavePathFileName, |)
Redupkan n
Untuk n = 0 Ke UBound(aSavePathFileName)
'Hapus file berdasarkan nama file jalur
Panggil DoDelFile(aSavePathFileName(n))
Berikutnya
'Hapus artikel www.vevb.com
Conn.Execute(hapus dari Artikel di mana id=&id(i)&)
Berikutnya
berakhir jika
SubDoDelFile(sPathFile)
'Pada Kesalahan Lanjutkan Berikutnya
Redupkan FSO
Setel oFSO = Server.CreateObject(Scripting.FileSystemObject)
jika objFSO.fileExists(Server.MapPath(sPathFile)) lalu
oFSO.DeleteFile(Server.MapPath(sPathFile))
berakhir jika
Setel oFSO = Tidak Ada
Akhiri Sub