<%@ codepage ="936" %>
<!-- #include file="setup.asp" -->
<%
top
%>
<head>
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<title><%=clubname%></title>
<base target="bbsxp">
</head>
<table width=100% align="center" border="0">
<tr>
<td vAlign="top" width="92"></td>
<td align="center" width="648">
<img src="images/cwbbs.gif">
</td>
</tr>
</table>
<TABLE cellSpacing=0 width=100% align=center bgColor=a4b6d7 border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<table borderColor="#a4b6d7" height="28" cellSpacing="0" cellPadding="1" width="100%" align="center" border="1">
<tr bgColor="#c4d4e5">
<td align="middle" width="35" bgColor="#ecf5ff">
<img src="images/announce.gif" align="middle"></td>
<td width="706" bgColor="#f2f8ff">&nbsp;&nbsp;江湖专用版论坛[酷屋网络]by:唯情</TD>
</tr>
</table>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="1" width="100%" align="center" border="1">
<tr bgColor="#c4d4e5" height="25">
<td vAlign="center" align="middle" width="35">状态</td>
<td vAlign="center" align="middle" width="*">论坛</td>
<td vAlign="center" align="middle" width="80">版主</td>
<td vAlign="center" align="middle" width="35">主题</td>
<td vAlign="center" align="middle" width="35">帖子</td>
<td vAlign="center" align="middle" width="140">最后更新</td>
<td vAlign="center" align="middle" width="35">珍藏</td>
</tr>
</table>
<%
sql="select * from class"
rs.Open sql,Conn,1
do while not rs.eof
classimage=2
if ""&rs("id")&""=""&Request.Cookies("classid")&"" then
classimage=1
end if
%>
<table borderColor="#a4b6d7" height="23" cellSpacing="0" width="100%" align="center" border="1">
<tr>
<td bgColor="#ffffff" colSpan="7"><b><font color="#0bc000">　</font><a target="_self" href="cookies.asp?menu=classid&classid=<%=rs("id")%>"><%=rs("classname")%></a></b></td>
</tr>
</table>
<%
if ""&rs("id")&""=""&Request.Cookies("classid")&"" or allclass=1 then
sql="select * from bbsconfig where classid="&rs("id")&""
rs1.Open sql,Conn
do while not rs1.eof
masterlist=""
if rs1("moderated")<>"" then
master=split(rs1("moderated"),"|")
for i = 1 to ubound(master)-1
masteri_show=master(i)
if len(masteri_show)>4 then masteri_show=left(masteri_show,2) & "..."
masterlist=""+masterlist+"<option>"+masteri_show+"</option>"
next
end if
if rs1("pass")<>"" then
passphoto="<img src=images/lock.gif>"
else
passphoto="<img src=images/on.gif>"
end if
%>
<table borderColor="#a4b6d7" cellSpacing="0" width="100%" align="center" border="1">
<tr>
<td align="middle" width="35" bgColor="#ecf5ff">
<%=passphoto%>　</td>
<td onmouseover="this.style.backgroundColor='#ECF5FF'" onmouseout="this.style.backgroundColor=''" vAlign="top" bgColor="#f2f8ff">
<table cellSpacing="0" cellPadding="3" width="100%" border="0">
<tr>
<td>『 <a target="_self" href="forumdisplay.asp?forumid=<%=rs1("id")%>"><%=rs1("bbsname")%></a> 』</td>
</tr>
<tr>
<td><font color=999999><%=rs1("intro")%></font></td>
</tr>
</table>
</td>
<td vAlign="center" align="middle" width="80" bgColor="#ecf5ff">
<table cellSpacing="0" cellPadding="2" width="100%" border="0">
<tr>
<td align="middle">
<select onchange=if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value);}>
<option>论坛版主</option>
<%=masterlist%>
</select>
</td>
</tr>
</table>
</td>
<td vAlign="center" noWrap align="middle" width="35" bgColor="#f2f8ff"><%=rs1("toltopic")%>　</td>
<td vAlign="center" noWrap align="middle" width="35" bgColor="#f2f8ff"><%=rs1("tolrestore")%>　</td>
<td width=140 bgColor=ecf5ff vAlign=center>
<table width="100%">
<tr>
<td style=word-break:break-all>主题:<a target="_self" href="showtopic.asp?id=<%=rs1("lastid")%>&forumid=<%=rs1("id")%>"><%=left(rs1("lasttopic"),8)%></a><br>
作者:<a target="blank" href=../yamen/mt.asp?action=<%=rs1("lastname")%>><%=rs1("lastname")%></a> <img src="images/lp.gif"><br><%=rs1("lasttime")%></td> 
</tr>
</table>
</td>
<td vAlign="center" align="center" width="35" bgColor="#f2f8ff"><IMG src="images/addfav.gif" border=0>
</td>
</tr>
</table>
<%
rs1.movenext
loop
rs1.close
end if
rs.movenext
loop
rs.close
acturl="index.asp#" & clubname 
bbsname=clubname
forumid=0
%><!-- #include file="inc/line.asp" --><%
regonline=conn.execute("Select count(forumid)from online where username<>'客人'")(0)
openlinelist="打开详细列表"
if Request.Cookies("openlinelist")="1" then
dim O_username,O_bbsname,O_cometime,O_lasttime,O_userwin,O_userie
sql="select username,bbsname,cometime,lasttime from online "
rs.Open sql,Conn,1
SET O_username=RS(0)
SET O_bbsname=RS(1)
SET O_cometime=RS(2)
SET O_lasttime=RS(3)
NO_count=1
do while not rs.eof
if O_username<>"" and O_username<>"客人" then
 myhttp="'../yamen/mt.asp?action="&O_username&"' target=_blank"
else
 myhttp="# target=_self"
end if
allline=""&allline&"<td width=16% style=word-break:break-all><a href="&myhttp&" TITLE='目前位置："&O_bbsname&vbCrlf&"来访时间："&O_cometime&""&vbCrlf&"活动时间："&O_lasttime&"'>"&O_username&"</a></td>"
if NO_count = 6 then
allline=""&allline&"</tr><tr>"
NO_count=1
else
NO_count=NO_count+1
end if
rs.movenext
loop
rs.close
openlinelist="关闭详细列表"
end if
%>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" align="center" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<tr>
<td bgColor="#c4d4e5" height="25">
　<b>  </b>在线统计</td>
</tr>
</table>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="1" width="100%" align="center" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<tr>
<td align="middle" width="35" bgColor="#ecf5ff">
<img src="images/online.gif"></td>
<td vAlign="top" bgColor="#f2f8ff">
<table cellSpacing="0" cellPadding="3" width="100%" border="0" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<tr>
<td height="15">
<font face="Georgia, Times New Roman, Times, serif">目前论坛总共有 <%=onlinemany%> 人在线，其中注册用户<%=regonline%> 人。<a href="cookies.asp?menu=openlinelist" target="_self"><%=openlinelist%></a></font></td>
</tr>
</table>
<table border=0 width=100%><tr>
<%=allline%></td>
</tr>
</table>
</td>
</tr>
</table>
<%
writestr="<BR><TABLE cellSpacing=0 cellPadding=0 width=100% align=center><TR>"
sql="select * from link"
rs.Open sql,Conn,1
do while not rs.eof
writestr=writestr &  "<TD align=middle><a title='"&rs("name")&""&chr(10)&""&rs("intro")&"' href="&rs("url")&" target=_blank><img src="&rs("logo")&" border=0 width=88 height=31></a></TD>" 
rs.movenext
loop
rs.close
writestr=writestr &  "</TR></TABLE>"
response.write writestr
htmlend
%>