#upload.mo

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

Option Explicit

TBBS.Vars("template") = "admin.upload"
TBBS.AddNav "", TBBS.Lang("general_manage")
TBBS.AddNav "", TBBS.Lang("set_upload")

Call main()

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

Private Sub doPost()
    Dim arr, ptr
    Dim arrAllow(3)
    TBBS.Vars("state") = 1
    arr = Split("allow_image|allow_ring|allow_video|allow_soft|one_file_size|all_file_size", "|")
    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
    arrAllow(0) = TBBS.Env("allow_image")
    arrAllow(1) = TBBS.Env("allow_ring")
    arrAllow(2) = TBBS.Env("allow_video")
    arrAllow(3) = TBBS.Env("allow_soft")
    TBBS.Env("allow") = Join(arrAllow, "|")
    TBBS.SetNodes "env"
    TBBS.Vars("state") = 2
    TBBS.AddHint "set_ok", Array()
End Sub