2016/11/19 15:33:541191 閱讀
dim fso,savePath
Set fso = Server.CreateObject("Scripting.FileSystemObject")
savePath = "/uploadfiles/2016/"
If Not fso.FolderExists(Server.mappath(savePath)) Then
fso.CreateFolder(Server.mappath(savePath))
End If
dim filename,html,fout
filename="uploadfiles/2016/ts.asp"
html ="---------"
set fout=fso.CreateTextFile(Server.mappath(filename),true)
fout.Write html
fout.close
set fout=nothing
set fso=nothing
微信小程序
掃描手機瀏覽