Adodb.Stream对象读取和写入utf-8编码文件。

'函数名称：ReadTextFile
'作用：利用Adodb.Stream对象来读取UTF-8编码的文件
Function ReadFromTextFile(FileUrl,CharSet)
dimstr
set stm=server.CreateObject("adodb.stream")
stm.Type=2'以本模式读取
stm.mode=3 
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
stm.Close
set stm=nothing
ReadFromTextFile=str
End Function
'函数名称：WriteToTextFile
'作用：利用Adodb.Stream对象来写入UTF-8编码的文件
Sub WriteToTextFile(FileUrl,byval Str,CharSet)
set stm=server.CreateObject("adodb.stream")
stm.Type=2'以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteText str
stm.SaveToFile server.MapPath(FileUrl),2 
stm.flush
stm.Close
set stm=nothing
End Sub