#xp.mo

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

Option Explicit

TBBS.Vars("template") = "admin.xp"
TBBS.AddNav "", TBBS.Lang("user_manage")
TBBS.AddNav "", TBBS.Lang("set_xp")

Call main()

Private Sub doGet()
    Call SetXP
End Sub

Private Sub doPost()
    Dim arr, ptr
    TBBS.Vars("state") = 2
    arr = Split("coin|cent|witchery", "|")
    For Each ptr In arr
        TBBS.Env(ptr) = Replace(MyIO.Form(ptr), ", ", "|")
    Next
    TBBS.AddHint "set_ok", Array()
    TBBS.SetNodes "env"
    Call SetXP
End Sub

Private Sub SetXP()
    Dim xmlParent, xmlNode
    Dim arr1, arr2, ptr, name, i
    arr1 = Split("coin|cent|witchery", "|")
    name = Split("reg|login|topic|reply|soul|delete", "|")
    For Each ptr In arr1
        Set xmlParent = TBBS.Element(ptr)
        arr2 = Split(TBBS.Env(ptr), "|")
        For i = 0 To UBound(name)
            Set xmlNode = xmlParent.appendChild(TBBS.Create(name(i)))
            xmlNode.setAttribute "title", TBBS.Lang(ptr & "_for_" & name(i))
            If i > UBound(arr2) Then
                xmlNode.setAttribute "value", 0
            Else
                xmlNode.setAttribute "value", arr2(i)
            End If
            Set xmlNode = Nothing
        Next
        Set xmlParent = Nothing
    Next
End Sub