adminmenus.asp

问答系统 很好用啊 代码都应有 毕业设计

<%
'==================================================================================
'oASK问答系统静态页面版
'官方演示站点：http://ask.officexy.com/
'官方支持论坛：http://club.officexy.com/
'联系人：小杨
'联系EMail：[e-mail]
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、Office学院保留此软件的法律追究权利
'==================================================================================

Function GetAdminMenu()

dim menu(4,10)

menu(0,0)="常规管理"
menu(0,1)="<a href=adminconfig.asp target=main>基本设置</a>"
'menu(0,2)="短信管理"
menu(0,3)="<a href=admingao.asp target=main>发布公告</a> | <a href=admingaog.asp target=main>管理</a>"
menu(0,4)="<a href=../aspcheck.asp target=main>服务器信息</a>"
menu(0,5)="<a href=adminlogout.asp target=_top>退出登录</a>"

menu(1,0)="内容管理"
menu(1,1)="<a href=adminassort.asp target=main>分类管理</a>"
menu(1,2)="<a href=adminquestion.asp target=main>问题管理</a>"
'menu(1,3)="评论管理"
'menu(1,4)=重计论坛数据和修复
'menu(1,5)="问题生成"
'menu(1,6)="JS脚本生成"

menu(2,0)="用户管理"
menu(2,1)="<a href=adminperson.asp target=main>用户管理</a>"
menu(2,2)="<a href=adminadmin.asp target=main>管理员管理</a>"
'menu(2,3)="重计用户各项数据"

menu(3,0)="数据处理(SQL)"
menu(3,1)="<a href=data.asp?act=EchoBackup target=main>备份数据库</a>"
menu(3,2)="<a href=data.asp?act=EchoRestore target=main>恢复数据库</a>"
menu(3,3)="<a href=data.asp?act=EchoCompact target=main>压缩数据库</a>"
'menu(3,4)="系统空间占用"
menu(3,5)="<a href=adminsql.asp target=main>防SQL注入管理</a>"

'menu(4,0)="文件管理"
'menu(4,1)="上传头像管理"
'menu(4,2)="<a href=uploadlist.asp target=main>上传文件管理</a>"


GetAdminMenu=""
dim i, j, sLei
for i=0 to 4
  sLei=""
  for j=0 to 10
    if menu(i,j)<>"" then
      if j>0 then sLei=sLei & "@@"
      sLei=sLei & menu(i,j)
    end if
  next
  if sLei="" then Exit For
  if i>0 then GetAdminMenu=GetAdminMenu & "||"
  GetAdminMenu=GetAdminMenu & sLei
next

End Function
%>