<!-- #include file="setup.asp" -->

<%
top
%>


<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<title><%=clubname%></title>
<table width=750 align="center" border="0">
<tr>
<td vAlign="top"><img src="images/logo.gif" border="0"></td>
<td align="right">


社區區長:<%
master=split(administrators,"|")
for i = 1 to ubound(master)-1
response.write "<b><a href=profile.asp?username="+master(i)+">"+master(i)+"</a></b> "
next
%> <br>

注冊會員:<b><%=associatortol%></b> | 歡迎新會員:<b><a href=profile.asp?username=<%=newassociator%>><%=newassociator%></a></b>
<br><a href="adminlist.asp">管理員列表</a> | <a href="usertop.asp">會員排行榜</a>

</td>
</tr>
</table>
<TABLE cellSpacing=0 width=750 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="750" 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;社區公告： <a href=# onclick=javascript:open('affiche.asp','','width=400,height=180,resizable,scrollbars')><%=affichetitle%></a> ［<%=affichetime%>］</td>
</tr>
</table>


<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="1" width="750" align="center" border="1">
<tr bgColor="#c4d4e5" height="25">
<td vAlign="center" background=images/title_sub.gif align="middle" width="250">
..::最新發表主題::..</td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="250">..::本周最強人氣::..
</td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="250">..::本周最多回復::..
</td>
</tr>
</table>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="6" width="750" align="center" border="1" style="border-collapse: collapse">
<tr height="25">
<td width="250">
<%
sql="select top 5 id,icon,topic,forumid from forum where deltopic<>1 order by id Desc"
rs.Open sql,Conn
Do While Not RS.EOF 
response.write "<IMG src=images/brow/"&rs("icon")&".gif border=0> <a href=showtopic.asp?id="&rs("id")&"&forumid="&rs("forumid")&">"&left(""&rs("topic")&"",18)&"</a><br>"
RS.MoveNext
loop
RS.Close
%></td><td width="250"><%
sql="select top 5 id,icon,topic,forumid from forum where deltopic<>1 and posttime>now()-7 order by Views Desc"
rs.Open sql,Conn
Do While Not RS.EOF 
response.write "<IMG src=images/brow/"&rs("icon")&".gif border=0> <a href=showtopic.asp?id="&rs("id")&"&forumid="&rs("forumid")&">"&left(""&rs("topic")&"",18)&"</a><br>"
RS.MoveNext
loop
RS.Close   
%></td>
<td width="250">
<%
sql="select top 5 id,icon,topic,forumid from forum where deltopic<>1 and posttime>now()-7 order by replies Desc,posttime"
rs.Open sql,Conn
Do While Not RS.EOF 
response.write "<IMG src=images/brow/"&rs("icon")&".gif border=0> <a href=showtopic.asp?id="&rs("id")&"&forumid="&rs("forumid")&">"&left(""&rs("topic")&"",18)&"</a><br>"
RS.MoveNext
loop
RS.Close   
%></td>
</tr>
</table>








<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="1" width="750" align="center" border="1">
<tr bgColor="#c4d4e5" height="25">
<td vAlign="center" background=images/title_sub.gif align="middle" width="40">狀態</td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="*">論壇</td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="80">版主</td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="40">主題</td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="40">帖子</td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="120">最后更新</td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="40">珍藏</td>
</tr>
</table>
<%
rs.Open "class order by id",Conn
do while not rs.eof
classimage=2
if ""&rs("id")&""=""&Request("id")&"" then
classimage=1
end if
%>
<table borderColor="#a4b6d7" height="23" cellSpacing="0" width="750" align="center" border="1">
<tr>
<td bgColor="#ffffff" colSpan="7"><b><font color="#0bc000">　</font><a href="?id=<%=rs("id")%>"><img src="images/<%=classimage%>.gif" border="0"><%=rs("classname")%></b></a></td>
</tr>
</table>
<%
if ""&rs("id")&""=""&Request("id")&"" or allclass="True" then
sql="select * from bbsconfig where classid="&rs("id")&""
rs1.Open sql,Conn
do while not rs1.eof


