#admin.mo

来自「WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品」· MO 代码 · 共 57 行

Option Explicit

TBBS.AddLang "common|head|foot|error|admin"
TBBS.SetNodes "env|user"
TBBS.AddNav "admin.asp", TBBS.Lang("admin_console")
TBBS.Vars("skin") = "default"

If TBBS.Permit("administrator") = 0 Then
    TBBS.AddError "ps_administrator", Array()
ElseIf Session("logined") = "" Then
    TBBS.Module "Admin.#Login"
Else
    Select Case TBBS.Vars("handle")
    Case ""
        TBBS.Module "Admin.#Console"
    Case "login"
        TBBS.Module "Admin.#Login"
    Case "set"
        TBBS.Module "Admin.#Set"
    Case "ads"
        TBBS.AddError "in_process", Array()
    Case "bulletin"
        TBBS.Module "Admin.#Bulletin"
    Case "union"
        TBBS.Module "Admin.#Union"
    Case "register"
        TBBS.Module "Admin.#Register"
    Case "ip"
        TBBS.Module "Admin.#IP"
    Case "upload"
        TBBS.Module "Admin.#Upload"
    Case "forum"
        TBBS.Module "Admin.#Forum"
    Case "forum_power"
        TBBS.AddError "in_process", Array()
    Case "forum_reset"
        TBBS.AddError "in_process", Array()
    Case "group"
        TBBS.Module "Admin.#Group"
    Case "xp"
        TBBS.Module "Admin.#XP"
    Case "sms"
        TBBS.AddError "in_process", Array()
    Case "user_reset"
        TBBS.AddError "in_process", Array()
    Case "email"
        TBBS.AddError "in_process", Array()
    Case "template"
        TBBS.Module "Admin.#Template"
    Case "update"
        TBBS.Module "Admin.#Update"
    Case Else
        TBBS.AddError "invalid_handle", Array()
    End Select
End If
TBBS.Page("name") = TBBS.GetNav()