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

forumid=Request("forumid")

if isnumeric(""&forumid&"") = flase then
error("<li>非法操作")
end if

sql="select * from bbsconfig where id="&forumid&""
rs.Open sql,Conn

if rs.eof then
message=message&"<li>數(shù)據(jù)庫中不存在ID為 "&forumid&" 的數(shù)據(jù)"
error(""&message&"")
end if


''''''''''加密論壇驗(yàn)證'''''''
if rs("pass")<>Request.Cookies("pass") and rs("pass")<>"" then
%>
<SCRIPT>var id=prompt("此論壇為加密論壇，請(qǐng)輸入通行密碼！","");if(id){document.location='login.asp?menu=pass&forumid=<%=forumid%>&pass='+id+'';}</SCRIPT>
<%
message=message&"<li>您的通行密碼沒有輸入"
error(""&message&"")
end if
'''''''''''''''''''''''''''''

bbsname=rs("bbsname")

if rs("moderated")<>"||" then
master=split(rs("moderated"),"|")
for i = 1 to ubound(master)-1
masterlist=""+masterlist+"<option value=profile.asp?username="+master(i)+">"+master(i)+"</option>"
next
end if
rs.close
acturl="forumdisplay.asp?forumid="&Request("forumid")&""
top
%>

<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<title><%=bbsname%></title>
<table width="750" align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href="index.asp"><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　<a href=forumdisplay.asp?forumid=<%=forumid%>><%=bbsname%></a></td>
</tr>
</table>
<br>
<script>
function loadThreadFollow(ino){
	var targetImg =eval("followImg" + ino);
	var targetDiv =eval("follow" + ino);
		if (targetDiv.style.display!='block'){
			targetDiv.style.display="block";
			targetImg.src="images/minus.gif";
			if (targetImg.loaded=="no"){document.frames["hiddenframe"].location.replace("loading.asp?id="+ino+"");}
		}else{
			targetDiv.style.display="none";
			targetImg.src="images/plus.gif";
		}
}
</script>
<IFRAME HEIGHT=0 WIDTH=0 NAME=hiddenframe></IFRAME>
<!-- #include file="inc/line.asp" -->
<%

forumidonline=conn.execute("Select count(sessionid)from online where forumid="&forumid&"")(0)
regforumidonline=conn.execute("Select count(sessionid)from online where forumid="&forumid&" and username<>''")(0)

openlinelist="打開詳細(xì)列表"

if Request.Cookies("openlinelist")="1" then
sql="select * from online where forumid="&forumid&" and username<>'' and eremite<>'1'"
rs.Open sql,Conn

do while not rs.eof

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

if rs("act")<>"" then
place2 = "目前瀏覽："&rs("act")&""&vbCrlf&""
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=發(fā)送訊息></a> <a href=profile.asp?username="&rs("username")&" TITLE='"&place2&"來訪時(shí)間："&rs("cometime")&""&vbCrlf&"活動(dòng)時(shí)間："&rs("lasttime")&""&vbCrlf&"操作系統(tǒng)："&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="關(guān)閉詳細(xì)列表"
allline="<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center border=1><TBODY><TR><TD align=middle width=46 bgColor=ecf5ff height=2><IMG height=20 src=images/online.gif width=20></TD><TD vAlign=top bgColor=f2f8ff height=2><TABLE cellSpacing=0 cellPadding=3 width=100% border=0><TBODY><TR>"&allline&"</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>"
end if



if Request("order")="Views" then
order="Views"
elseif  Request("order")="replies" then
order="replies"
elseif  Request("order")="username" then
order="username"
elseif  Request("order")="topic" then
order="topic"
elseif  Request("order")="lastname" then
order="lastname"
else
order="lasttime"
end if

if request("TimeLimit")<>"" then
TimeLimit="and DateDiff('d',lasttime,now)<"&request("TimeLimit")&""
else
TimeLimit=""
end if

