نسخة الكود كما يلي:
اسم الوظيفة: ReadTextFile
"الوظيفة: استخدم كائن ADODB.Stream لقراءة الملفات النصية لتنسيق UTF-8
'----------------------------------------------------
functionReadFromTextFile (Fileurl ، Charset)
iffileurl = "" orisnull (fileurl) ثم
ReadFromTextFile = ""
exitfunction
Endif
ifnotflib.isreallypath (fileurl) ثم
fileurl = server.mappath (fileurl)
Endif
Dimster ، STM
setStm = server.createBject ("Adodb.stream")
stm.type = 2 'اقرأ في هذا الوضع
stm.mode = 3
stm.charset = charset
stm.open
stm.loadfromfilefileurl
str = stm.readtext
stm.close
setStm = لا شيء
ReadFromTextFile = str
الوظيفية
'-------------------------------------------
اسم الوظيفة: WriteToTextFile
"الوظيفة: استخدم كائن ADODB.Stream لكتابة الملفات النصية بتنسيق UTF-8
'----------------------------------------------------
FunctionWritetOtextFile (Fileurl ، Byvalsstr ، Charset)
iffileurl = "" orisnull (fileurl) ثم
WriteToTextFile = ""
exitfunction
Endif
ifnotflib.isreallypath (fileurl) ثم
fileurl = server.mappath (fileurl)
Endif
dimstm
setStm = server.createBject ("Adodb.stream")