复制代码 代码如下:

<%@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>