#ip.mo

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

Option Explicit

TBBS.Vars("template") = "admin.ip"
TBBS.AddNav "", TBBS.Lang("general_manage")
TBBS.AddNav "", TBBS.Lang("ip_manage")

Call main()

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

Private Sub doPost()
    TBBS.Vars("state") = 1
    Dim arr, ptr
    arr = Split("ip_rule|ip_rule1|ip_rule2", "|")
    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
    TBBS.AddHint "set_ok", Array()
    TBBS.Vars("state") = 2
    TBBS.SetNodes "env"
    TBBS.Vars("state") = 2
End Sub