admin_left.asp

动感系统XP Access版,服务器需要安装Jmail 组件 配置SendMessages.asp 最后部分的参数

<SCRIPT language=javascript1.2>
function showsubadmin_menu(sid)
{
whichEl = eval("subadmin_menu" + sid);
if (whichEl.style.display == "none")
{
eval("subadmin_menu" + sid + ".style.display=\"\";");
}
else
{
eval("subadmin_menu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
  <tr> 
    <td bgcolor="#FFFFFF"> 
      <table width="135" border="0" align="center" cellpadding="0" cellspacing="1">
        <tr>
          <td><a href="Admin_Index.asp">管理首页</a> | <a href="User.asp?action=logout">退出</a> 
          </td>
        </tr>
      </table></td>
  </tr>
</table>
<%
REM 管理栏目设置
dim admin_menu(3,9)
admin_menu(0,0)="软件管理"
admin_menu(0,1)="<a href=Admin_SoftInfo.asp>添加软件</a>"
admin_menu(0,2)="<a href=Admin_Skycn.asp> 天空专用</a> | <a href=Admin_Newhua.asp>华军专用</a>"
admin_menu(0,3)="<a href=Admin_Soft_List.asp?action=l>软件列表</a> | <a href=Admin_Soft_List.asp>管理搜索</a>"
admin_menu(0,4)="<a href=Admin_SoftDown_Catalog.asp>软件分类</a> | <a href=Admin_SoftDown_Catalog.asp?action=add>添加分类</a>"
admin_menu(0,5)="<a href=Admin_BatchLink.asp>下载地址批量替换</a>"
admin_menu(0,6)="<a href=Admin_BatchDelEssay.asp>批删评论</a>"
admin_menu(0,7)="<a href=Admin_Publish.asp>前台发布软件管理列表</a>"

admin_menu(1,0)="文章管理"
admin_menu(1,1)="<a href=Admin_Article.asp>文章添加</a>"
admin_menu(1,2)="<a href=Admin_Article_List.asp?action=l>文章列表</a> | <a href=Admin_Article_List.asp>管理搜索</a>"
admin_menu(1,3)="<a href=Admin_Article_Catalog.asp>文章分类</a> | <a href=Admin_Article_Catalog.asp?action=add>添加分类</a>"

admin_menu(2,0)="生成HTML"
admin_menu(2,1)="<a href=Create_Soft_Default.asp>默认首页</a>"
admin_menu(2,2)="<a href=Create_Soft_List.asp>软件列表</a> | <a href=Create_Soft_View.asp>软件信息页</a>"
admin_menu(2,3)="<a href=Create_Soft_News.asp>最新软件</a> | <a href=Create_Soft_Top.asp>下载排行榜</a>"
admin_menu(2,4)="<a href=Create_Soft_Commend.asp>推荐软件</a>"
admin_menu(2,5)="<table height=""5"" border=""0""><tr><td></td></tr></table><a href=Create_Article_Default.asp>文章首页</a>"
admin_menu(2,6)="<a href=Create_Article_List.asp>文章列表</a> | <a href=Create_Article_View.asp>文章浏览页</a>"
admin_menu(2,7)="<a href=Create_new.asp>最新 JS</a>　| <a href=Create_soft.asp>资源信息JS</a>"
admin_menu(2,8)="<table height=""5"" border=""0""><tr><td></td></tr></table><a href=Create_JsFiles.asp>其他HTML页及JS文件</a>"

admin_menu(3,0)="系统设置"
admin_menu(3,1)="<a href=Admin_Setup.asp>基本设置</a> | <a href=Admin_updateRs.asp>数据更新</a>"
admin_menu(3,2)="<a href=Admin_Messages.asp>系统公告</a> | <a href=Admin_Messages.asp?action=add>添加公告</a>"
admin_menu(3,3)="<a href=Admin_Template.asp>模板设置</a> | <a href=Admin_Template.asp?action=news>添加</a>"
admin_menu(3,4)="<a href=Admin_SoftLinkType.asp>下载站预定义</a> | <a href=Admin_SoftLinkType.asp?action=add>添加</a> "
admin_menu(3,5)="<a href=Admin_lockIP.asp>IP 限制</a> | <a href=admin_lockIP.asp?action=add>添加</a>"
admin_menu(3,6)="<a href=Admin_SiteLink.asp>友情链接</a> | <a href=Admin_SiteLink.asp?action=add>添加</a>"
admin_menu(3,7)="<a href=Admin_User.asp>用户管理</a> | <a href=Admin_UserSetting.asp>添加</a>"

dim j
dim tmpadmin_menu
dim admin_menuname
dim admin_menurl
for i=0 to ubound(admin_menu,1)
if isempty(admin_menu(i,0)) then exit for
%>
<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
  <tr>
    <td height=20 class=admin_menu_title onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick="showsubadmin_menu(<%=i%>)" bgcolor="#efefef" style="cursor: crosshair;"> 
      <span><font color=#0066CC><b><%=admin_menu(i,0)%></b></font></span> </td>
  </tr>
  <tr>
    <td style="display:" id='subadmin_menu<%=i%>' bgcolor="#FFFFFF"> 
      <div class=sec_admin_menu> 
        <table cellpadding=0 cellspacing=0 align=center width=135>
<%
for j=1 to ubound(admin_menu,2)
if isempty(admin_menu(i,j)) then exit for
%>
<tr><td height=20><%=admin_menu(i,j)%></td></tr>
<%
next
%>
</table>
	  </div>
	</td>
  </tr>
</table>
<%next%>