يتطلب حذف ASP للصور غير المسجلة حلقة مزدوجة لمقارنة كل صورة في المجلد (المجلد حيث يتم تخزين الصور) مع جميع السجلات الموجودة في قاعدة البيانات. قم بتقسيم الصورة واطلب الجزء الأول من الاسم، ثم قارنه بسجلات مسار الصورة في قاعدة البيانات المتبقية.
في حالة وجود الدالة InStr الخاصة بـ vb، تكون القيمة المرجعة >0، ويمكنك استخلاص النتيجة.
الكود كالتالي: Deal.asp
انسخ رمز الكود كما يلي:
<%@ language=vbscript%>
<%response.Expires = 0%>
<!--#include file=conn.asp-->
<%
Dim objFSO,objFolder,objFile,FF 'تعريف متغير objFSO لتخزين مثيل الكائن
FF = Server.MapPath(pro_s/)
تعيين objFSO = Server.CreateObject(Scripting.FileSystemObject)
إذا كان objFSO.FolderExists(ff) إذن
Response.write كافة الملفات الموجودة في المجلد &ff&:<br>
تعيين objFolder = objFSO.GetFolder(ff)
لكل objFile في objFolder.Files
%>
<%
اسم الملف=cstr(objFile.name)
اسمي = تقسيم (اسم الملف،.)
ffname = اسمي (0)
أ = 0
قم بتعيين sclass=conn.execute(اختر img من wksc_pro)
تفعل في حين لا sclass.eof
النتيجة=Instr(sclass(img)،ffname)
أ=أ+نتيجة
إذا (أ> 0) ثم
الخروج القيام به
نهاية إذا
sclass.movenext
حلقة
إذا (أ = 0) ثم
استجابة.اكتب &objملف&
رد.اكتب<br>
objFile.delete
نهاية إذا
%>
<%
التالي
آخر
مجلد Response.Write &ff& غير موجود ولا يمكن قراءة المعلومات ذات الصلة!
نهاية إذا
تعيين objFolder = لا شيء
Set objFSO = Nothing 'حرر مساحة ذاكرة مثيل كائن FileSystemObject
%>