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

📄 announcements.asp

📁 生活者姿态整站程序 生活者姿态整站程序 生活者姿态整站程序
💻 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"-->

⌨️ 快捷键说明

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