left.asp

来自「top-cms内容管理系统」· ASP 代码 · 共 162 行

<%
'###########################################################################################
'*  程序名称: Top-CMS
'*---------------------------------------------------------------------------------------
'*  系统版本: 1.0 0215
'*  版权所有: www.Net-Develop.com
'*  程序设计: 江南行客
'*  联系方式:
'*            OICQ：2503086
'*            EMAIL：[e-mail]
'*  网站地址: 
'*            http://www.net-develop.com  
'*            http://www.top-cms.com   
'*---------------------------------------------------------------------------------------
'*  Copyright 2004 www.net-develop.com - All Rights Reserved.
'###########################################################################################
%>
<!--#include file="../common/common.asp" -->
<link rel="stylesheet" href="../css/style.css">
<style type="text/css">
<!--
.active {  font-weight: bold;cursor:default;color:#F5F5F5;}
.unactive {  color: #dddddd; text-decoration: underline;cursor:hand;}
.uuu{position:relative; width:100%; height:expression(body.offsetHeight-t1.offsetHeight-2); z-index:1; left: 0px; top: 0px; overflow-x:hidden;overflow-y:scroll;}
.uuuu{position:relative; width:100%; height:expression(body.offsetHeight-t1.offsetHeight-2); z-index:1; left: 0px; top: 0px; scroll:no}
-->
</style>
<script src="../js/menu.js"></script>

<script>
function menu(h,v){
if (h=='artcle'){
a1.className='active';
b1.className='unactive';
}else{
a1.className='unactive';
b1.className='active';
}
h=eval(h);
v=eval(v);
h.className="hidden";
v.className="";

}

function MenuList(m){
	menu1=eval("m"+m);
	if (menu1.className==""){
		menu1.className="hidden";
	}else{
		menu1.className="";
	}
}
</script>
<base target="wmain">
<%
Set objCMS = Server.CreateObject("TopCMS.Left")
if objCMS.ChkAdminPower then
	SystemI_Init
	objCMS.OpenDB
%>

<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
  <tr> 
    <td background="../Images/default_nav.gif"> <span onclick="menu('artcle','system');" id="a1" class="active">基本管理</span> 
      <font color="#CCCCCC">|</font> <span onclick="menu('system','artcle');" id="b1" class="unactive">信息管理</span></td>
  </tr>
</table>
<div id="artcle" class="hidden">

  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td background="../Images/default_ot.gif"><font color="#336699">信息类别</font></td>
      <td width="50" align="center" background="../Images/default_ot.gif"><font color="#336699">权限</font></td>
    </tr>
    <%objCMS.ListMenu%>
  </table>
</div>


<div id="system"> 

  <table width="100%" border="0" cellspacing="1" cellpadding="4">
    <tr> 
      <td background="../Images/default_ot.gif" onclick="MenuList(1);"><b><font color="#336699">系统管理</font></b></td>
    </tr>
    <tr id="m1" class="hidden"> 
      <td align="right"> 
        <table width="90%" border="0" cellspacing="0" cellpadding="0">
          <%objCMS.AdminMenu(0)%>
        </table>
      </td>
    </tr>
    <tr onclick="MenuList(2);"> 
      <td background="../Images/default_ot.gif" bgcolor="#F3F3F3"><b><font color="#336699">主要内容生成</font></b></td>
    </tr>
    <tr id="m2" class="hidden">
      <td align="right"> 
        <table width="90%" border="0" cellspacing="0" cellpadding="0">
          <%objCMS.AdminMenu(1)%>
		  
        </table>
      </td>
    </tr>
	<tr onclick="MenuList(3);"> 
      <td background="../Images/default_ot.gif"><b><font color="#336699">调用内容生成</font></b></td>
    </tr>
    <tr id="m3" class="hidden">
      <td align="right"> 
        <table width="90%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><a href="create_call.asp?t=msg">公告调用</a></td>
          </tr>
		  <tr> 
            <td><a href="create_call.asp?t=class">专题调用</a></td>
          </tr>
          <tr> 
            <td><a href="create_call.asp?t=poll">调查项目调用</a></td>
          </tr>
          <tr> 
            <td><a href="create_call.asp?t=pic">图片信息调用</a></td>
          </tr>
          <tr> 
            <td><a href="create_call.asp?t=commend">推荐信息调用</a></td>
          </tr>
          <tr> 
            <td><a href="create_call.asp?t=new">最新更新调用</a></td>
          </tr>
          
		 
        </table>
      </td>
    </tr>
   <tr onclick="MenuList(4);"> 
      <td background="../Images/default_ot.gif" bgcolor="#F3F3F3"><b><font color="#336699">其他管理</font></b></td>
    </tr>
    <tr id="m4" class="hidden">
      <td align="right"> 
        <table width="90%" border="0" cellspacing="0" cellpadding="0">
          <%objCMS.AdminMenu(3)%>
		 
        </table>
      </td>
    </tr>
    
	 
    <tr> 
      <td background="../Images/default_ot.gif" bgcolor="#F3F3F3"><a href="#" onClick="top.location.href='out.asp';"><font color="#336699">退出管理</font></a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
  </table>
</div>

<%
	objCMS.CloseDB	
else
	objCMS.OutInfo "对不起，您还没有登录，请先登录","Login"
end if
set objCMS=nothing
%>