<!--#INCLUDE FILE="conn.asp" -->
<!--#include file="inc/char.asp" -->
<!-- #include file="Class_Checkuser.asp" -->
<!-- #include file="Class_Top.asp" -->
<%
locat="风铃论坛"
act="版面列表"

call top(2,1)
dim rs,sql

set rs=server.createobject("adodb.recordset")
sql="select * from bbs order by boardchi,boardid  desc"
rs.open sql,conn,1,1

%>
<!--#include file="inc/popup.inc"-->
<br>
<%if BoolVar(15) then %>
<br>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
 <td align="center"><%=StrVar(19)%></td>
</tr>
</table>
<br>
<%else%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" Class=TableBorder>
<tr bgcolor=#a9d46d>
<th colspan="3"><%=StrVar(1)%>论坛</th>
</tr>
<%if rs.bof and rs.eof then%>
<tr bgcolor=#ffffff align="center">
<td colspan="3"><font color=red>暂时还没有任何版面</font></td>
</tr>
<%else
do until rs.eof%>
<tr bgcolor=#ecf2fc>
    <td width="9%" rowspan="2" align="center" bgcolor="#ecf2fc"><a href="Bbs_ForumDisplay.asp?boardid=<%=rs("boardid")%>"><img src="<%=rs("boardpic")%>" alt="有新贴" border="0"></a></td>
    <td height="19" width="63%"><a href=Bbs_ForumDisplay.asp?boardid=<%=rs("boardid")%> onMouseOut="kill()" onMouseOver="popup('进入[<%=rs("boardname")%>]','#E0EEFB')"><font color='green'><b><%=rs("boardname")%></b></font></a><a href=Bbs_ForumDisplay.asp?boardid=<%=rs("boardid")%> onmouseout="kill()" onmouseover="popup('进入[<%=rs("boardname")%>]','#E0EEFB')"><font color='green'></font></a><br>
<br>
<img src="images/forum_readme.gif" width="10" height="10"><%=rs("boardinfo")%></td>
<td height="19" width="28%">
<%dim lastpost
lastpost=split(rs("lastpost"),"$")
%>
主题：<%=lastpost(0)%>　<img src="images/lastpost.gif" width="11" height="10" border="0" alt="最后发言"><br>
作者：<a href=Class_Userinfo.asp?name=<%=lastpost(1)%> target=_blank onmouseout="kill()" onmouseover="popup('查看<%=lastpost(1)%>的详细资料','#E0EEFB')"><%=lastpost(1)%></a><br>
日期：<%=lastpost(2)%><br>
</td>
</tr>

<tr bgcolor=#E0EEFB>
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="56%">
<%dim boardmaster,i
boardmaster=split(rs("boardmaster"),"$")
%>
版主：
<%dim adnum
adnum=1
for i=0 to ubound(boardmaster)%>
<a href=Class_Userinfo.asp?name=<%=boardmaster(i)%> target=_blank onMouseOut="kill()" onMouseOver="popup('查看版主<%=boardmaster(i)%>的详细资料','#E0EEFB')"><%=boardmaster(i)%></a>&nbsp;
<%if adnum>4 then
 response.write"&nbsp;..."
 exit for
 end if
 adnum=adnum+1
next
%>
</td>
<td width="4%" align="right"><img src="images/forum_today.gif" width="25" height="10" alt="今日发贴" border="0"></td>
<td width="4%">&nbsp;<font color=red><%=rs("todaynum")%></font></td>
<td width="3%" align="right"><img src="images/forum_topic.gif" width="25" height="10" border="0" alt="主题数"></td>
<td width="6%">&nbsp<font color=red><%=rs("topicnum")%></font></td>
<td width="2%" align="right"><img src="images/forum_post.gif" width="25" height="10" alt="回复" border="0"></td>
<td width="20%">&nbsp<font color=red><%=rs("postnum")%></font></td>
</tr>
</table>
</td>
</tr>
<%rs.movenext
loop
end if
%>
</table>
<%end if%>
<%call footer()%>
