<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/connect.asp" -->
<%
Username=Checkstr(request.querystring("Username"))
if Username="" then
response.end()
end if
set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLMessage where MessageID is null"
rs.open sql,cn,1,3
rs.addnew
rs("Username")=Username
rs("MUser")=request.form("MUser")
rs("Content")=request.form("Content")
if request.form("Silence")="" then
rs("Silence")=0
else
rs("Silence")=1
end if
rs.update
response.redirect("messagelist.asp?Username="&Username&"")
%>
