replyok.asp

超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来

<!--#include file="mycheck.asp"-->
<%sub replyok()
if isInteger(request("messageid"))=false then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&user&"'")
end if
if session("rewrite")=1 then
error_html="<li>不好意思，回复过的帖子可不能重发，谢谢！</li>"
end if
if request("name")="" then
error_html="<li>您得填写您的名字哦！</li>"
end if
if request("message")="" then
error_html=error_html&"<li>回复不说是不行的!一定要说两句哦！</li>"
end if

if request("message")<>"" and len(request("message"))>messagemax then
error_html=error_html&"<li>本留言服务规定，回复字数不能超过 "&messagemax&" 字，谢谢！"
end if
if error_html<>"" then
error_html=error_html&"<p align=center>[<a href=javascript:history.go(-1);>这里返回</a>]</p>"
error_html="<table width=100% height=151 border=1 cellspacing=0 cellpadding=3 bordercolorlight=#333333 bordercolordark=#FFFFFF>        <tr>           <td width='100%' height='6' class=link > "&error_html&"</td></tr></table>"
table(error_html)
else
  messageid= dateID
writetime=cstr(now())

if request("messageid")<>"" then
sql_msg="select * from message where id ='"&request("messageid")&"'"
set rs_msg=server.createobject("adodb.recordset")
rs_msg.open sql_msg,conn,3,2
if not rs_msg.bof and not rs_msg.eof then
rs_msg("message")=rs_msg("message")+chr(10)+"&nbsp;&nbsp;&nbsp;【"+request("name")+request("type")+"】："+request("message")+"["+writetime+"]"
rs_msg("id")=messageid
rs_msg.update
        session("rewrite")=1
        Response.Cookies("Uming")("name") = request("name")
  		Response.Cookies("Uming").Expires = dateadd("d","365",date())
addok_html="<table width=100% height=151 border=1 cellspacing=0 cellpadding=3 bordercolorlight=#333333 bordercolordark=#FFFFFF>        <tr>           <td width='100%' height='6' class=link  align=center><meta HTTP-EQUIV='REFRESH' CONTENT='3;URL=?user="&user&"'>  请等待，系统正在处理你的回复信息..... <br>  回复成功,3秒后我们将带你返回这个留言本的首页.<br>  如果系统没有反应请按下面的链接返回留言本！<p><br>  [<a href=?user="&user&">返回我的留言本</a>] </td></tr></table>"
table(addok_html)
else
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&user&"'")
end if
else
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&user&"'")
end if
end if
%>
<%end sub%>