Salinan kode adalah sebagai berikut:
'Nama Fungsi: ReadTextFile
Fungsi: Gunakan objek ADODB.Stream untuk membaca file teks format UTF-8
'-----------------------------------------------------
FunctionReadFromTextFile (FileUrl, Charset)
IffileUrl = "" orisnull (fileurl) lalu
ReadFromTextFile = ""
Fungsi keluar
Endif
IFNOTFLIB.ISREALLYLEPATH (FileUrl) Lalu
Fileurl = server.mappath (fileurl)
Endif
Dimstr, stm
setstm = server.createObject ("adodb.stream")
stm.type = 2 'baca dalam mode ini
STM.Mode = 3
stm.charset = charset
stm.open
STM.LoadFromFileFileUrl
str = stm.readtext
stm.close
setstm = tidak ada
ReadFromTextFile = str
Fungsi endfungsi
'-------------------------------------------------
'Nama fungsi: writeToTextFile
'Fungsi: Gunakan objek ADODB.Stream untuk menulis file teks dalam format UTF-8
'-----------------------------------------------------
FunctionWriteToTextFile (FileUrl, BYVALSTR, Charset)
IffileUrl = "" orisnull (fileurl) lalu
WriteToTextFile = ""
Fungsi keluar
Endif
IFNOTFLIB.ISREALLYLEPATH (FileUrl) Lalu
Fileurl = server.mappath (fileurl)
Endif
Dimstm
setstm = server.createObject ("adodb.stream")