<%@ Language="VBScript" %>
<!-- #include file="inc/dbconn.inc.asp" //-->
<%
dim subFunctionList, subFunctionAction
%>
<html>
<head>
  <title></title>
  <meta http-equiv="Content-Language" content="zh-cn">
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <meta http-equiv="Pragma" content="no-cache">
  <link rel="stylesheet" href="Common/leftMenu.css">
  <script language="javascript" src="Common/leftMenu.js"></script>
</head>

<body>
<table border="0" cellspacing="0" cellpadding="0" height="100%">
  <tr valign="top">
    <td id="Menu" style="display:'';" width="119" background="images/LeftMenuBg.gif">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="160" align="center"><img src="images/left.gif" width="120" height="90"></td>
        </tr>
        <tr>
          <td align="center"><div id="ColumnDisplay" class="ColumnDisplay"><img src="images/man.gif" border="0" width="16" height="16">&nbsp;管理员</div></td>
        </tr>
      </table>
<%
for i = 0 to ubound(strMainFunction)
%>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr onclick="javascript:spreadMenu(<%=(i+1)%>)">
          <td background="images/LeftMenuButtonBg.gif" class="MenuLevel1"><%=strMainFunction(i)%> <span id="ArrowLayer<%=(i+1)%>Down" style="display:'' ; "><img src="images/IconArrowDown.gif" border="0" width="10" height="5"></span><span id="ArrowLayer<%=(i+1)%>Right" style="display:'none' ; "><img src="images/IconArrowRight.gif" border="0" width="5" height="10"></span></td>
        </tr>
      </table>
      <div id="SubMenu<%=(i+1)%>" class="SubMenuLayerHidden" style="overflow-y:block;">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
    subFunctionList = split(strFunctionList(i),":")
    subFunctionAction = split(strFunctionAction(i),":")
	for j = 0 to Ubound(subFunctionList)
		if (subFunctionAction(j) <> "newsIssue") and (subFunctionAction(j) <> "genGame") then
%>
          <tr onclick="javascritp:gotoURL('functions.asp?action=<%=subFunctionAction(j)%>&LOGINID=<%=LOGINID%>')">
            <td class="MenuLevel2"><%=subFunctionList(j)%></td>
          </tr>
          <tr>
            <td height="1"></td>
          </tr>
<%
		end if
	next
%>
        </table>
      </div>
<%
next
%>

      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr onClick="javascript:if(confirm('真的要退出么？')) parent.document.URL='index.asp?action=logout'; return false;">
          <td background="images/LeftMenuButtonBg.gif" class="MenuLevel1">退出登录</td>
        </tr>
      </table>
    </td>
    <td width="7" style="background-image: url('images/ResizeBg.gif'); background-color: #DED3CB; border-left: 1px solid #B9AC96; border-right: 1px solid #B9AC96" valign="middle" align="center"><span id="resizeIcon_Show" style="display:'';cursor:hand;" onclick="javascript:resizeMenu()" title="隐藏菜单"><img src="images/Resize_Hidden.gif" width="7" height="48"></span><span id="resizeIcon_Hidden" style="display:'none';cursor:hand;" onclick="javascript:resizeMenu()" title="显示菜单"><img src="images/Resize_Show.gif" width="7" height="48"></span></td>
  </tr>
</table>
<script for="document" event="oncontextmenu" language="javascript">
<!--//
   if (!event.ctrlKey) return false;
//-->
</script>
</body>
</html>
