announcements.asp

生活者姿态整站程序 生活者姿态整站程序 生活者姿态整站程序

<!--#include file="conn.asp"-->
<!-- #include file="inc/char.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/theme.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<%
	stats="浏览论坛公告"
	call nav()
	call headline(1)
	if founderr then
		call error()
	else
		call main()
	end if
	call endline()
%>
<%sub main()%>
	        <table cellpadding=0 cellspacing=0 border=0 width="<%=TableWidth%>" bgcolor="<%=tablebackcolor%>" align=center>
	                <tr>
	                    <td>
	                    <table cellpadding=3 cellspacing=1 border=0 width=100%>
<%
	dim rs,sql
	set rs=server.createobject("adodb.recordset")
	sql="select * from bbsnews where boardid="&cstr(request("boardid"))&" order by id desc"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>
	                        <tr>
	                        <td bgcolor="<%=tabletitlecolor%>" align=center valign=top><font color="<%=TableFontColor%>"><b>>> 当前没有任何公告 <<</b></font></td></tr>
	                        <tr>
	                            <td bgcolor="<%=tablebodycolor%>" valign=top style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"><font color="<%=TableContentColor%>"><br>
	                        <p><blockquote>请进入论坛管理页面来发布一个公告(必须是管理员或者版主)。 <br>当你发布一次公告后，本公告就会自动消失，无需你手动删除！
</blockquote></p></font>
	                        </td>
	                        </tr>
	                        <tr>
	                            <td bgcolor="<%=tablebodycolor%>" valign=middle>
	                        <table width=100% border="0" cellpadding="0" cellspacing="0">
	                        <tr><td align=left><font color="<%=TableContentColor%>">&nbsp;&nbsp;&nbsp;<b>发布人</b>： 本站的默认公告</font>
	                        </td><td align=right><font color="<%=TableContentColor%>"><b>发布时间</b>： <%=Now()%>&nbsp;&nbsp;&nbsp;</font>
	                        </tr>
	                        </table>
	                        </td>
	                        </tr>
<%
	else
	do while not rs.eof
%>
	                        <tr>
	                        <td bgcolor="<%=tabletitlecolor%>" align=center valign=top><font color="<%=TableFontColor%>"><b>>> <%=htmlencode(rs("title"))%> <<</b></font></td></tr>
	                        <tr>
	                            <td bgcolor="<%=tablebodycolor%>" valign=top style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"><font color="<%=TableContentColor%>"><br>
	                        <p><blockquote><%=ubbcode(rs("content"))%>
</blockquote></p></font>
	                        </td>
	                        </tr>
	                        <tr>
	                            <td bgcolor="<%=tablebodycolor%>" valign=middle>
	                        <table width=100% border="0" cellpadding="0" cellspacing="0">
	                        <tr><td align=left><font color="<%=TableContentColor%>">&nbsp;&nbsp;&nbsp;<b>发布人</b>： <%=htmlencode(rs("username"))%></font>
	                        </td><td align=right><font color="<%=TableContentColor%>"><b>发布时间</b>： <%=rs("addtime")%>&nbsp;&nbsp;&nbsp;</font>
	                        </tr>
	                        </table>
	                        </td>
	                        </tr>
<%
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
	
%>
				</table>
			</td></tr></table>
<%end sub%>
<!--#include file="footer.asp"-->