<!--#include file="Admin_check.asp"-->
<%
if Request("action")="left" then 
	Call mainleft()
ElseIf Request("action")="right" Then
	Call MainRight()
Else
	Call main()
End If
Set BBS94KK=Nothing

Sub Main()
%>
<html>
<head>
<title>论坛管理::猪婷家园::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.navPoint
{
	font-family: Webdings;
	font-size:9pt;
	color:white;
	cursor:pointer;
}
.tblLeftbody
{
	BACKGROUND: #8cbde7;
	BORDER-BOTTOM: #30404f 2px solid;
	BORDER-LEFT: #b8d2e9 2px solid;
	BORDER-RIGHT: #30404f 0px solid;
	BORDER-TOP: #b8d2e9 2px solid
}.tblbody
{
	BACKGROUND: #6699cc;
	BORDER-BOTTOM: #30404f 2px solid;
	BORDER-LEFT: #b8d2e9 2px solid;
	BORDER-RIGHT: #30404f 2px solid;
	BORDER-TOP: #b8d2e9 2px solid
}
-->
</style>

<script language=Javascript>
<!--
function showHideMenu() {
	if (document.getElementById("frmMenu").style.display=="") {
		document.getElementById("frmMenu").style.display="none";
document.getElementById("switchPoint").style.background='url(Images/Admin/banB.gif)';
		}
	else {
		document.getElementById("frmMenu").style.display="";
document.getElementById("switchPoint").style.background='url(Images/Admin/banA.gif)';
		}
}
-->
</script>
</head>
<body  scroll="no" style="MARGIN: 0px" leftmargin="0" topmargin="0">
<!--<frameset cols="160,*" framespacing="0" border="0" frameborder="0">
-->
<table border="0" cellspacing="0" cellpadding="0" width="100%" height="100%" id = "tblTotal" Name = "tblTotal">
<tr>
<td rowspan="2" align="middle" valign="center" nowrap id="frmMenu" name="frmMenu">
<iframe id=BoardTitle name=BoardTitle  style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 180px; Z-INDEX: 2" frameborder="0" src="?action=left"></iframe></td>
<td height="40" width="100%">
<div style='background:url(Images/admin/admintopbg.gif);color:white;text-align:left;'><div style='float:right;margin:5px; font-size:12px'><a href='Index.asp' target='_blank' style='color: #FFF'><img src='Images/icon/index.gif' border='0' align='absbottom' /> 论坛首页</a></div><div onClick="showHideMenu()" style="width:11px;height:25px;background:url(Images/admin/BanA.gif); float:left" class="navPoint" id="switchPoint" title="关闭/开启菜单栏"></div><img src='Images/admin/Admintop.gif' width='250' height='40' /></div>
</td>

</tr>
<tr>
  <td><iframe id="Right" name="Right" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1" frameborder="0" src="?action=right">
<noframes>
<p>此网页使用了框架，但您的浏览器不支持框架。</p>
</body>
</noframes>
</frameset>
</iframe>
  </td>
</tr>
</table>
</body>
</html>
<%End Sub%>

<%
Sub mainleft()

