⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 announceadd.asp

📁 一个美化的论坛程序
💻 ASP
字号:

<!--#include file="top.asp"-->
<%
if request("boardid")="" then
	response.write "<script>javascript:alert('请选择论坛!');window.close();</script>"
	Response.End
else
	boardid=request("boardid")
end if
set rs=conn.execute("select boardmaster from board where boardid="&boardid)
	if not rs.eof then
		if not(instr(rs("boardmaster"),Request.Cookies("bookbaby")("username"))>0 and Request.Cookies("bookbaby")("username")<>"") then
			response.write "<script>javascript:alert('只有本栏目的版主可以发布公告!');window.close();</script>"
			response.end
		else
				conn.execute("update online set stat='发布公告',lasttime='"&now()&"' where username='"&Request.Cookies("bookbaby")("username")&"'")
		end if
	elseif session("IsAdmin")<>"club" then
		response.write "<script>javascript:alert('您没有操作的权限!');window.close();</script>"
		Response.End
	end if
	set rs=nothing
	conn.close
	set conn=nothing
%><img src="" width="1" height="3">
<table width="680" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="<%=tablebackcolor%>" height="293">
  <form name="add" onkeydown="if(event.keyCode==13 && event.ctrlKey)add.submit()" method="post" action="manage.asp?act=announceadd&action=bbs&boardid=<%=boardid%>">
    <tr> 
      <td colspan="2" height="21" align="center" bgcolor="<%=tabletitlecolor%>"><b><font color="#000000">添加帖子</font></b></td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td align="right" height="21" width="23%"><b>主 题:</b></td>
      <td height="21" width="77%"> 
        <input type="text" name="title" maxlength="100" size="50">
        主题字数不要超过100字</td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td align="right" valign="top" width="23%"><b>内 容:<br>
        <br>
        </b>Ctrl+Enter发送</td>
      <td width="77%"> 
        <textarea cols=80 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=" 清 空 ">
      </td>
    </tr>
  </form>
</table>
<!--#include file=copyright.asp-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -