<%
'-------------------------------------------------
'Nom de la fonction: ReadTextFile
'Fonction: utilisez l'objet Adodb.stream pour lire les fichiers texte du format UTF-8
'----------------------------------------------------
functionReadFromTextFile (FileUrl, charse)
DIMSTR
setStm = server.createObject ("adodb.stream")
stm.type = 2 'lire dans ce mode
stm.mode = 3
STM.Charset = Charset
oupér
STM.LoadFromFileServer.Mappath (FileUrl)
str = stm.readText
close
setStm = rien
Readfromtextfile = str
finition de fin
'-------------------------------------------------
'Nom de la fonction: WriteTotextFile
'Fonction: utilisez l'objet ADODB.stream pour écrire des fichiers texte au format UTF-8
'----------------------------------------------------
SubWriteTotextFile (FileUrl, ByValStr, Charset)
setStm = server.createObject ("adodb.stream")
stm.type = 2 'lire dans ce mode
stm.mode = 3
STM.Charset = Charset
oupér
STM.WriteTextSTR
STM.SAVETOFILESSERVER.MAPPATH (FILEURL), 2
flush
close
setStm = rien
fin
%>
<%
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">
<adal>
<adal>
<Title> Exemple de code: Lire / écriture des fichiers dans le format d'encodage UTF-8 à l'aide d'ASP </TITME>
<Metahttp-Equiv = "Content-Type" Content = "Text / Html; charSet = GB2312" />
<métaname = "auteur" contenu = "Fengyan, cnlei.yl @ gmail.com">
<métaname = "copyright" content = "http://www.cnlei.com" />
</ head>
<body>
<% = strText%>
</docy>
</html>