if Not Response.IsClientConnected then
responseend
end if




masterlist=""
if rs1("moderated")<>"" then
master=split(rs1("moderated"),"|")
for i = 1 to ubound(master)-1
masterlist=""+masterlist+"<a href=profile.asp?username="+master(i)+">"+master(i)+"</a><br>"
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="750" align="center" border="1">
<tr>
<td align="middle" width="40" bgColor="#ecf5ff">
<%=passphoto%>　</td>
<td onmouseover="this.style.backgroundColor='#ECF5FF'" onmouseout="this.style.backgroundColor=''" vAlign="top" bgColor="#f2f8ff">
<table cellSpacing="0" cellPadding="3" width="368" border="0">
<tr>
<td width="270">『 <a href="forumdisplay.asp?forumid=<%=rs1("id")%>"><%=rs1("bbsname")%></a> 』</td>
<td align="center" width="80"><font color="#000000">
<a href="forumdisplay.asp?forumid=<%=rs1("id")%>&TimeLimit=1">
<img alt="查看該論壇當天的帖子" src="images/today.gif" border="0"></a>
<a href="forumdisplay.asp?forumid=<%=rs1("id")%>&search=goodtopic">
<img alt="查看該論壇的精品文章" src="images/goodtopic.gif" border="0"></a>
<a href="newtopic.asp?forumid=<%=rs1("id")%>">
<img alt="在該論壇發表文章" src="images/postdirect.gif" border="0"></a></font></td>
</tr>
<tr>
<td colspan="2" width="362"><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">
<%=masterlist%>
</td>
</tr>
</table>
</td>
<td vAlign="center" noWrap align="middle" width="40" bgColor="#f2f8ff"><%=rs1("toltopic")%>　</td>
<td vAlign="center" noWrap align="middle" width="40" bgColor="#f2f8ff"><%=rs1("tolrestore")%>　</td>
<td width=120 bgColor=ecf5ff vAlign=center>
<table width="100%">
<tr>
<td align="right">

<%=rs1("lasttime")%><br>by <a href=profile.asp?username=<%=rs1("lastname")%>><%=rs1("lastname")%></a>
<img src="images/lp.gif"></td>
</tr>
</table>
</td>
<td vAlign="center" align="center" width="40" bgColor="#f2f8ff"><SPAN style="CURSOR: hand" onclick="window.external.AddFavorite('<%=cluburl%>/forumdisplay.asp?forumid=<%=rs1("id")%>', '<%=rs1("bbsname")%>')"><IMG src="images/addfav.gif" border=0></SPAN>
</td>
</tr>
</table>
<%
rs1.movenext
loop
rs1.close
end if

rs.movenext
loop
rs.close
%>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="750" align="center" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<tr>
<td  height="25" background=images/title_sub.gif>
　■<b> </b>您的個人狀態</td>
</tr>
</table>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="1" width="750" 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/mystate.gif"></td>
<td 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>

<table border="0" cellpadding="0" cellspacing="0" width="702">

<%
if Request.Cookies("username") <> "" then

sql="select * from user where username='"&Request.Cookies("username")&"'"
rs1.Open sql,Conn


%>
<tr>
<td width="25%"><%=rs1("username")%> - 有 <font face="Georgia, Times New Roman, Times, serif"><%=rs1("newmessage")%> 條新留言</td>
<td width="20%">銀兩：<font face="Georgia, Times New Roman, Times, serif"><%=rs1("money")%></td>
<td width="20%">體力：<font face="Georgia, Times New Roman, Times, serif"><%=rs1("userlife")%></td>
<td>發表文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs1("posttopic")%></td>
<td>被刪文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs1("deltopic")%></td>
</tr>
<tr>
<td width="25%">等級名稱：<%=rs1("levelname")%></td>
<td width="20%">存款：<font face="Georgia, Times New Roman, Times, serif"><%=rs1("savemoney")%></td>
<td width="20%">經驗：<font face="Georgia, Times New Roman, Times, serif"><%=rs1("experience")%></td>
<td>回復文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs1("postrevert")%></td>
<td>精華文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs1("goodtopic")%>
</td>
</tr>