Dim I,II,Menu(10,10),menuUrl,MenuName,Temp
Menu(0,0)="系统设置"
Menu(0,1)="Admin_Action.asp?Action=BbsInfo',论坛信息设置"
Menu(0,2)="Admin_Action.asp?Action=ConfigData',论坛统计设置"
Menu(0,3)="Admin_Actionlist.asp?Action=Placard',公告发布管理"
Menu(0,4)="Admin_Action.asp?Action=GapAd',帖间广告管理"
Menu(0,5)="Admin_ActionList.asp?Action=Link',论坛联盟管理"
Menu(0,6)="Admin_Action.asp?Action=LockIp',I P 封锁管理"
Menu(0,7)="Admin_ActionList.asp?Action=log',论坛日志系统"
Menu(0,8)="Admin_Action.asp?Action=Clean',更新论坛缓存"
Menu(0,9)="Admin_New.asp',论坛调用系统"
Menu(0,10)="Admin_Confirm.asp?action=setjsmenu',<span style='color:#F00'>生成前台菜单</span>"
Menu(1,0)="论坛版块"         
Menu(1,1)="Admin_Board.asp',论坛版面管理"
Menu(1,2)="Admin_Board.asp?Action=AddClass',添加论坛分类"       
Menu(1,3)="Admin_Board.asp?Action=AddBoard',添加论坛版面"
Menu(2,0)="用户管理"
Menu(2,1)="Admin_ActionList.asp?Action=UserList',用户批量管理"
Menu(2,2)="Admin_Action.asp?Action=TopAdmin',设置管理人员"
Menu(2,3)="Admin_Action.asp?Action=BoardAdmin',设置论坛版主"
Menu(2,4)="Admin_ActionList.asp?Action=UserList&Flag=1',设置 VIP用户"
Menu(2,5)="Admin_ActionList.asp?Action=UserList&Flag=2',恢复删除用户"
Menu(2,6)="Admin_ActionList.asp?Action=SetGrade',设置特别等级"
Menu(2,7)="Admin_Action.asp?Action=Grade',用户等级管理"
Menu(3,0)="帖子留言"         
Menu(3,1)="Admin_Action.asp?Action=DelEssay',批量删除帖子"         
Menu(3,2)="Admin_Action.asp?Action=MoveEssay',批量移动帖子"        
Menu(3,3)="Admin_Action.asp?Action=DelSms',批量删除留言"
Menu(3,4)="Admin_SetHtmlEdit.asp?Action=AllSms',群发信件留言"         
Menu(3,5)="Admin_UpLoad.asp',上传文件管理"
Menu(3,6)="Admin_Recycle.asp',论坛回收站"
Menu(4,0)="论坛DIY"
Menu(4,1)="Admin_Action.asp?Action=Menu',论坛菜单管理"
Menu(4,2)="Admin_SetHtmlEdit.asp?Action=agreement',修改注册协议"
Menu(4,3)="Admin_Template.asp',风格模板管理"
Menu(4,4)="Admin_Action.asp?Action=Bank',论坛银行管理"
Menu(4,5)="Admin_Action.asp?Action=Faction',论坛帮派管理"



Menu(4,6)="admin-prison.asp',论坛监狱管理"
Menu(4,7)="wc_admin_rec-room.asp',休闲屋管理"


Menu(4,8)="admin_jz.asp',论坛奖章管理"
Menu(4,9)="adminright_jzsetp.asp?action=setp',更改用户奖章"


Menu(4,10)="Admin_Adv.asp',广告公司管理"

