ASP教程:读取文件和写文件

读取文件操作：

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

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!