zoukankan      html  css  js  c++  java
  • 用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 
    %> 
    WriteToTextFile server.MapPath("zspk/jxsz.html"),request.Form("jxsz"),"UTF-8")

    hdxz=ReadTxtFile(server.MapPath("zspk/hdxz.html"),"UTF-8")
    jxsz=ReadTxtFile(server.MapPath("zspk/jxsz.html"),"UTF-8")
  • 相关阅读:
    CF980E The Number Games
    UVALive 2995 Image Is Everything
    CF1148F Foo Fighters
    CF22E Scheme
    CF1045G AI robots
    学习笔记 并查集维护区间删除
    HEOI 十二省联考退役记
    立方网面试题总结
    Django学习排错备注
    追求卓越之旅(转)
  • 原文地址:https://www.cnblogs.com/top5/p/1694211.html
Copyright © 2011-2022 走看看