edit.asp

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

<%sub edit()
if request("messageid")="" 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=conn.execute(sql_msg)
if rs_msg.bof and rs_msg.eof then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else
%>


<%tablefirst()%>
        <table width=100% border=1 cellspacing=0 cellpadding=2 bordercolorlight=#333333 bordercolordark=#FFFFFF align="center">
  <form name=submitok method=POST action=index.asp?action=editok&user=<%=request("user")%>&messageid=<%=request("messageid")%>&page=<%=request("page")%>>
          <tr> 
            <td  align=center valign="top" width="60%"> <font  class=link  > 
              <br>
              </font> 
              <table width=100% border=0 cellspacing=0 cellpadding=6>
                <tr> 
                  
            <td colspan="2" class=link  align="center">编 辑 留 言
              <%if ubb=1 then%>
              (支持UBB，请看<a href=javascript:openScript('?user=<%=request("user")%>&action=help_ubb',580,400)>UBB帮助</a>) 
              <%end if%>
            </td>
                </tr>
                <tr> 
                  <td width=24% class=link  align="right">留言内容：</td>
                  <td width=76%> 
                    <textarea rows=8 name=message cols=45 class=link wrap="PHYSICAL"><%=rs_msg("message")%></textarea>
                  </td>
                </tr>
              </table>
              <p> 
                <input type=submit value=编辑完成 class=link>
              </p>
              <p>&nbsp; </p>
            </td>
          </tr>  </form>
        </table>
    <%tablelast%>
<%
end if
end if
end sub
%>