<%
If Request("action")="right" Then
Call MainRight()
Else
Call main()
End If
Set MNBoard =Nothing
Sub Main()
%>
MNB官方论坛管理控制面版
<%=MNBoard.GetMemor("Admin","AdminName")%> ！欢迎您的光临
<%Call AdminMenu()%>
<%End Sub
Sub AdminMenu()
Dim I,II,Menu(7,7),menuUrl,MenuName,Temp,TempList
Menu(0,0)="Admin_Action.asp?Action=BbsInfo,常规设置"
Menu(0,1)="?action=right,管理首页"
Menu(0,2)="Admin_Action.asp?Action=BbsInfo,论坛信息设置"
Menu(0,3)="Admin_Action.asp?Action=ConfigData,论坛统计设置"
Menu(0,4)="Admin_ActionList.asp?Action=Placard,公告发布管理"
Menu(0,5)="Admin_SetHtmlEdit.asp?Action=agreement,修改注册协议"
Menu(0,6)="Admin_Action.asp?Action=GapAd,帖间广告管理"
Menu(0,7)="Admin_ActionList.asp?Action=Link,论坛联盟管理"
Menu(1,0)="Admin_Board.asp,论坛版块"
Menu(1,1)="Admin_Board.asp,论坛版面管理"
Menu(1,2)="Admin_Board.asp?Action=AddClass,添加论坛分类"
Menu(1,3)="Admin_Board.asp?Action=AddBoard,添加论坛版面"
Menu(2,0)="Admin_ActionList.asp?Action=UserList,用户管理"
Menu(2,1)="Admin_ActionList.asp?Action=UserList,用户批量管理"
Menu(2,2)="Admin_ActionList.asp?Action=UserList&Flag=2,恢复删除用户"
Menu(2,3)="Admin_ActionList.asp?Action=UserList&Flag=1,设置 VIP用户"
Menu(2,4)="Admin_ActionList.asp?Action=SetGrade,设置特别等级"
Menu(2,5)="Admin_Action.asp?Action=BoardAdmin,设置论坛版主"
Menu(2,6)="Admin_Action.asp?Action=Grade,用户等级管理"
Menu(2,7)="Admin_Action.asp?Action=TopAdmin,设置管理人员"
Menu(3,0)="Admin_Action.asp?Action=DelEssay,帖子留言"
Menu(3,1)="Admin_Action.asp?Action=DelEssay,批量删除帖子"
Menu(3,2)="Admin_Action.asp?Action=MoveEssay,批量移动帖子"
Menu(3,3)="Admin_Action.asp?Action=DelSms,批量删除留言"
Menu(3,4)="Admin_SetHtmlEdit.asp?Action=AllSms,群发信件留言"
Menu(3,5)="Admin_UpLoad.asp,上传文件管理"
Menu(3,6)="Admin_Recycle.asp,论坛回收站"
Menu(4,0)="Admin_New.asp,论坛插件"
Menu(4,1)="Admin_New.asp,论坛调用"
Menu(4,2)="Admin_Action.asp?Action=Bank,论坛银行管理"
Menu(4,3)="Admin_Action.asp?Action=Faction,论坛帮派管理"
Menu(4,4)="Admin_CC.asp,CC视频管理"
Menu(5,0)="Admin_Template.asp,风格模板"
Menu(5,1)="Admin_Template.asp,风格模板管理"
Menu(5,2)="Admin_Action.asp?Action=Menu,论坛菜单管理"
Menu(5,3)="Admin_Confirm.asp?action=setjsmenu,生成前台菜单 "
Menu(6,0)="Admin_Confirm.asp?Action=CompressData,数据整理"
Menu(6,1)="Admin_Confirm.asp?Action=CompressData,压缩数据库"
Menu(6,2)="Admin_Confirm.asp?Action=BackupData,备份数据库"
Menu(6,3)="Admin_Confirm.asp?Action=RestoreData,恢复数据库"
Menu(6,4)="Admin_Action.asp?Action=SqlTable,数据表管理"
Menu(6,5)="Admin_Action.asp?Action=UpdateBbs,论坛整理修复"
Menu(6,6)="Admin_User.asp?Action=ExecuteSql,执行SQL语句"
Menu(6,7)="Admin_Action.asp?Action=SpaceSize,空间占用情况"
Menu(7,0)="Admin_ActionList.asp?Action=log,系统相关"
Menu(7,1)="Admin_ActionList.asp?Action=log,论坛日志系统"
Menu(7,2)="Admin_Action.asp?Action=LockIp,IP封锁管理"
Menu(7,3)="Admin_Action.asp?Action=Clean,更新论坛缓存"
Menu(7,4)="Admin_Server.asp,服务器检测"
For i=0 to ubound(menu,1)
If isempty(menu(i,1)) then exit for
Temp = ""&split(Menu(i,0),",")(1)&"
"
Temp = Temp & ""
TempList = TempList & Temp
Next
Response.write TempList
End Sub
Sub MainRight()
Dim Temp,OnlineNum
with MNBoard
If .Cache.valid("OnlineCache") Then
Temp=.Cache.Value("OnlineCache")
Temp=Split(Temp,",")
OnlineNum=uBound(Temp)+1
Else
OnlineNum=1
End If
Response.Write"MNB系统信息
"&_
"
主题帖数："&.InfoUpdate(1)&"
总发帖数："&.InfoUpdate(0)&"
"&_
"
昨日帖数："&.InfoUpdate(3)&"
今日帖数："&.InfoUpdate(2)&"
"&_
"
论坛时间："&.NowBBSTime&"
最大日发帖数："&.InfoUpdate(4)&"
"&_
"
最新会员："&.InfoUpdate(6)&"
会员数："&.InfoUpdate(5)&"
"&_
"
最大在线人数："&.InfoUpdate(7)&"("&.InfoUpdate(8)&")
目前在线人数："&OnlineNum&"
"&_
"
论坛版本："&.Ver&"
论坛访问人次："&.InfoUpdate(9)&"(超2000次更新)
"&_
"
论坛首页
退出