<%guidedisplay=1%>
<!--#include file="admin_start.asp" -->
<body >
<SCRIPT language=javascript>
	function opencat(cat)
	{
 	 	if(cat.style.display=="none"){
     	cat.style.display="";
  		} else {
     	cat.style.display="none"; 
  		}
	}
</SCRIPT>
<%
dim step
step=0
function showmenu(object_name)

	dim rs_t
	set rs_t=server.createobject("adodb.recordset")
	rs_t.open"select * from sys_object_list where object_up=(select object_id from sys_object_list where object_name='"&object_name&"' and object_open=1) and object_open=1 order by object_num ",conn,1,1  
	do while not rs_t.eof and step<=1 
	       if instr(rs_t("object_name"),"admin_menu")>0 then
               if MySys.Gradecheck(rs_t("object_admin_grade")) then
			if  rs_t("object_class")="objects" and step=0 then
			%>
				</td></tr>
				<tr>
					<td height="3" ></td>
				</tr>
				<tr id=item$pval[CatID]) style='CURSOR: hand' onmousedown='opencat(cat_<%=rs_t("object_id")%>)'>
					<td height="32" style="padding-left: 30px" background="Images/menu_top.gif" width="159"><b> + <%=rs_t("object_description")%> + </b></td>
				</tr>
				<tr id=cat_<%=rs_t("object_id")%>  style="display:none">
						<td height="32" style="padding-left: 30px;line-height:34px" background="Images/menu_yes.gif" width="159">
			<%
			else
				response.write "<a target=right href='"&rs_t("object_argument")&"'>"&rs_t("object_description")&"</a><br>"
			end if
		step=step+1
		showmenu(rs_t("object_name"))
		step=step-1
                end if
		end if
		rs_t.movenext
	loop
	rs_t.close
	set rs_t=nothing
	
end function

%>
<div align="center">
<table cellpadding="0" bgcolor="#014E82" style="border: 0px solid #ebebeb" width="100%" height="10%">
	<tr>
		<td valign="top" align=left style="padding-left:15px">
		<img align=absmiddle src="Images/icon1.gif" width="15" height="24">
		<font color=white><%=MySys.admin_sort_description%>: <%=MySys.admin_name%></font>
		<a title='点击修改您的资料！' target=right  href='admin_user_sys_edit.asp?id=<%=MySys.admin_id%>'><img alt='点击修改您的资料！'  border=0 align=absmiddle src="Images/icon07.gif" ></a>
		<br>
		
		<img align=absmiddle src="Images/reminder_icon.gif" >
		<a target=_top  href='admin_logout_handle.asp'><font color=white> 注销此次登录!</font></a>
		<br>
		</td>
	</tr>
</table>
<table cellpadding="0" bgcolor="#A3BFD2" style="border: 0px solid #ebebeb" width="100%" height="90%">
	<tr>
		<td valign="top">
		<table align=center cellpadding="0" style="border: 0px solid #ebebeb" width="163">
			<!-- MSTableType="nolayout" -->
			<tr>
			<td height="0" >
			<%
			showmenu("admin_menu")
			%>
		</table>
		</td>
	</tr>
</table>
</div>
</body>
<%
copyrightend=1
%>
<!--#include file="admin_end.asp" -->
