📄 bbs.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="head.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Sitename&"-网址："&Sitehttp%></title>
<LINK href="css.css" type=text/css rel=stylesheet>
</head>
<body>
<%call sitehead%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="25"> <img src="skins/1/xb3.gif"> 当前位置:<a href="index.asp">首页</a> >><a href="bbs.asp"> 论坛</a></td>
</tr>
</table>
<br>
<table width="760" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" class="tableborder">
<tr bgcolor="#FFCCCC">
<td width="50%" height="25"> <span class="style3">最新置顶帖子</span></td>
<td width="50%"> <span class="style3">最新发布帖子</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="80" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" background="image/line.gif">
<%rs.open "select top 4 * from bbs where atop>0 and laye=0 order by lastdate desc,id desc",conn,1,3
If Rs.eof and Rs.bof Then
Response.write("<tr><td height=20>暂无置顶帖子</td></tr>")
else
do while not rs.eof%>
<tr>
<td height="20">[<A href="datum.asp?userid=<%=rs("userid")%>"><%=obj.getname(rs("userid"),1,SiteDatabase)%></a>]<a href="bbsview.asp?aid=<%=rs("id")%>"><%=rs("title")%></a></td>
</tr>
<%rs.movenext
loop
end if
rs.close%>
</table></td>
<td valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" background="image/line.gif">
<%rs.open "select top 4 * from bbs where laye=0 order by lastdate desc,id desc",conn,1,1
If Rs.eof and Rs.bof Then
Response.write("<tr><td height=20>暂无帖子</td></tr>")
else
do while not rs.eof%>
<tr>
<td height="20">[<A href="datum.asp?userid=<%=rs("userid")%>"><%=obj.getname(rs("userid"),1,SiteDatabase)%></a>]<a href="bbsview.asp?aid=<%=rs("id")%>"><%=rs("title")%></a></td>
</tr>
<%rs.movenext
loop
end if
rs.close%>
</table></td>
</tr>
</table>
<br>
<table width="760" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" class="tableborder">
<tr>
<td height="25" bgcolor="#FFCCCC" colspan="5"> <span class="style3">论坛版面列表</span></td>
</tr>
<tr bgcolor="#FFCCCC">
<td width="7%"> </td>
<td width="50%" height="20">版面</td>
<td width="7%"><div align="center">帖数</div></td>
<td width="7%"><div align="center">今日</div></td>
<td>最后发表</td>
</tr>
<%rs.open "select * from bbsbm order by bmpx",conn,1,3
If Rs.eof and Rs.bof Then
Response.write("暂无任何版面，请后台添加")
else
do while not rs.eof
if month(rs("lastdate"))&day(rs("lastdate"))<>month(now())&day(now()) then
rs("todaycount")=0
rs.update
end if%>
<tr>
<td width="7%" height="55" bgcolor="#f9f8f2"><div align="center"><img src="image/type0.gif" width="30" height="30"></div></td>
<td width="50%" bgcolor="#F1F1F1"><b><a href="bbsbm.asp?bid=<%=rs("id")%>"><%=rs("bmname")%></a></b><br>
<%=rs("bmsm")%><br>
版主：<%if rs("bmadmin")<>"" then
bmadmin=Split(rs("bmadmin"),",")
upnun=ubound(bmadmin)
for StartID=0 to upnun%>
<A href="datum.asp?userid=<%=bmadmin(StartID)%>"><FONT color=#3333FF><%=obj.getname(bmadmin(StartID),1,SiteDatabase)%></FONT ></A>
<%next
else
response.write "本版面暂无版主"
end if%></td>
<td width="7%" bgcolor="#f9f8f2"><div align="center"><%=rs("bbscount")%></div></td>
<td width="7%" bgcolor="#F1F1F1"><div align="center"><%=rs("todaycount")%></div></td>
<td bgcolor="#f9f8f2">主题：<a href="bbsview.asp?aid=<%=rs("lastbbsid")%>"><%=left(rs("lasttitle"),13)%></a><br>
时间：<%=rs("lastdate")%><br>
作者：<A href="datum.asp?userid=<%=rs("lastuserid")%>"><%=obj.getname(rs("lastuserid"),1,SiteDatabase)%></a></td>
</tr>
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>
<br>
<br>
<%call sitebottom%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -