利用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