A cópia do código é a seguinte:
'Nome da função: ReadTextFile
'Função: use o objeto Adodb.stream para ler os arquivos de texto do formato UTF-8
'------------------------------------------------------
FunctionReadFromTextFile (fileurl, charset)
Iffileurl = "" ORISNULL (FILEURL) Então
ReadfromTextFile = ""
Saída de saída
Endif
Ifnotflib.isReallyPath (fileurl) Então
Fileurl = server.mappath (fileurl)
Endif
DIMSTR, STM
setstm = server.createObject ("adodb.stream")
stm.Type = 2 'Leia neste modo
STM.Mode = 3
stm.charset = charset
STM.OPEN
stm.loadfromfilefileurl
str = stm.readtext
stm.close
setstm = nada
ReadfromTextFile = str
Função final
'---------------------------------------------------
'Nome da função: writEtotextfile
'Função: use o objeto Adodb.stream para gravar arquivos de texto no formato UTF-8
'------------------------------------------------------
FunctionWritetotextFile (Fileurl, Byvaltr, Charset)
Iffileurl = "" ORISNULL (FILEURL) Então
WritEtotextfile = ""
Saída de saída
Endif
Ifnotflib.isReallyPath (fileurl) Então
Fileurl = server.mappath (fileurl)
Endif
Dimstm
setstm = server.createObject ("adodb.stream")