Adodb.Stream读取和写入UTF-8编码的文件

网络整理 - 09-04

最近在为网站添加一个内容，涉及到在线读取和写入UTF-8编码的文件，才发现FSO对象只能读写ANSI编码的文件，无法读写UTF-8编码的文件，琢磨了半天，终于在网上找到一个很实用的函数，完整的代码如下：

<%'函数名称：ReadTextFile
'作用：利用Adodb.Stream对象来读取UTF-8编码的文件
'示例：Call ReadFromTextFile("File/FileName.htm","UTF-8")
Function ReadFromTextFile(FileUrl,CharSet)
dim str
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编码的文件
'示例：Call WriteToTextFile("File/FileName.htm",Content,"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%>