<%
'-------------------------------------------------
'Nama Fungsi: ReadTextFile
Fungsi: Gunakan objek ADODB.Stream untuk membaca file teks format UTF-8
'-----------------------------------------------------
FunctionReadFromTextFile (FileUrl, Charset)
dimstr
setstm = server.createObject ("adodb.stream")
stm.type = 2 'baca dalam mode ini
STM.Mode = 3
stm.charset = charset
stm.open
stm.loadFromFileServer.mappath (fileurl)
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
'-----------------------------------------------------
SubwritetotextFile (FileUrl, BYVALSTR, Charset)
setstm = server.createObject ("adodb.stream")
stm.type = 2 'baca dalam mode ini
STM.Mode = 3
stm.charset = charset
stm.open
stm.writetextstr
stm.savetofilesserver.mappath (fileurl), 2
STM.FLUSH
stm.close
setstm = tidak ada
endsub
%>
<%
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> Contoh Kode: Baca/Tulis File dalam Format Pengkodean UTF-8 Menggunakan Asp </iteme>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312"/>
<metaname = "penulis" konten = "fengyan, [email protected]">
<metaname = "hak cipta" konten = "http://www.cnlei.com"/>
</head>
<body>
<%= strtext%>
</body>
</html>