复制代码 代码如下:'函数名称: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

　　推荐阅读

　　Oracle常用功能集锦

数值函数： abs(m) m的绝对值 mod(m,n) m被n除后的余数 power(m,n) m的n次方 round(m[,n]) m四舍五入至小数点后n位的值（n缺省为0） trunc(m[,n]) m截断n位小数位的值（n缺省为0） --------------------------->>>详细阅读

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

地址：http://www.17bianji.com/kaifa2/ASP/33033.html

 1/2    1