<%
rs1.close
end if
acturl="index.asp"
bbsname=clubname
forumid=0


strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")
strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer")
strsplit(2)=replace(strsplit(2),")","")
strsplit(2)=replace(strsplit(2),"NT 5.1","XP")
strsplit(2)=replace(strsplit(2),"NT 5.0","2000")
strsplit(1)=Trim(strsplit(1))
strsplit(2)=Trim(strsplit(2))

%>
<!-- #include file="inc/line.asp" -->
<tr>
<td width="25%">您的ＩＰ：<font face="Georgia, Times New Roman, Times, serif"><%=remoteaddr%></td>
<td width="20%">端口：<font face="Georgia, Times New Roman, Times, serif"><%=Request.ServerVariables("REMOTE_PORT")%></td>
<td width="20%">操作系統：<%=strsplit(2)%></td>
<td colspan="2">瀏覽器：<%=strsplit(1)%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
regonline=conn.execute("Select count(sessionid)from online where username<>''")(0)
openlinelist="打開詳細列表"
if Request.Cookies("openlinelist")="1" then
sql="select * from online where username<>'' and eremite<>'1'"
rs.Open sql,Conn
do while not rs.eof

if Not Response.IsClientConnected then
responseend
end if


if NO_count < 6 then
NO_count=NO_count+1
else
NO_count=1
end if

allline=""&allline&"<td width=16% style=word-break:break-all><a href=# onclick=javascript:open('friend.asp?menu=post&incept="&rs("username")&"','','width=320,height=170')><img src=images/face/"&rs("userface")&".gif width=16 height=16 border=0 alt=發送訊息></a> <a href=profile.asp?username="&rs("username")&" TITLE='目前位置：『"&rs("bbsname")&"』"&vbCrlf&"來訪時間："&rs("cometime")&""&vbCrlf&"活動時間："&rs("lasttime")&""&vbCrlf&"操作系統："&rs("userwin")&""&vbCrlf&"瀏 覽 器："&rs("userie")&"'>"&rs("username")&"</a></td>"

if NO_count = 6 then
allline=""&allline&"</tr><tr>"
end if

rs.movenext
loop
rs.close
openlinelist="關閉詳細列表"
end if


%>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="750" align="center" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<tr>
<td height="25" background=images/title_sub.gif>
　<b>■ </b>在線統計</td>
</tr>
</table>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="1" width="750" 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%> 人，訪客 <%=onlinemany-regonline%> 人。 [<a href="cookies.asp?menu=openlinelist"><%=openlinelist%></a>]</font></td>
</tr>
</table>
<table border=0 width=100%><tr>
<%=allline%>
</tr>
</table>
</td>
</tr>
</table>

<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="1" width="750" align="center" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<tr>
<td height="25" style="border-right: 0px none; border-top: 0px none" colspan="2" width="742" background=images/title_sub.gif>
　■<b> </b>友情鏈接</td>
</tr>
<tr>
<td bgColor="#FFFFFF" width="32" align="center">
<img src="images/shareforum.gif"></td>
<td bgColor="#FFFFFF" width="703" >
<%

rs.Open "link",Conn
do while not rs.eof
response.write "<a title='"&rs("name")&""&chr(10)&""&rs("intro")&"' href="&rs("url")&" target=_blank><img src="&rs("logo")&" border=0 width=88 height=31></a> "
rs.movenext
loop
rs.close
%>
</td></tr></table>
<%
htmlend
%>