La copia del código es la siguiente:
'Nombre de la función: ReadTextFile
'Función: use el objeto ADODB.Stream para leer archivos de texto de formato UTF-8
'----------------------------------------------------
FunctionReadFromTextFile (fileUrl, charset)
IfFileUrl = "" orisNull (fileurl) entonces
ReadFromTextFile = ""
Extinción
Endif
Ifnotflib.isreallyPath (fileUrl) entonces
FileUrl = server.mappath (fileUrl)
Endif
dimstr, stm
setstm = server.createObject ("ADODB.Stream")
stm.type = 2 'lea en este modo
stm.mode = 3
stm.charset = charset
stm.open
stm.LoadFromFileFileUrl
str = stm.ReadText
stm. cerrar
setstm = nada
ReadFromTextFile = str
Función final
'-------------------------------------------------
'Nombre de la función: WriteTotExtfile
'Función: use el objeto ADODB.stream para escribir archivos de texto en formato UTF-8
'----------------------------------------------------
FunctionWriteToTextFile (FileUrl, Byvalstr, Charset)
IfFileUrl = "" orisNull (fileurl) entonces
WriteTotExtFile = ""
Extinción
Endif
Ifnotflib.isreallyPath (fileurl) entonces
FileUrl = server.mappath (fileUrl)
Endif
Dimstm
setstm = server.createObject ("ADODB.Stream")