Для тех, кто не использует FSO в ASP, используйте объект adodb.stream для сохранения и чтения файлов, чтобы избежать машин, на которых есть виртуальные хосты, не поддерживающие FSO. '************************************
'Читать файл
'************************************
Функция LoadFromFile (файл ByVal)
Тусклый объектный поток
Тусклый RText
RText = Массив(0, )
Установите objStream = Server.CreateObject(ADODB.Stream)
С объектным потоком
.Тип = 2
.Режим = 3
.Открыть
.Кодировка = utf-8
.Position = objStream.Size
При ошибке Возобновить Далее
.LoadFromFile Server.MapPath(Файл)
Если Ошибка Тогда
RText = Массив(Номер ошибки, Описание ошибки)
ЗагрузитьИзФайла = РТекст
Ошиб.Очистить
Выход из функции
Конец, если
RText = Массив(0,.ReadText)
.Закрывать
Конец с
ЗагрузитьИзФайла = РТекст
Установить objStream = Ничего
Конечная функция
'************************************
'Сохранить файл
'************************************
Функция SaveToFile(ByVal strBody, ByVal File)
Тусклый объектный поток
Тусклый RText
RText = Массив(0, )
Установите objStream = Server.CreateObject(ADODB.Stream)
С объектным потоком
.Тип = 2
.Открыть
.Кодировка = utf-8
.Position = objStream.Size
.WriteText = стрбоди
При ошибке Возобновить Далее
.SaveToFile Server.MapPath(Файл), 2
Если Ошибка Тогда
RText = Массив(Номер ошибки, Описание ошибки)
СохранитьToFile = RText
Ошиб.Очистить
Выход из функции
Конец, если
.Закрывать
Конец с
RText = Array(0, файл успешно сохранен!)
СохранитьToFile = RText
Установить objStream = Ничего
Конечная функция