editok_notice.asp

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

<%sub editok_notice()
if request("noticeid")="" or session("user")="" then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else
sql_notice="select title,message from notice where id="&request("noticeid")&""
set rs_notice=server.createobject("adodb.recordset")
rs_notice.open sql_notice,conn,3,2
if rs_notice.bof and rs_notice.eof then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else
rs_notice("title")=request("title")
rs_notice("message")=request("message")
rs_notice.update
editok_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="&request("user")&"&action=read_notice'>  请等待，系统正在处理您的编辑信息..... <br>  公告编辑成功,3秒后我们将带你返回这个留言本的首页.<br>  如果系统没有反应请按下面的链接返回公告板！<p><br>  [<a href=?user="&request("user")&"&action=read_notice>返回我的公告板</a>] </td></tr></table>"
table(editok_html)
end if
end if
end sub
%>