複製代碼代碼如下:
<%@language=vbscriptcodepage=936%>
<%
'批量文件自動搜索替換插入器Ver2.0
'飛雲編寫,CSDN帳號:jspadmin,QQ:33323489
'個人網站http://www.pifoo.com蚍蜉中文站，歡迎交換鏈接。本站提供免費博客申請註冊。
'你可以使用或修改本代碼，但是請保留版權信息或鏈接，謝謝使用！
'如果有問題或建議，請給我留言http://www.pifoo.com/guestbook/
%>
<%
bakpath=request("bakpath")
delbak=server.mappath(bakpath)
setfso=createobject("scripting.filesystemobject")
response.write"刪除操作結果如下："&"<br>"
iterate(delbak)
functioniterate(path)
dimfolder,folders,files,file
setfolder=fso.getfolder(path)
setfiles=folder.files
foreachfileinfiles
iffso.getextensionname(file.name)="bak"then
response.writefile.name&"已經被成功刪除！<br>"&file.path&"<br><br>"
file.deletetrue
endif
next
setfolders=folder.subfolders
foreachfinfolders
iteratef.path
next
endfunction
setfso=nothing
%>
<AHREF="index.asp">返回首頁</A>