<!-- #include file="include/con_forum.asp" -->

<%
call web_head(0,0,4,0,0)
%>
<SCRIPT language=javascript1.2>
parent.document.title='<%=web_dim(1)%>';
function showsubmenu(ss,ii,aa,openimg,closeimg,count)
{
var submenu;
var subimg = document.getElementsByName("subimg");
var aimg = document.getElementsByName("aimg");
var i = 0;
	for (i=0;i<count;i++){
		submenu = "submenuboard" + i;
		if (ss!=submenu){
		document.getElementById("submenuboard" + i).style.display = "none";
		subimg[i].src="treepic/plus.gif";
		subimg[i].alt="展开菜单";
		aimg[i].src="treepic/"+closeimg;
		aimg[i].alt="展开菜单";
		}
	}
	submenu = document.getElementById(ss);
	 if (submenu.style.display=="none") 
	  {submenu.style.display="";
	   ii.src="treepic/nofollow.gif";
	   ii.alt="关闭菜单";
	   aa.src="treepic/"+openimg;
	   aa.alt="关闭菜单";
	}
	 else
	  {submenu.style.display="none"; 
		ii.src="treepic/plus.gif";
		ii.alt="展开菜单";
		aa.src="treepic/"+closeimg;
		aa.alt="展开菜单";
	}
}
function reloadpage(){
	parent.window_left.location.reload();
}
</SCRIPT>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<%
REM 管理栏目设置
dim n,m,s
dim childinfo
dim menu(2,9)
dim boardmenu(100,100)
n=-1
m=0
s=-1

dim gi,gj,gnum,ocid,gdim
gnum=ubound(forum_list_sorts)
  for gi=0 to gnum
  gdim=split(forum_list_sorts(gi),"|")
		If int(gdim(2))=0 Then
			n=n+1
			m=0
		Else
			m=m+1
		End If
		boardmenu(n,m)="<a href=forum_list.asp?forum_id="&gdim(0)&" target=window_main>"&gdim(3)&"</a>"

  next

menu(s+1,0)="论坛信息"
menu(S+1,1)="<a href=forum_action.asp?action=new target=window_main>论坛新帖"
menu(S+1,2)="<a href=forum_action.asp?action=hot target=window_main>热门贴子</a>"
menu(S+1,3)="<a href=user_action.asp?action=top target=window_main>发贴排行</a>"
menu(S+1,4)="<a href=user_action.asp?action=list target=window_main>会员列表</a>"
menu(S+1,5)="<a href=forum_search.asp target=window_main>社区搜索</a>"
menu(S+1,6)="<a href=help.asp?action=forum target=window_main>社区使用手册</a>"
menu(S+1,7)="<a href=online.asp target=window_main>在线情况</a>"

menu(S+2,0)="我的工具箱"
menu(S+2,1)="<a href=user_edit.asp target=window_main>我的个人资料</a>"
menu(S+2,2)="<a href=user_pass.asp target=window_main>登录密码修改</a>"
menu(S+2,3)="<a href=user_mail.asp target=window_main>社区短讯服务</a>"
menu(S+2,4)="<a href=user_friend.asp target=window_main>我的社区好友</a>"
menu(S+2,5)="<a href=forum_action.asp?action=my target=window_main>我发表的主题</a>"
menu(S+2,6)="<a href=forum_action.asp?action=join target=window_main>我参与过的主题</a>"
menu(S+2,7)="<a href=user_bookmark.asp target=window_main>网络书签</a>"

menu(S+3,0)="发布中心"
menu(S+3,1)="<a href=user_put.asp target=window_main>发表文章</a>"
menu(S+3,2)="<a href=user_put.asp?action=news target=window_main>发布新闻</a>"
menu(S+3,3)="<a href=user_put.asp?action=paste target=window_main>发布图片</a>"
menu(S+3,4)="<a href=user_put.asp?action=web target=window_main>推荐网址</a>"
menu(S+3,5)="<a href=user_put.asp?action=down target=window_main>发布软件</a>"
menu(S+3,6)="<a href=user_put.asp?action=flash target=window_main>发布Flash</a>"


if login_mode="" or var_null(login_mode)="" then
	s=s+1
else
	s=s+3
end if
%>
<table cellpadding=0 cellspacing=0 width=100% align=center height="100%" bgColor="#91d4ff">
	<tr>
	<th height=25 class=td><% response.write web_dim(1) %></th>
	</tr>
	<tr>
    <td align=center><% response.write joekoe_cms.time_type("",5)&"<br>"&weekdayname(weekday(joekoe_cms.today_time)) %>