if Request("search")="author" then
count=conn.execute("Select count(id)from forum where deltopic<>1 and forumid="&forumid&" and username='"&Request("key")&"'")(0)
sql="select * from forum where deltopic<>1 and forumid="&forumid&" and username='"&Request("key")&"' order by "&order&" Desc "
elseif  Request("search")="goodtopic" then
count=conn.execute("Select count(id)from forum where deltopic<>1 and forumid="&forumid&" and goodtopic=1")(0)
sql="select * from forum where deltopic<>1 and forumid="&forumid&" and goodtopic=1 order by "&order&" Desc "
else
count=conn.execute("Select count(id)from forum where deltopic<>1 and forumid="&forumid&" "&TimeLimit&"")(0)
sql="select * from forum where deltopic<>1 and forumid="&forumid&" "&TimeLimit&" order by toptopic Desc,"&order&" Desc"
end if



pagesetup=20   '設(shè)定每頁的顯示數(shù)量
rs.Open sql,Conn
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
on error resume next
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup






%>
<TABLE cellSpacing=0 width=750 align=center bgColor=a4b6d7><TR><TD></TD></TR></TABLE>

<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width=750 align=center border=1>
<TBODY>
<TR>
<TD width=694 height=25 background=images/title_sub.gif>　<B>■ </B>目前論壇總在線 <B><%=onlinemany%></B>
人，<font color="#333333">本分論壇共有 <b><%=forumidonline%></b> 人在線。</font>其中注冊(cè)用戶 <B><%=regforumidonline%></B>
人，訪客 <B><%=forumidonline-regforumidonline%></B> 人。 [<a href="cookies.asp?menu=openlinelist"><%=openlinelist%></a>]</TD>
<TD align=middle width=50 height=25 background=images/title_sub.gif>
<a href="javascript:this.location.reload()">
<IMG src="images/refresh.gif" border="0"></a></TD></TR></TBODY></TABLE>
<%=allline%>
<br>
<TABLE height=30 cellSpacing=0 cellPadding=0 width=750 align=center border=0>
<TBODY>
<TR>
<TD align=left width=148><a href=newtopic.asp?forumid=<%=forumid%>>
<img src=images/sbutton-post2.gif border=0 alt=發(fā)表文章></a></TD>
<TD align=right width=602>
<IMG src="images/jt.gif"> 論題數(shù):<%=Count%>　<IMG src="images/jt.gif">
<a href="forumdisplay.asp?forumid=<%=forumid%>&search=goodtopic">論壇精華</a>　<img src="images/team.gif">
<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>
<option>論壇版主</option>
<option>-------</option>
<%=masterlist%>
</select></TD></TR></TBODY></TABLE>




<TABLE cellSpacing=0 width=750 align=center bgColor=a4b6d7><TR><TD></TD></TR></TABLE>


<TABLE borderColor=a4b6d7 height=28 cellSpacing=0 cellPadding=1 width=750 align=center border=1>
<TBODY>
<TR bgColor=c4d4e5>
<TD align=middle width=46 bgColor=ecf5ff>
<IMG height=18 src="images/announce.gif" width=18 align=middle alt="社區(qū)公告"></TD>
<TD bgColor=f2f8ff>　<marquee onmouseover="this.stop()" onmouseout="this.start()" width="400"  scrollAmount=3><a href=# onclick=javascript:open('affiche.asp','','width=400,height=180,resizable,scrollbars')><%=affichetitle%></a>　［<%=affichetime%>］</marquee></TD>
<TD width=200 bgColor=f2f8ff align="right"><SELECT onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>
<OPTION value=forumdisplay.asp?forumid=<%=forumid%>>查看所有的主題
<OPTION value=forumdisplay.asp?forumid=<%=forumid%>&TimeLimit=1>查看一天內(nèi)的主題
<OPTION value=forumdisplay.asp?forumid=<%=forumid%>&TimeLimit=2>查看兩天內(nèi)的主題
<OPTION value=forumdisplay.asp?forumid=<%=forumid%>&TimeLimit=7>查看一星期內(nèi)的主題
<OPTION value=forumdisplay.asp?forumid=<%=forumid%>&TimeLimit=15>查看半個(gè)月內(nèi)的主題