Кода -копия выглядит следующим образом:
'Имя функции: ReadTextFile
'Function: используйте объект AdoDB.Stream для чтения текстовых файлов формата UTF-8
'----------------------------------------------------
FunctionReadFromTextFile (fileUrl, charset)
Iffileurl = "" Orisnull (FileUrl) Then
ReadfromTextFile = ""
Выходная функция
Эндиф
Ifnotflib.isReallyPath (fileUrl) then
FileUrl = server.mappath (fileUrl)
Эндиф
DIMSTR, STM
setStm = server.createObject ("adodb.stream")
ST.T.Type = 2 'Читать в этом режиме
St.mode = 3
STM.CHARSET = Charset
Св
ST.LoadFromFileFileurl
str = stm.readtext
St.close
setStm = ничего
ReadfromTextFile = str
Конечная функция
'-------------------------------------------------
'Имя функции: writeTotextFile
Функция: используйте объект AdoDB.Stream для записи текстовых файлов в формате UTF-8
'----------------------------------------------------
FunctionWritetTexTfile (fileUrl, Byvalstr, charset)
Iffileurl = "" Orisnull (FileUrl) Then
Writetotextfile = ""
Выходная функция
Эндиф
Ifnotflib.isReallyPath (fileUrl) then
FileUrl = server.mappath (fileUrl)
Эндиф
DIMSTM
setStm = server.createObject ("adodb.stream")