Реализация кода с использованием программы модификации пакетов ASP, FSO связано
Это небольшая вещь, которую нужно сделать в партиях модификаций кода, и я поделюсь ею с вами.
Типы файлов, которые могут быть обработаны в настоящее время: .asp .inc .htm .html. Конкретные типы могут быть изменены и добавлены самостоятельно.
Функции, реализованные программой: пакет изменяет файлы в каталоге Source и сохраните их в каталоге назначения.
Несколько модификаций могут достичь многих вещей!
Я больше ничего не скажу, код очень ясен
<%
'// +--------------------------------------------------------------------------- +
'// | Имя программы: модификатор пакета каменного кода v1.01 |
'// | Все права, защищенные камнями других гор, нарушения будут осуществлены! Пожалуйста, укажите авторское право при перепечатку :) |
'// | --------------------------------------------------------------------- |
'// | Система: Win2000; Редактор: EditPlus; Инструмент отступления: вкладка; Длина отступления: 8; Font: Songti (10pt); |
'// | --------------------------------------------------------------------- |
'// | Создатель: WYC; Время создания: 2004-03-08; |
'// | Писатель: WYC; Писатель: 2004-03-08; |
'// +--------------------------------------------------------------------------- +
Server.scriptTimeout = 500 'Время времени ожидания сценария
'// +--------------------------------------------------------------------------- +
'// | Пакетная модификация функций |
'// | --------------------------------------------------------------------- |
'// | Атрибут: PATH_FROM ИСПРАВЛЕНИЯ ФАЙЛА ФАЙЛОГА PATH_TO Целевой файл Рабочий каталог |
'// | --------------------------------------------------------------------- |
'// | Возвращаемое значение: нет |
'// | --------------------------------------------------------------------- |
'// | Программа поток: ... |
'// | --------------------------------------------------------------------- |
'// | Писатель: WYC; Время написания: 2004-03-08; |
'// +--------------------------------------------------------------------------- +
Sub midfile (path_from, path_to)
list_from = path_from 'хранилище текущий источник рабочего каталога
list_to = path_to 'хранилище текущий целевой рабочий каталог
Установить fso = createObject (scripting.filesystemobject)
SET FOLD = fso.getFolder (list_from) 'Получить объект папки
Установить FC = FOLT.FILES 'Получить набор записей файла
Установите mm = fold.subfolders 'Получить набор записей каталога
Для каждого F2 в мм
Установить objfile = server.createObject (scripting.filesystemobject)
objfile.createfolder (path_to & / & f2.name) 'Create Directory
midfile path_from & / & f2.name, path_to & / & f2.name 'рекурсивный вызов
response.write path_to & / & f2.name & закончен! <br>
Следующий
Для каждого F1 в FC
file_from = list_from & / & f1.name 'create file -адрес (источник)
file_to = list_to & / & f1.name 'create file -адрес (to)
fileExt = lcase (right (f1.name, 4)) 'Получить тип файла
Если FileExt = .asp или FileExt = .inc или fileExt = .htm или fileExt = html, то конкретный тип может быть изменен и добавлен самостоятельно