• asp各種文件操作UTF-8

    2022/11/24 12:37:2972 閱讀

      '--------------生成文件
      sPath=sitemulu & "u/wx_bding/temp/"
      Set fso = Server.CreateObject("Scripting.FileSystemObject")
      If Not fso.FolderExists(Server.mappath(sPath)) Then
      fso.CreateFolder(Server.mappath(sPath))
      End If
      set wTmp=server.CreateObject("adodb.stream")
      wTmp.Type=2 
      wTmp.mode=3
      wTmp.charset="utf-8"
      wTmp.open
      wTmp.SaveToFile server.MapPath("./temp/" & pc_state &".asp"),2 
      wTmp.flush
      wTmp.Close
      set wTmp=nothing
      
      
      '--------------寫入文件
      set stm=server.CreateObject("adodb.stream")
      stm.Type=2 '以本模式讀取
      stm.mode=3
      stm.charset="utf-8"
      stm.open
      stm.WriteText openid
      stm.SaveToFile server.MapPath("./temp/" & f_state &".asp"),2 
      stm.flush
      stm.Close
      set stm=nothing
      '--------------判斷文件是否存在
      Filepath=Server.MapPath("./temp/" & session("pc_state") &".asp")
      Set fso = Server.CreateObject("Scripting.FileSystemObject")
      If fso.FileExists(FilePath) then'判斷文件是否存在	
      '文件存在并且有內容
      Set f = fso.GetFile(Filepath)
      f.size > 0
      '--------------刪除文件			
      Filepath=Server.MapPath("./temp/" & f_state &".txt")'刪除標識文件
      Set fso = Server.CreateObject("Scripting.FileSystemObject")
      If fso.FileExists(FilePath) then
      fso.deletefile(Filepath)
      end if
      set fso = nothing
      '----------------文件屬性
      Set fso=Server.CreateObject("Scripting.FileSystemObject")
      iUrl=Server.MapPath(filespec)
      Set f = fso.GetFile(iUrl)
      "Path: " & f.Path 
      "Created: " & f.DateCreated 
      "Last Accessed: " & f.DateLastAccessed 
      "Last Modified: " & f.DateLastModified  
      
      

      下一條:支付寶rsa2簽名驗簽php函數

      上一條:艾恩Asp生成Json數據類

    棗莊西橋網絡微信小程序微信小程序

    棗莊西橋網絡手機站二維碼掃描手機瀏覽

    99视频这里只有精品视频_亚洲美日韩精品久久_精品久久久久久中文字幕乱码_87福利电影无码一区二区三区