📄 announcements.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!-- #include file="inc/char.asp" -->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/stats.asp"-->
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0" CHARSET="GB2312">
<title><%=ForumName%></title>
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<!--#include file="inc/theme.asp"-->
<body bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0">
<br>
<TABLE border=0 width="750" align=center>
<TBODY>
<TR>
<TD vAlign=top width=30%><a href="<%=HostURL%>"><img border="0" src="<%=logo%>"></a></TD>
<TD valign=middle align=top>
<img src="<%=picurl%>closedfold.gif" border=0> <a href="index.asp"><%=ForumName%></a><br>
<img src="<%=picurl%>bar.gif" border=0 width=15 height=15><img src="<%=picurl%>openfold.gif" border=0> 论坛公告
</TD></TR></TBODY></TABLE>
<br>
<table cellpadding=0 cellspacing=0 border=0 width=750 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><b>>> 当前没有任何公告 <<</b></td></tr>
<tr>
<td bgcolor="<%=tablebodycolor%>" valign=top style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"><br>
<p><blockquote>请进入论坛管理页面来发布一个公告(必须是管理员或者版主)。 <br>当你发布一次公告后，本公告就会自动消失，无需你手动删除！
</blockquote></p>
</td>
</tr>
<tr>
<td bgcolor="<%=tablebodycolor%>" valign=middle>
<table width=100% border="0" cellpadding="0" cellspacing="0">
<tr><td align=left> <b>发布人</b>： 本站的默认公告
</td><td align=right><b>发布时间</b>： <%=Now()%>
</tr>
</table>
</td>
</tr>
<%
else
do while not rs.eof
%>
<tr>
<td bgcolor="<%=tabletitlecolor%>" align=center valign=top><b>>> <%=htmlencode(rs("title"))%> <<</b></td></tr>
<tr>
<td bgcolor="<%=tablebodycolor%>" valign=top style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"><br>
<p><blockquote><%=ubbcode(rs("content"))%>
</blockquote></p>
</td>
</tr>
<tr>
<td bgcolor="<%=tablebodycolor%>" valign=middle>
<table width=100% border="0" cellpadding="0" cellspacing="0">
<tr><td align=left> <b>发布人</b>： <%=htmlencode(rs("username"))%>
</td><td align=right><b>发布时间</b>： <%=rs("addtime")%>
</tr>
</table>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</td></tr></table>
<!--#include file="footer.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -