利用AdoDb.Stream对象来读取UTF-8格式的文本文件

　　'函数名称:ReadTextFile

　　'作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件

　　'----------------------------------------------------

　　Function ReadFromTextFile (FileUrl,CharSet)

　　If FileUrl = "" OR IsNull(FileUrl) Then

　　ReadFromTextFile = ""

　　Exit Function

　　End If

　　If Not FLib.IsReallyPath(FileUrl) Then

　　FileUrl = Server.MapPath(FileUrl)

　　End If

　　dim str, stm

　　set stm=server.CreateObject("adodb.stream")

　　stm.Type=2 '以本模式读取

　　stm.mode=3

　　stm.charset=CharSet

　　stm.open

　　stm.loadfromfile FileUrl

　　str=stm.readtext

　　stm.Close

　　set stm=nothing

　　ReadFromTextFile=str

　　End Function

　　'-------------------------------------------------

　　'函数名称:WriteToTextFile

　　'作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件

　　'----------------------------------------------------

　　Function WriteToTextFile (FileUrl,byval Str,CharSet)

　　If FileUrl = "" OR IsNull(FileUrl) Then

　　WriteToTextFile = ""

　　Exit Function

　　End If

　　If Not FLib.IsReallyPath(FileUrl) Then

　　FileUrl = Server.MapPath(FileUrl)

　　End If

　　Dim stm

　　set stm=server.CreateObject("adodb.stream")

　　stm.Type=2 '以本模式读取

　　stm.mode=3

　　stm.charset=CharSet

　　stm.open

　　stm.WriteText str

　　stm.SaveToFile FileUrl,2

　　stm.flush

　　stm.Close

　　set stm=nothing

　　End Function