<%dbdns="../../"%>
<!--#include file="../main.asp"-->
<%
id=request.form("id")
goid=request.Form("goid")
key=request.form("key")
username=request.form("username")
lr=request.form("lr")
msg=request.form("msg")
if username="" or len(username)<2 or len(username)>16 then
response.write "<script>alert('反馈出错，下面是产生错误的可能原因：\n\n·请输入 2-16 位字符的用户名！');window.close();</Script>"
response.End()
end if
if msg="" or len(msg)<5 or len(msg)>200 then
response.write "<script>alert('反馈出错，下面是产生错误的可能原因：\n\n·请输入 10-100 位字符的反馈内容！');window.close();</Script>"
response.End()
end if

set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from message"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("message")=msg
rs("user_id")=id
rs("key1")=key
rs("goid")=goid
rs.update
rs.close
set rs=nothing

response.Redirect(""&lr&"")
response.End()
%>