announce.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
sql="select title,content,username,dateandtime from announce where boardid="&boardid&" order by id desc"
rs.open sql,conn,1,1
do while not rs.eof %>
<img src="" width="1" height="3">
<table width="680" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="<%=tablebackcolor%>">
  <tr> 
    <td height="21" align="center" bgcolor="<%=tabletitlecolor%>"><b><font color="#FFFFFF"><b><font color="#FF6600">>>&nbsp;<%=rs("title")%>&nbsp;<<</font></b></font></b></td>
  </tr>
  <tr bgcolor="<%=tablebodycolor%>"> 
    <td height="21"> 
      <blockquote><%=ubbcode(rs("content"))%></blockquote>
    </td>
  </tr>
  <tr> 
    <td align="center" bgcolor="<%=tablebodycolor%>"> 
      <table width="90%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="54%"><b>发表人：</b><%=rs("username")%></td>
          <td width="46%" align="right"><b>发布时间：</b><%=rs("dateandtime")%></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file=copyright.asp-->
</body>
</html>