Прочитайте текстовые файлы с помощью adodb.stream вместо FSO под ASP

'Файл -контент чтение.

Кода -копия выглядит следующим образом:

FunctionLoadFile (byValfile)

Dimobjstream

OnerRorResumenext

SetObjStream = server.createObject ("adodb.stream")

Iferr.number = -2147221005then

Response.write "<divalign = 'Center'> К сожалению, ваш хост не поддерживает Adodb.stream, и вы не можете использовать эту программу </div>"

Err.clear

Response.end

Эндиф

БЕЗ БИДЕР

.Type = 2

.Mode = 3

.Открыть

.LOADFROMFILESERVER.MAPPATH (файл)

Iferr.number <> 0then

Response.write "<divalign = 'center'> file <fontcolor = '#ff0000'>" & file & "</font> не может быть открыт, проверьте, существует ли он! </Font> </div>"

Err.clear

Response.end

Эндиф

.CHARSET = "GB2312"

.Position = 2

LoadFile = .ReadText

.Закрывать

Энд

Setobjstream = ничего

Конечная функция

'Содержание хранилища для файла

Кода -копия выглядит следующим образом:

SubsaveTofile (byvalstrybody, byvalfile)

Dimobjstream

OnerRorResumenext

SetObjStream = server.createObject ("adodb.stream")

Iferr.number = -2147221005then

Response.write "<divalign = 'Center'> К сожалению, ваш хост не поддерживает Adodb.stream, и вы не можете использовать эту программу </div>"

Err.clear

Response.end

Эндиф

БЕЗ БИДЕР

.Type = 2

.Открыть

.CHARSET = "GB2312"

.Position = objstream.size

.WriteText = strbody

.Savetofileserver.mappath (файл), 2

.Закрывать

Энд

Setobjstream = ничего

Заканчивая

Пример вызови

Кода -копия выглядит следующим образом:

<%

Writefile "aaa.txt", "www.vevb.com", "UTF-8"

Response.write readfile ("aaa.txt", "UTF-8")

%>

Статьи, которые могут вас заинтересовать:

Adodb.stream считывает файлы в код массива. JScript использует adodb.stream для оценки кода кодирования файлов. Используйте msxml2.xmlhttp и adodb.stream для сбора изображений с использованием adodb.stream под asp для загрузки файлов вместо открытия методов asp/атрибутов Adodb.stream object adodb.stream component attribute set attribuet 800A0BBC Проблема