複製代碼代碼如下:
'函數名稱: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")