การคัดลอกรหัสมีดังนี้:
<%@language = vbscriptCodePage = 936%>
-
'ไฟล์แบตช์การค้นหาอัตโนมัติแทนที่แทรก ver2.0
'Feiyun Writing, บัญชี 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)
functionIterate (เส้นทาง)
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
iteratef.path
ต่อไป
endfunction
setfso = ไม่มีอะไร
-
<ahref = "index.asp"> กลับไปที่หน้าแรก </a>