reply.asp

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

<%sub reply()
session("rewrite")=0
if isInteger(request("messageid"))=false then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&user&"'")
end if
%>
<%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=replyok&user=<%=user%>&messageid=<%=request("messageid")%> onkeydown="if(event.keyCode==13 &amp;&amp; event.ctrlKey)submitok.submit()" >
          <%
sql_msg="select id from message where userid="&istrue&""
set rs_msg=conn.execute(sql_msg)
if rs_msg.bof and rs_msg.eof then
%>
          <%
end if%>
          <tr> 
            <td  align=center valign="top"> 
              <font  class=link  > <br>
              </font> 
              <table width=100% border=0 cellspacing=0 cellpadding=6 height=103>
                <tr> 
                  <td colspan="2" class=link  align="center">回 复 留 言 </td>
                </tr>
                <tr> 
                  <td width=24% class=link  align="right">您的名字： </td>
                  <td width=76%>&nbsp; 
                    
              <input type=text name=name size=20 maxlength=50 class=link value="<% =request.Cookies("Uming")("name")%>">
                  </td>
                </tr>
                <tr> 
                  <td width=17% class=link  align="right">选择话题： </td>
                  <td width=40% align="left">&nbsp; 
                    <select name=type class=link>
                      <option value="回复" selected>[回复]</option>
                      <option value="跟帖">[跟帖]</option>
                      <option value="灌水">[灌水]</option>
                      <option value="大笑">[大笑]</option>
                      <option value="转帖">[转帖]</option>
                      <option value="讨论">[讨论]</option>
                      <option value="求助">[求助]</option>
                      <option value="推荐">[推荐]</option>
                      <option value="公告">[公告]</option>
                      <option value="建议">[建议]</option>
                    </select>
                  </td>
                </tr>
                <tr> 
                  
            <td width=24% class=link  align="right">回复内容：<br>
              <%if ubb=1 then%>
              支持UBB，<br>
              <a href=javascript:openScript('?user=<%=request("user")%>&action=help_ubb',580,400)>UBB帮助</a>！ 
              <%end if%>
              <br>
                  </td>
                  <td width="76%">&nbsp; 
                    <textarea rows=8 name=message cols=45 class=link wrap="PHYSICAL" title=可以使用Ctrl+Enter直接提交></textarea>
            </td>
                </tr>
                <tr align="center"> 
                  <td colspan="2" class=link > 
                    <input type=submit value=回复留言 class=link name="submit2">
                    [<font  
            color=#ff0000>Ctrl+Enter直接提交</font>] </td>
                </tr>
              </table>
                <p>&nbsp; </p>
            
           </td>
          </tr>
</form>
         </table>
<%tablelast()%>
<%end sub%>