editok.asp

来自「超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来」· ASP 代码 · 共 20 行

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