Menu(5,0)="论坛数据"
Menu(5,1)="Admin_Confirm.asp?Action=CompressData',压缩数据库"        
Menu(5,2)="Admin_Confirm.asp?Action=BackupDate',备份数据库"        
Menu(5,3)="Admin_Confirm.asp?Action=RestoreData',恢复数据库"    
Menu(5,4)="Admin_Action.asp?Action=SqlTable',数据表管理"
Menu(5,5)="Admin_Action.asp?Action=UpdateBbs',论坛整理修复"     
Menu(5,6)="Admin_User.asp?Action=ExecuteSql',执行SQL语句"
Menu(5,7)="Admin_Action.asp?Action=SpaceSize',空间占用情况"
Menu(5,8)="Admin_Server.asp',服务器检测"
Menu(6,0)="技术支持"
Menu(6,1)="http://bbs.ju4t.com' target='_blank',<span style='color:#000'>授权网站：</span>恋恋网络"
Menu(6,2)="http://ju4t.com' target='_blank',<span style='color:#000'>官方网站：</span>94KK.Com"
Menu(6,3)="http://www.ju4t.com' target='_blank',<span style='color:#000'>维护修改：</span>情爱如刀"
Menu(6,4)=" http://www.ju4t.com' target='_blank',<span style='color:#000'>技术支持：</span>就是快快"
%>
<html>
<head>
<style type="text/css">
<!--
BODY {BACKGROUND: #799ae1; MARGIN: 0px; FONT: 9pt 宋体}
TABLE{BORDER: 0px; }
TD {FONT: 12px 宋体;}
IMG {BORDER-RIGHT: 0px; BORDER-TOP: 0px; VERTICAL-ALIGN: bottom; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px}
A {FONT: 12px 宋体; COLOR: #295C87; TEXT-DECORATION: none}
A:hover {COLOR: #FB921E}
.sec_menu {BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid}
.menu_title SPAN {FONT-WEIGHT: bold; LEFT: 8px; COLOR: #175866; POSITION: relative; TOP: 2px}
.menu_title2 SPAN {FONT-WEIGHT: bold; LEFT: 8px; COLOR: #428eff; POSITION: relative; TOP: 2px}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
function showtb(tbnum)
{
if (document.getElementById("tbtype" + tbnum).style.display == "none")
{document.getElementById("tbtype" + tbnum).style.display="";
}
else{document.getElementById("tbtype" + tbnum).style.display="none";
}
}
</script>
<base target="Right">
</head>
<body>
<div align="center">
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center><TBODY><TR><TD vAlign=bottom height=42><IMG src="Images/admin/title.gif"> </TD></TR></TBODY></TABLE>
<TABLE width=158 align=center cellPadding=0 cellSpacing=0 bgcolor="#D6E0F9"><TBODY>
<TR style="CURSOR: hand"><TD  height=4 colspan="4" valign="top" class=menu_title></TD></TR>
<TR style="CURSOR: hand"><TD width="23"  height=21 class=menu_title valign="top">
<div align="right"><img src="Images/Icon/home.gif" width="16" height="16" align="absmiddle"><br></div></TD>
<TD width="55" class=menu_title><b><a target="_top" href="admin_index.asp"> 管理首页</a></b> </TD>
<TD width="22" class=menu_title valign="top"><div align="right"><img src="Images/Icon/exit.gif" width="16" height="16" align="absmiddle"><br></div></TD>
<TD width="56" class=menu_title><b><a target="_top" href="admin_login.asp?action=exit"> 退出管理</a></b> </TD>
</TR></TBODY></TABLE>
<%
for i=0 to ubound(menu,1)
If isempty(menu(i,1)) then exit for
%><table height=4><tr><td></td></tr></table>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center ><TBODY>
<TR><TD class=menu_title  background="Images/admin/title_bg_hide.gif" height=25 onclick=showtb(<%=i%>)>
<span><%=Menu(i,0)%></span></TD></TR><TR>
<TD>
<TABLE id=tbtype<%=i%> class=sec_menu width="100%" cellSpacing=0 cellPadding=0><TBODY>
<tr><td width="20"></td><td height="8"></td></tr>
<%for II=1 to ubound(menu,2)
if isempty(menu(I,II)) then Exit for
Temp=Split(menu(I,II),",")
MenuUrl=Temp(0)
MenuName=Temp(1)
%>
<TR><td width="20"></td><TD height=20><img src='Images/Icon/bullet.gif' width='15' height='20' align="middle"><a href='<%=MenuUrl%>><%=MenuName%></a></TD></TR>
<%Next%>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<%Next%>
<br>
<br>
</div>
</body>
</html> 
<%end sub

Sub MainRight()
Dim Temp,OnlineNum
with BBS94KK
If .Cache.valid("OnlineCache") Then
	Temp=.Cache.Value("OnlineCache")
	Temp=Split(Temp,",")
	OnlineNum=uBound(Temp)+1
Else
	OnlineNum=1
End If
Response.Write"<div class='mian'><div class='top'>系统信息</div>"&_
"<div class='divtr1 adding'><div style='float:right;width:50%'>主题帖数："&.InfoUpdate(1)&"</div>总发帖数："&.InfoUpdate(0)&"</div>"&_
"<div class='divtr2 adding'><div style='float:right;width:50%'>昨日帖数："&.InfoUpdate(3)&"</div>今日帖数："&.InfoUpdate(2)&"</div>"&_
"<div class='divtr1 adding'><div style='float:right;width:50%'>论坛时间："&.NowBBSTime&"</div>最大日发帖数："&.InfoUpdate(4)&"</div>"&_
"<div class='divtr2 adding'><div style='float:right;width:50%'>最新会员："&.InfoUpdate(6)&"</div>会员数："&.InfoUpdate(5)&"</div>"&_
"<div class='divtr1 adding'><div style='float:right;width:50%'>最大在线人数："&.InfoUpdate(7)&"("&.InfoUpdate(8)&")</div>目前在线人数："&OnlineNum&"</div>"&_
"<div class='divtr2 adding'><div style='float:right;width:50%'>94KK论坛版本："&.Ver&"</div>论坛访问人次："&.InfoUpdate(9)&"(超2000次更新)</div>"&_
"</div>"
Response.Write"<div class='mian'><div class='top'>快捷管理</div>"&_
"<div class='divtr1' style='padding:5px;'>【<a href='Admin_Confirm.asp?Action=BackupDate'>数据库备份</a>】 【<a href='Admin_User.asp?action=adminOK&Name="&BBS94KK.MyName&"'>修改我的密码</a>】 【<a href='Admin_Confirm.asp?action=setjsmenu'>重建前台菜单</a>】 【<a href='Admin_Recycle.asp'>论坛回收站</a>】 【<a href='Admin_actionList.asp?action=userlist'>用户管理</a>】<hr size=1 />【<a href='Admin_Server.asp'>服务器检测</a>】 【<a href='Admin_Board.asp?Action=BoardUpdate'>论坛版面整理</a>】 【<a href='Admin_Action.asp?Action=SpaceSize'>空间占用情况</a>】</div>"&_
"</div>"
Footer()
End with
End Sub
%>