#set.mo

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

Option Explicit

TBBS.Vars("template") = "admin.set"
TBBS.AddNav "", TBBS.Lang("general_manage")
TBBS.AddNav "", TBBS.Lang("set_bbs")

Call main()

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

Private Sub doPost()
    Dim arr, ptr
    TBBS.Vars("state") = 1
    arr = Split("bbs_name|site_name|site_addr|index_name|bbs_close|bbs_close_reason|smtp_server|smtp_username|smtp_password|auto_update|topic_title_min_size|topic_title_max_size|topic_content_min_size|topic_content_max_size|topic_interval|twinads_id|handle_reason", "|")
    For Each ptr In arr
        TBBS.Vars(ptr) = Trim(MyIO.Form(ptr))
    Next
    If TBBS.Vars("bbs_name") = "" Then
        TBBS.AddHint "empty_bbs_name", Array()
    Else
        For Each ptr In arr
            TBBS.Env(ptr) = TBBS.Vars(ptr)
        Next
        TBBS.Env("validate") = Replace(MyIO.Form("validate"), ", ", "|")
        TBBS.Env("ubb") = Replace(MyIO.Form("ubb"), ", ", "|")
        TBBS.Env("html") = Replace(MyIO.Form("html"), ", ", "|")
        TBBS.SetNodes "env"
        TBBS.Vars("state") = 2
        TBBS.AddHint "set_ok", Array()
    End If
End Sub