#register.mo

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

Option Explicit

TBBS.Vars("template") = "admin.register"
TBBS.Vars("welcome_content") = MyKernel.Resource("moex.twinbbs.welcome")
TBBS.Vars("email_body") = MyKernel.Resource("moex.twinbbs.email")
TBBS.Vars("retake_email") = MyKernel.Resource("moex.twinbbs.retake")
TBBS.AddNav "", TBBS.Lang("general_manage")
TBBS.AddNav "", TBBS.Lang("register_manage")

Call main()

Private Sub doGet()
    TBBS.Vars("state") = 0
End Sub

Private Sub doPost()
    TBBS.Vars("state") = 1
    Dim arr, ptr
    arr = Split("reg_state|username_reserve|reg_interval|username_min_size|username_max_size|one_email|passwd_by_email|email_subject|reg_need_examine|reg_welcome|welcome_title|retake|retake_failed|retake_total|retake_subject", "|")
    For Each ptr In arr
        TBBS.Vars(ptr) = Trim(MyIO.Form(ptr))
    Next
    For Each ptr In arr
        TBBS.Env(ptr) = TBBS.Vars(ptr)
    Next
    MyKernel.Resource("moex.twinbbs.welcome") = MyIO.Form("welcome_content")
    MyKernel.Resource("moex.twinbbs.email") = MyIO.Form("email_body")
    MyKernel.Resource("moex.twinbbs.retake") = MyIO.Form("retake_email")
    TBBS.AddHint "set_ok", Array()
    TBBS.Vars("state") = 2
    TBBS.SetNodes "env"
End Sub