zoukankan      html  css  js  c++  java
  • ASP操作文件

    1.写数据
      fo=Server.MapPath("SFZH_MD.txt")
       set fs=Server.CreateObject("Scripting.FileSystemObject")
       set fn=fs.CreateTextFile(fo,True)
       fn.Write “DDD”
       fn.Close
      2.打开此文件,但好像只能在服务器访问才行
       fo=replace(fo,"\","\\")
       response.Write "<script >"
       response.Write "(new   ActiveXObject(""wscript.shell"")).run("""&fo&""")"
       response.write "< /script>"
    3.保存文件
    Response.clear
      fo=Server.MapPath("SFZH_MD.txt")
      Response.ContentType = "application/octet-stream"
      Response.AddHeader "Content-Disposition","attachment;filename=SFZH_MD.txt;charset=GB2312"
      Const ForReading = 1, ForWriting = 2, ForAppending = 8
      Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
      Dim fso, f, ts
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set f = fso.GetFile(fo)  
      Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
      Do While ts.AtEndOfLine <> True
        Response.write(ts.ReadLine)
      Loop
      ts.Close
      set fso=nothing
  • 相关阅读:
    scnner02 (nextLine)
    Scanner01
    Spring 框架 (初学)
    查询自己写了多少行代码
    jdbc事务
    jdbc(预编译插入数据)
    jdbc(java连接数据库)
    监听器扩展
    listener(监听器)
    Filter过滤器
  • 原文地址:https://www.cnblogs.com/itecho/p/1340082.html
Copyright © 2011-2022 走看看