systemmenu.asp

这个也是一个功能强大的企业整站的ASP源代码

<!--#include file="../Include/Connstr.asp"-->
<%
'REM 操作管理后台系统菜单
dim ManageMenu(9,40)
ManageMenu(0,10)="<a href='#' onClick=SwitchMenu('sub0') class='left'><strong>基本信息</strong></a>"
ManageMenu(0,11)="<a href='AdministratorManage.asp' target='right' class='top'>操作员管理</a>"
ManageMenu(0,12)="<a href='ProductCateManage.asp' target='right' class='top'>产品种类管理</a>"
ManageMenu(0,13)="<a href='enProductCateManage.asp' target='right' class='top'>英文版产品种类管理</a>"
ManageMenu(0,14)="<a href='SystemBigClassManage.asp' target='right' class='top'>系统大类管理</a>"
ManageMenu(0,15)="<a href='SystemSmallClassManage.asp' target='right' class='top'>系统小类管理</a>"

ManageMenu(1,10)="<a href='#' onClick=SwitchMenu('sub1') class='left'><strong>产品管理</strong></a>"
ManageMenu(1,11)="<a href='ProductManageAdd.asp' target='right' class='top'>发布产品</a>"
ManageMenu(1,12)="<a href='ProductManage.asp?CateID=0&CateName=全部产品' target='right' class='top'>全部产品</a>"
ManageMenu(1,13)="<a href='ProductManage.asp?CateID=-1&CateName=推荐产品' target='right' class='top'>推荐产品</a>"
ManageMenu(1,14)="<a href='ProductManage.asp?CateID=-2&CateName=库存产品' target='right' class='top'>库存产品</a>"
ManageMenu(1,15)="<font color='ff0000'>======产品系列======</font>"
set rs_Menu=conn.execute("select * from tProductCate order by AddTime desc")
Menui=16
do while not rs_Menu.eof
  ManageMenu(1,Menui)="<a href='ProductManage.asp?CateID="&rs_Menu("ID")&"&CateName="&rs_Menu("Title")&"' target='right' class='top'>"&left(rs_Menu("Title"),10)&"</a>"
  rs_Menu.movenext
  Menui=Menui+1
loop


ManageMenu(2,10)="<a href='#' onClick=SwitchMenu('sub2') class='left'><strong>新闻/文章管理</strong></a>"
ManageMenu(2,11)="<a href='NewsManageAdd.asp' target='right' class='top'>发布新闻/文章</a>"
ManageMenu(2,12)="<a href='NewsManage.asp' target='right' class='top'>新闻/文章管理</a>"
ManageMenu(2,13)="<font color='ff0000'>======信息数据类别======</font>"
rs_Menu.close()
set rs_Menu=conn.execute("select * from tSystemSmallClass where BigClassID='News' order by AddTime desc")
Menui=14
do while not rs_Menu.eof
  ManageMenu(2,Menui)="<a href='NewsManage.asp?ClassID="&rs_Menu("ID")&"&ClassName="&rs_Menu("SClassName")&"' target='right' class='top'>"&left(rs_Menu("SClassName"),10)&"</a>"
  rs_Menu.movenext
  Menui=Menui+1
loop

ManageMenu(3,10)="<a href='#' onClick=SwitchMenu('sub3') class='left'><strong>人力资源管理</strong></a>"
ManageMenu(3,11)="<a href='RecruitManage.asp' target='right' class='top'>招聘信息管理</a>"
ManageMenu(3,12)="<a href='ResumeManage.asp' target='right' class='top'>应聘者管理</a>"

ManageMenu(4,10)="<a href='#' onClick=SwitchMenu('sub4') class='left'><strong>综合功能管理</strong></a>"
ManageMenu(4,11)="<a href='ProductOrderManage.asp' target='right' class='top'>产品订单管理</a>"
ManageMenu(4,12)="<a href='MemberManage.asp' target='right' class='top'>注册会员管理</a>"
ManageMenu(4,13)="<a href='OfficeManage.asp' target='right' class='top'>销售网络信息管理</a>"
ManageMenu(4,14)="<a href='GuestBookManage.asp' target='right' class='top'>留言薄管理</a>"
ManageMenu(4,15)="<a href='AdviceManage.asp' target='right' class='top'>在线投诉管理</a>"
ManageMenu(4,16)="<a href='ResearchManage.asp' target='right' class='top'>网上调查管理</a>"
ManageMenu(4,17)="<a href='SucceedCaseManage.asp' target='right' class='top'>样榜工程管理</a>"
ManageMenu(4,18)="<a href='DownLoadManage.asp' target='right' class='top'>下载资料管理</a>"
ManageMenu(4,19)="<a href='enResearchManage.asp' target='right' class='top'>英文网上调查管理</a>"

ManageMenu(5,10)="<a href='#' onClick=SwitchMenu('sub5') class='left'><strong>网站访问监控</strong></a>"
ManageMenu(5,11)="<a href='/Count/Infolist.asp' target='right' class='top'>综合统计</a>"
ManageMenu(5,12)="<a href='/Count/FVisitor.asp' target='right' class='top'>最近访问</a>"
ManageMenu(5,13)="<a href='/Count/StatYear.asp' target='right' class='top'>年 报 表</a>"
ManageMenu(5,14)="<a href='/Count/StatMonth.asp' target='right' class='top'>月 报 表</a>"
ManageMenu(5,15)="<a href='/Count/StatWeek.asp' target='right' class='top'>周 报 表</a>"
ManageMenu(5,16)="<a href='/Count/StatDay.asp' target='right' class='top'>日 报 表</a>"
ManageMenu(5,17)="<a href='/Count/History.asp' target='right' class='top'>历史报表</a>"
ManageMenu(5,18)="<a href='/Count/FAddress.asp' target='right' class='top'>地址分析</a>"
ManageMenu(5,19)="<a href='/Count/FSystem.asp' target='right' class='top'>操作系统</a>"
ManageMenu(5,20)="<a href='/Count/FBrowser.asp' target='right' class='top'>浏 览 器</a>"
ManageMenu(5,21)="<a href='/Count/FScreen.asp' target='right' class='top'>屏幕大小</a>"

ManageMenu(6,10)="<a href='#' onClick=SwitchMenu('sub6') class='left'><strong>英文版产品管理</strong></a>"
ManageMenu(6,11)="<a href='enProductManageAdd.asp' target='right' class='top'>发布产品</a>"
ManageMenu(6,12)="<a href='enProductManage.asp?CateID=0&CateName=全部产品' target='right' class='top'>全部产品</a>"
ManageMenu(6,13)="<a href='enProductManage.asp?CateID=-1&CateName=推荐产品' target='right' class='top'>推荐产品</a>"
ManageMenu(6,14)="<a href='enProductManage.asp?CateID=-2&CateName=库存产品' target='right' class='top'>库存产品</a>"

ManageMenu(6,15)="<font color='ff0000'>======英文版产品系列======</font>"
set rs_Menu=conn.execute("select * from tenProductCate order by AddTime desc")
Menui=16
do while not rs_Menu.eof
  ManageMenu(6,Menui)="<a href='enProductManage.asp?CateID="&rs_Menu("ID")&"&CateName="&rs_Menu("Title")&"' target='right' class='top'>"&left(rs_Menu("Title"),10)&"</a>"
  rs_Menu.movenext
  Menui=Menui+1
loop
%>