<٪
'-------------------------------------------
اسم الوظيفة: ReadTextFile
"الوظيفة: استخدم كائن ADODB.Stream لقراءة الملفات النصية لتنسيق UTF-8
'----------------------------------------------------
functionReadFromTextFile (Fileurl ، Charset)
Dimster
setStm = server.createBject ("Adodb.stream")
stm.type = 2 'اقرأ في هذا الوضع
stm.mode = 3
stm.charset = charset
stm.open
stm.loadfromfileserver.mappath (fileurl)
str = stm.readtext
stm.close
setStm = لا شيء
ReadFromTextFile = str
الوظيفية
'-------------------------------------------
اسم الوظيفة: WriteToTextFile
"الوظيفة: استخدم كائن ADODB.Stream لكتابة الملفات النصية بتنسيق UTF-8
'----------------------------------------------------
SubwritetOtextFile (Fileurl ، Byvalsstr ، Charset)
setStm = server.createBject ("Adodb.stream")
stm.type = 2 'اقرأ في هذا الوضع
stm.mode = 3
stm.charset = charset
stm.open
stm.writetextstr
stm.savetofilesserver.mappath (fileurl) ، 2
stm.flush
stm.close
setStm = لا شيء
ينتهي
٪>
<٪
dimstrtext
strtext = readfromtextFile ("test_utf-8.txt" ، "UTF-8")
٪>
<! doctypehtmlpublic "-// w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<head>
<head>
<title> مثال رمز: قراءة/كتابة ملفات بتنسيق ترميز UTF-8 باستخدام ASP </title>
<metahttp-equiv = "content-type" content = "text/html ؛ charset = gb2312"/>
<metaname = "المؤلف" content = "fengyan ، [email protected]">
<TENAME = "حقوق الطبع والنشر" content = "http://www.cnlei.com"/>
</head>
<body>
<٪ = strtext ٪>
</body>
</html>