复制代码 代码如下:

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