-
-
'ชื่อฟังก์ชั่น: readtextfile
'ฟังก์ชั่น: ใช้วัตถุ ADODB.Stream เพื่ออ่านไฟล์ข้อความรูปแบบ UTF-8
-
functionReadFromTextFile (fileUrl, charset)
Dimstr
setstm = server.createObject ("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
endfunction
-
'ชื่อฟังก์ชั่น: writetotextfile
'ฟังก์ชั่น: ใช้วัตถุ ADODB.Stream เพื่อเขียนไฟล์ข้อความในรูปแบบ UTF-8
-
SubwriteTotextFile (fileUrl, byvalstr, charset)
setstm = server.createObject ("adoDb.stream")
stm.type = 2 'อ่านในโหมดนี้
stm.mode = 3
stm.charset = charset
stm.open
stm.writextstr
STM.Savetofilesserver.mappath (fileUrl), 2
stm.flush
stm.close
setstm = ไม่มีอะไร
enddub
-
-
dimstrtext
stressTe = 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]">
<metaname = "ลิขสิทธิ์" เนื้อหา = "http://www.cnlei.com"/>
</head>
<body>
<%= strtext%>
</body>
</html>