announceedit.asp

一个美化的论坛程序

<!--#include file="char.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
if request("id")="" then
	response.write "<script>javascript:alert('请选择要编辑的公告!');window.close();</script>"
	response.end
else
	id=request("id")
end if
set rs=conn.execute("select boardmaster from board where boardid="&boardid)
if not rs.eof then
	if (instr(rs("boardmaster"),Request.Cookies("bookbaby")("username"))>0 and Request.Cookies("bookbaby")("username")<>"") or session("isadmin")="club" then
		conn.execute("update online set stat='编辑公告',lasttime='"&now()&"' where username='"&Request.Cookies("bookbaby")("username")&"'")
	else
		response.write "<script>javascript:alert('只有本栏目的版主可以发布公告!');window.close();</script>"
		response.end
	end if
end if
rs.close
sql="select title,content from announce where id="&id
rs.open sql,conn,1,3
if not rs.eof then %>
<img src="" width="1" height="3">
<table width="680" 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=announceedit&action=bbs&boardid=<%=boardid%>&id=<%=id%>">
    <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%"> 
        <input type="text" name="title" maxlength="100" size="50" value="<%=rs("title")%>">
        主题字数不要超过100字</td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td align="right" valign="top"><b>内　容：<br>
        <br>
        </b>Ctrl+Enter发送</td>
      <td> 
        <textarea cols=90 name=content rows=10><%=htmldecode(rs("content"))%></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>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>