admin_announceadd.asp

一个美化的论坛程序

<!--#include file="function.asp"-->
<%CheckAdmin%>
<!--#include file="top.asp"-->
<img src="" width="1" height="3"><table width="680" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=tablebackcolor%>">
  <tr>
    <td width="160" bgcolor="<%=tabletitlecolor%>"  valign=top> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td width="622" bgcolor="<%=tablebodycolor%>" align="center">
      <table width="100%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="<%=tablebackcolor%>">
        <form name="add" onKeyDown="if(event.keyCode==13 && event.ctrlKey)add.submit()" method="post" action="manage.asp?act=announceadd&action=bbs">
          <tr> 
            <td colspan="2" height="21" align="center" bgcolor="<%=tabletitlecolor%>"><b><font color="#FFFFFF">添加帖子</font></b></td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right" height="21" width="20%"><b>主　题：</b></td>
            <td height="21" width="80%"> 
              <select name="boardid">
<%	Response.Write "<option value=""0"">论坛首页</option>"
	sql="select boardid,boardtitle from board order by boardid"
	rs.Open sql,conn,1,1
	do while not rs.EOF
		Response.Write "<option value="""&rs("boardid")&""">"&rs("boardtitle")&"</option>"
	rs.MoveNext
	loop
	rs.Close
%>
              </select>
              主题字数不要超过100字</td>
          </tr>
		  <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right" height="21" width="20%"><b>主　题：</b></td>
            <td height="21" width="80%"> 
              <input type="text" name="title" maxlength="100" size="50">
              主题字数不要超过100字</td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right" valign="top"><b>内　容：<br>
              <br>
              </b>Ctrl+Enter发送</td>
            <td> 
              <textarea cols=60 name=content rows=10></textarea>
            </td>
          </tr>
          <tr> 
            <td colspan="2" align="center" bgcolor="<%=tabletitlecolor%>"> 
              <input type="submit" value=" 发 言 " name=Submit&quot;>
              <input type="reset" value=" 清 空 " name="reset">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>