نسخة الكود كما يلي:
<٪@language = vbscriptCodePage = 936 ٪>
<٪
'ملف الدُفعات البحث التلقائي استبدال ver2.0
كتاب Feiyun ، حساب CSDN: Jspadmin ، QQ: 33323489
"موقع الويب الشخصي http://www.pifoo.com الصيني ، مرحبًا بك في روابط التبادل. يوفر هذا الموقع تطبيق مدونة مجاني وتسجيله.
"يمكنك استخدام هذا الرمز أو تعديله ، ولكن يرجى الاحتفاظ بمعلومات حقوق الطبع والنشر أو الروابط ، شكرًا لك على استخدامه!
"إذا كان لديك أي أسئلة أو اقتراحات ، فيرجى ترك رسالة لي http://www.pifoo.com/guestbook/
٪>
<٪
Bakpath = طلب ("Bakpath")
delbak = server.mappath (bakpath)
setfso = createObject ("scripting.filesystemObject")
Response.write "نتيجة عملية الحذف هي كما يلي:" & "<br>"
تكرار (Delbak)
وظيفية (مسار)
dimfolder ، المجلدات ، الملفات ، الملف
setfolder = fso.getfolder (المسار)
setFiles = folder.files
foreachfileinfiles
iffso.getExtextensionName (file.name) = "bak" ثم
Response.writefile.name & "تم حذفه بنجاح! <br>" & file.path & "<br> <br>"
file.deletetrue
Endif
التالي
setfolders = folder.subfolders
foreachfinfolders
ITERYF.PATH
التالي
الوظيفية
setfso = لا شيء
٪>
<ahref = "index.asp"> العودة إلى الصفحة الرئيسية </a>