<!--#include file="chklogin.asp"-->
<%
dim menu(5,5)
menu(0,0)="网站设置"
menu(0,1)="<a href=siteinfo.asp target=main>网站信息</a> | <a href='../index.asp' target=_blank>生成首页</a>"
menu(0,2)="<a href=#>合作伙伴</a> |  <a href=ad.asp target=main>广告设置</a>"


menu(1,0)="系统设置"
menu(1,1)="<a href=kw_dl.asp target=main>大类管理</a> | <a href=kw_dj.asp target=main>等级管理</a>"

menu(2,0)="提问管理"
menu(2,1)="<a href=html.asp target=main>生成问题</a> | <a href=kw_wt.asp target=main>最新问题</a>"
menu(2,2)="<a href=kw_wt.asp?zt=hot target=main>热点问题</a> | <a href=kw_hd.asp target=main>回答管理</a>"
menu(2,3)="<a href=kw_wt.asp?zt=gf target=main>高分问题</a> | <a href=kw_wt.asp?zt=no target=main>未解决问题</font>"


menu(3,0)="用户管理"
menu(3,1)="<a href=kw_user.asp target=main>注册用户</a>"
menu(3,2)="<a href=zhuan.asp target=main>专家管理</a>"
menu(3,3)="<a href=manageadmin.asp target=main>系统用户</a>"
menu(3,4)="<a href=mail.asp target=main>群发邮件</a>"


menu(4,0)="调用管理"
menu(4,1)="<a href=order.asp target=main>调用参数设置</a>"

menu(5,0)="数据处理(Access)"
menu(5,1)="<a href=database.asp?action=backup target=main>数据库备份</a>"
menu(5,2)="<a href=database.asp?action=Restore target=main>数据库恢复</a>"
menu(5,3)="<a href=database.asp?action=Compact target=main>数据库压缩</a>"
menu(5,4)="<a href=database.asp?action=ShowSpace target=main>系统空间占用</a>"
menu(5,5)="<a href=aspcheck.asp target=main>服务器环境</a>"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理左侧</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FF6666">
<SCRIPT language=javascript1.2>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>
<table cellpadding=0 cellspacing=0 width=158 align=center>
      <tr> 
        <td valign=bottom><img src="images/admin_title.gif" width=158 height=38></td>
      </tr>
</table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
      <tr> 
        <td height="25" valign=bottom>&nbsp;<a href="siteinfo.asp" target="main" class="gl">管理首页</a> | <a href="back.asp" target="_parent" class="gl">退出</a></td>
      </tr>
      <tr>
        <td bgcolor="#FBFBFC">
		用 户：&nbsp;<font color=red><%=session("kwadmin")%></font> | <a href="changpsd.asp" target="main"><font color=#000000>修改密码</font></a>
		<br>身 份：<font color=red>
		<%
		response.Write(session("userflag"))	
		%>
		</font>
</td>
      </tr>
</table>
<%for i=0 to ubound(menu,1)%>
<table width="158" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="25" class="title" onmouseover=this.className='title2'; onmouseout=this.className='title'; background="images/admin_list_bg.gif" onclick="showsubmenu(<%=i%>)">
	<span><%=menu(i,0)%></span>
	</td>
  </tr>
  <tr>
    <td <%if i=5 then%>style="display:none"<%end if%> id='submenu<%=i%>'>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
<%
for j=1 to ubound(menu,2)
 	if isempty(menu(i,j)) then exit for
%>	
  <tr>
    <td height="20" bgcolor="#FBFBFC"><img src="images/list_point.gif" align="absmiddle"><%=menu(i,j)%></td>
  </tr>
<%next%>
</table>

	</td>
  </tr>
</table>
<%next%>
</body>
</html>
