<%
if request("send")="ok" then
username=trim(request.form("username"))
usermail=trim(request.form("usermail"))
url=trim(request.form("url"))
qq=trim(request.form("qq"))
face=trim(request.form("face"))
pic=trim(request.form("pic"))
sheng=trim(request.form("sheng"))
shi=trim(request.form("shi"))
xian=trim(request.form("xian"))
if username="" or request.form("Comments")="" or request.form("url")="" or request.form("qq")="" or request.form("face")="" or request.form("pic")="" or request.form("sheng")="" or request.form("shi")=""then
response.write ""
response.end
end if
if checktxt(request.form("username"))<>request.form("username") then
response.write ""
response.end
end if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from Feedback where online='1' order by Postdate desc"
rs.open sql,conn,1,3
rs.Addnew
rs("username")=Request("username")
rs("comments")=Request("comments")
rs("usermail")=Request("usermail")
rs("face")=Request("face")
rs("pic")=Request("pic")
rs("url")=Request("url")
rs("qq")=Request("qq")
rs("sheng")=Request("sheng")
rs("shi")=Request("shi")
rs("xian")=Request("xian")
view=cstr(view)
if view<>"0" then view="1"
rs("online")=view
rs("IP")=Request.serverVariables("REMOTE_ADDR")
rs.Update
rs.close
set rs=nothing
response.write ""
response.end
end if
%>
