'函数名称: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