<%
'-------------------------------------------------
'Funktionsname: ReadTextFile
'Funktion: Verwenden Sie das Objekt ADODB.Stream, um Textdateien von UTF-8-Format zu lesen
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunktionReadFromTextFile (FileUrl, CharSet)
Dimstr
setstm = server.createObject ("adodb.stream")
stm.type = 2 'in diesem Modus lesen
stm.mode = 3
stm.charSet = charSet
stm.open
stm.loadFromFileServer.mappath (FileURL)
STR = stm.readText
stm.close
setstm = nichts
ReadFromTextFile = str
Endfunktion
'-------------------------------------------------
'Funktionsname: WriteTotextFile
'Funktion: Verwenden Sie das Objekt ADODB.Stream, um Textdateien im UTF-8-Format zu schreiben
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
SubwritetotextFile (FileUrl, Byvalstr, Charset)
setstm = server.createObject ("adodb.stream")
stm.type = 2 'in diesem Modus lesen
stm.mode = 3
stm.charSet = charSet
stm.open
stm.writeTextstr
stm.savetofilesserver.Mappath (FileURL), 2
stm.flush
stm.close
setstm = nichts
Ende
%>
<%
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">
<kopf>
<kopf>
<title> Code Beispiel: Lesen/Schreiben von Dateien im UTF-8-Codierungsformat mit ASP </title>
<metahttp-äquiv = "content-type" content = "text/html; charSet = gb2312"/>
<metaname = "Autor" content = "fengyan, [email protected]">
<metaname = "Copyright" content = "http://www.cnlei.com"/>
</head>
<body>
<%= Strtext%>
</body>
</html>