Кода -копия выглядит следующим образом:
<%@language = vbscriptCodepage = 936%>
<%
'Автоматический поиск пакетного файла заменить вставку ver2.0
'Feiyun Письменность, CSDN Account: JSpadmin, QQ: 33323489
'Личный веб -сайт http://www.pifoo.com Китайский веб -сайт, добро пожаловать на ссылки. Этот сайт предоставляет бесплатное приложение и регистрацию в блоге.
«Вы можете использовать или изменить этот код, но, пожалуйста, храните информацию или ссылки, спасибо за его использование!
«Если у вас есть какие -либо вопросы или предложения, пожалуйста, оставьте мне сообщение http://www.pifoo.com/guestbook/
%>
<%
Bakpath = запрос ("Bakpath")
delbak = server.mappath (bakpath)
setfso = createObject ("scripting.filesystemobject")
response.write "Результат операции удаления выглядит следующим образом:" & "<br>"
итерация (Delbak)
функциональный оператор (PATH)
Dimfolder, папки, файлы, файл
setFolder = fso.getFolder (path)
setfiles = folder.files
foreachfileinfiles
iffso.getextextensionname (file.name) = "bak" then
response.writefile.name & "был успешно удален! <br>" & file.path & "<br> <br>"
file.deletetrue
эндиф
следующий
setFolders = folder.subfolders
Foreachfinfolders
itaterf.path
следующий
конечная функция
setfso = ничего
%>
<Ahref = "index.asp"> вернуться на домашнюю страницу </a>