复制代码 代码如下:
'函数名称:ReadTextFile
'作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件
'----------------------------------------------------
FunctionReadFromTextFile(FileUrl,CharSet)
IfFileUrl=""ORIsNull(FileUrl)Then
ReadFromTextFile=""
ExitFunction
EndIf
IfNotFLib.IsReallyPath(FileUrl)Then
FileUrl=Server.MapPath(FileUrl)
EndIf
dimstr,stm
setstm=server.CreateObject("adodb.stream")
stm.Type=2'以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfileFileUrl
str=stm.readtext
stm.Close
setstm=nothing
ReadFromTextFile=str
EndFunction
'-------------------------------------------------
'函数名称:WriteToTextFile
'作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件
'----------------------------------------------------
FunctionWriteToTextFile(FileUrl,byvalStr,CharSet)
IfFileUrl=""ORIsNull(FileUrl)Then
WriteToTextFile=""
ExitFunction
EndIf
IfNotFLib.IsReallyPath(FileUrl)Then
FileUrl=Server.MapPath(FileUrl)
EndIf
Dimstm
setstm=server.CreateObject("adodb.stream")
stm.Type=2'以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteTextstr
stm.SaveToFileFileUrl,2
stm.flush
stm.Close
setstm=nothing
EndFunction