asp各種文件操作UTF-8

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

'--------------生成文件
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函數(shù)

上一條：艾恩Asp生成Json數(shù)據類