replyok.asp

网上有名留言板20120版,非常不错~

<!--#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%>

<%sub convdata()
pic=request("pic")
pic=replace(pic,"http://www.ihua.net/guestbook/image/","")
pic=replace(pic,".gif","")
messageid=request("messageid")
message=request("message")
message=replace(message,"<br>???【","<br>&nbsp;&nbsp;&nbsp;【")
message=replace(message,"???【","&nbsp;&nbsp;&nbsp;【")
userid=1
from_address=request("from_address")
timenow=request("timenow")
sql_msg="insert into message (id,userid,name,email,qq,homepage,message,writetime,pic,from_address) values ("&messageid&","&userid&",'"&request("name")&"','"&request("email")&"','"&request("qq")&"','"&request("homepage")&"','"&message&"','"&timenow&"','"&pic&"','"&from_address&"')"
set rs_msg=conn.execute(sql_msg)
response.write("Added OK.")
response.write message
end sub%>