</td>
</tr>
<% 
if login_mode<>"" then
%>
<tr><td align=center>
欢迎您:<b><% response.write login_username %></b><hr size=1 width=90% >
</td></tr>
<tr><td>
&nbsp;&nbsp;等级:<% response.write login_mode%><br>
&nbsp;&nbsp;<%response.write joekoe_cms.web_unit%>:<%response.write login_emoney%><br>
&nbsp;&nbsp;积分:<%response.write login_integral%><br>
<%
else
%>
<tr><td >
&nbsp;&nbsp;状态:在线<br>
&nbsp;&nbsp;等级:访客<br>
<%
end if
%>
</td></tr>
<tr><td valign=top align=center width="100%" >
<hr size=1 width=90% >
<table cellpadding=0 cellspacing=0 style="width:100%" >
  <tr>
    <td width=100%>
	<img src=treepic/nofollow.gif >
	<img src=treepic/index.gif >
	<b><a href=forum.asp target=window_main>论坛首页</a></b>
	</td>
  </tr>
<%
	dim j
	dim tmpmenu
	dim menuname
	dim menurl
for i=0 to n
menuname="board"&i
%>
  <tr>
    <td width=100% onclick="showsubmenu('submenu<%=menuname%>',subimg<%=menuname%>,aimg<%=menuname%>,'bookopen.gif','bookclose.gif',<%=n%>)">
	<img src=treepic/plus.gif name="subimg" id="subimg<%=menuname%>" alt="展开菜单">
	<img src=treepic/bookclose.gif name="aimg" id="aimg<%=menuname%>" alt="展开菜单">
	<b><%=boardmenu(i,0)%></b>
	</td>
  </tr>
  <tr style="display:none" name="submenu" id='submenu<%=menuname%>'>
	<td>
		<table cellpadding=0 cellspacing=0 align=center width="100%">
		<%
		for j=1 to ubound(boardmenu,2)
		if isempty(boardmenu(i,j)) then exit for
		%>
		<tr>
		<td class=tablebody1 width=15 background="treepic/i.png"></td>
		<td class=tablebody1 align=left vAlign=top><img src=treepic/Tminus.png border=0><%=boardmenu(i,j)%></td></tr>
		<%next%>
		</table>
	</td>
  </tr>
<%next%>
<%for i=0 to s
menuname="tool"&i
%>
  <tr>
    <td class=tablebody2 width=100% onclick="showsubmenu('submenu<%=menuname%>',subimg<%=menuname%>,aimg<%=menuname%>,'openfolder.png','closedfolder.png',0)">
	<img src=treepic/plus.gif id=subimg<%=menuname%> alt="展开菜单">
	<img src=treepic/closedfolder.png id=aimg<%=menuname%> alt="展开菜单">
	<b><%=menu(i,0)%></b>
	</td>
  </tr>
  <tr>
    <td style="display:none" id='submenu<%=menuname%>'>
	<table cellpadding=0 cellspacing=0 align=center width="100%">
	<%
	for j=1 to ubound(menu,2)
	if isempty(menu(i,j)) then exit for
	%>
	<tr>
	<td class=tablebody1 width=15 background="treepic/i.png"></td>
	<td class=tablebody1><img src=treepic/Tminus.png border=0><%=menu(i,j)%></td></tr>
	<%next%>
	</table>
	</td>
  </tr>
<%next%>
  <tr>
    <td width=100% class=tablebody2>
	<img src=treepic/nofollow.gif >
	<img src=treepic/help.gif >
	<b><a href=help.asp target=window_main>论坛帮助</a></b>
	</td>
  </tr>
  <tr><td><hr size=1 width=90% ></td></tr>
</table>
</td></tr><tr><td valign="bottom">
<table border="0" cellspacing="0" cellpadding="0" align="left" width="96%" >
 <tr><td align=center >
<font color=blue>■</font>
<A target=window_main href=forum.asp>返回社区首页</a>
</td></tr>
<tr><td align=center >
<font color=red>■</font>
<a href=login.asp?action=logout target=window_main title=安全退出社区 onclick="setTimeout('reloadpage()',2000)"><FONT color=red>安全退出社区</FONT></a>
</td></tr>
<tr><td  >
<hr size=1 width=90% >
&nbsp;&nbsp;目前在线:<font class=red><% response.write online_num%></font> 人
</td></tr>
<tr><td  >
&nbsp;&nbsp;今日贴数:<font class=red><% response.write new_num %></font> 贴
</td></tr>
<tr><td  >
&nbsp;&nbsp;网站注册:<font class=red><% response.write num_reg %></font> 人
</td></tr>
<tr><td >
<hr size=1 width=90% >
</td></tr>
<tr>
<td align=center valign="bottom" >
<% response.write joekoe_cms.pro_edition %></a>
</td>
</tr>
</table>
</td></tr></table>
</body></html>
<%
call forum_end()
call web_clears(1)
%>