ASP menghapus gambar yang tidak direkam memerlukan loop ganda untuk membandingkan setiap gambar di folder (folder tempat gambar disimpan) dengan semua catatan di database. Bagilah gambarnya dan tanyakan bagian pertama namanya, lalu bandingkan dengan catatan jalur gambar di database yang tersisa.
Jika fungsi InStr dari vb ada, nilai yang dikembalikan adalah >0, dan Anda dapat menarik kesimpulan.
Kodenya adalah sebagai berikut deal.asp
Copy kode kodenya sebagai berikut:
<%@ bahasa=vbscript%>
<%response.Kedaluwarsa = 0%>
<!--#sertakan file=sambungan.asp-->
<%
Redupkan objFSO,objFolder,objFile,FF 'Deklarasikan variabel objFSO untuk menyimpan instance objek
FF = Server.MapPath(pro_s/)
Setel objFSO = Server.CreateObject(Scripting.FileSystemObject)
Jika objFSO.FolderExists(ff) Lalu
Response.write Semua file di folder &ff&:<br>
Setel objFolder = objFSO.GetFolder(ff)
Untuk Setiap objFile di objFolder.Files
%>
<%
nama file=cstr(objFile.nama)
namaku=split(nama file,.)
namaff=namaku(0)
sebuah=0
setel sclass=conn.execute(pilih img dari wksc_pro)
lakukan tanpa scclass.eof
hasil=Instr(sclass(img),namaff)
a=a+hasil
jika(a>0) maka
keluar lakukan
berakhir jika
kelas.movenext
lingkaran
jika(a=0) maka
respon.Tulis &objFile&
respon.Tulis<br>
objFile.hapus
berakhir jika
%>
<%
Berikutnya
Kalau tidak
Response.Tulis folder &ff& tidak ada dan informasi terkait tidak dapat dibaca!
Akhiri Jika
Setel objFolder = Tidak Ada
Setel objFSO = Nothing 'Lepaskan ruang memori instance objek FileSystemObject
%>