ASP读取文件和写文件

服务器端技术 - ASP

悦读人生 2017-11-13 11:51:44

ASP中,经常需要把数据写入文件,再从文件中把数据读出来。利用内置的Scripting.FileSystemObject,读文件和写文件本身并不难,但经常会遇到中文乱码等问题,读写文件就没那么轻松了。换一种思路,借助 adodb.stream 来读写文件,并设置文件的编码格式,中文乱码等问题便可迎刃而解。

读取文件操作

'-------------------------------------------------
'函数名称:ReadTextFile
'作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件
'----------------------------------------------------
Function ReadFromTextFile (FileUrl,CharSet)
    dim str
    set stm=server.CreateObject("adodb.stream")
    stm.Type=2 '以本模式读取
    stm.mode=3 
    stm.charset=CharSet
    stm.open
    stm.loadfromfile server.MapPath(FileUrl)
    str=stm.readtext
    stm.Close
    set stm=nothing
    ReadFromTextFile=str
End Function

写文件操作

'-------------------------------------------------
'函数名称:WriteToTextFile
'作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件
'----------------------------------------------------
Sub WriteToTextFile (FileUrl,byval Str,CharSet) 
    set stm=server.CreateObject("adodb.stream")
    stm.Type=2 '以本模式读取
    stm.mode=3
    stm.charset=CharSet
    stm.open
        stm.WriteText str
    stm.SaveToFile server.MapPath(FileUrl),2 
    stm.flush
    stm.Close
    set stm=nothing
End Sub

应用实例

创建一个config.asp的文件

call WriteToTextFile("config.asp","谁是最可爱的人","utf-8")

返回顶部 手机访问 关注微信 返回底部

扫码访问歪脖网

随时随地,想看就看

关注歪脖网微信

分享 web 知识、交流 web 经验