<%
'-------------------------------------------------
'Имя функции: ReadTextFile
'Function: используйте объект AdoDB.Stream для чтения текстовых файлов формата UTF-8
'----------------------------------------------------
functionReadFromTextFile (fileUrl, charset)
димстр
setStm = server.createObject ("adodb.stream")
ST.T.Type = 2 'Читать в этом режиме
St.mode = 3
STM.CHARSET = Charset
Св
stm.loadflesfileserver.mappath (fileUrl)
str = stm.readtext
St.close
setStm = ничего
ReadfromTextFile = str
конечная функция
'-------------------------------------------------
'Имя функции: writeTotextFile
Функция: используйте объект AdoDB.Stream для записи текстовых файлов в формате UTF-8
'----------------------------------------------------
SubWritetOtextFile (FileUrl, Byvalstr, Charset)
setStm = server.createObject ("adodb.stream")
ST.T.Type = 2 'Читать в этом режиме
St.mode = 3
STM.CHARSET = Charset
Св
STM.WriteTextStr
STM.SavetOfilesserver.mappath (FileUrl), 2
STM.Flush
St.close
setStm = ничего
заканчивая
%>
<%
DimStrext
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">
<голова>
<голова>
<TILE> Пример кода: прочитать/записать файлы в формате кодирования UTF-8 с использованием ASP </title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312"/>
<metaname = "Автор" content = "fengyan, [email protected]">
<metaname = "Copyright" content = "http://www.cnlei.com"/>
</head>
<тело>
<%= strtext%>
</body>
</html>