<%
REM 管理栏目设置
dim admin_menu(9,18)
admin_menu(0,0)="系统数据管理"
admin_menu(0,1)="<a href=Admin_First.asp target='content'>网站信息统计</a>"
admin_menu(0,2)="<a href=Admin_Config.asp target=content>网站参数设置</a>"
admin_menu(0,3)="<a href=Admin_User.asp target='content' return true>管理员权限设置</a>"
admin_menu(0,4)="<a href=Admin_ModifyPassword.asp target=content>管理员密码更改</a>"
admin_menu(0,5)="<a href=Admin_Link.asp target='content'>友情链接管理</a>"
admin_menu(0,6)="<a href=Admin_puser.asp target='content'>个人简历管理</a>"
admin_menu(0,7)="<a href=Admin_cuser.asp target='content'>企业用户管理</a>"
admin_menu(0,8)="<a href=Admin_Company.asp target='content'>招聘信息管理</a>"
admin_menu(0,9)="<a href=Admin_adshad.asp target='content'>站内广告管理</a>"

admin_menu(1,0)="人才栏目管理"
admin_menu(1,1)="<a href=Admin_NewsCategory.asp target='content'><font color=red>文章类别设置</font></a>"
m_SQL = "Select F_ID,F_Value From jy_newsCategory ORDER BY F_Grade"
Set rst = conn.Execute(m_SQL)
n = 1
Do While Not rst.Eof
  n = n + 1
  if instr(rst(1),"/")<>0 then
    m_Title = mid(rst(1),1,instr(rst(1),"/")-1)
  else
    m_Title = rst(1)
  end if
  admin_menu(1,n)="<a href=Admin_News.asp?CategoryID="&rst(0)&" target=content>-"&m_Title&"</a>"
  rst.MoveNext
Loop
rst.Close

admin_menu(2,0)="其他信息管理"
admin_menu(2,1)="<a href=Admin_updata.asp target=content>查看升级信息</a>"
admin_menu(2,2)="<a href=http://www.yjys.net target=blak>访问官方网站</a>"

%>