#user.mo

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

Option Explicit

TBBS.AddLang "common|head|foot|error|user"
TBBS.SetNodes "env|user"

TBBS.AddNav "", TBBS.Lang("user_info")
TBBS.Page("name") = TBBS.GetNav()
TBBS.AddOnline 0, TBBS.Page("name")

TBBS.Vars("skin") = "default"

If TBBS.Permit("view_user_info") = 0 Then
    TBBS.AddError "ps_view_user_info", Array()
Else
    Call main
End If

Private Sub doGet()
    Dim lngId, strName
    Dim clsUser, key
    lngId = atol(MyIO.QueryString("id"))
    strName = Trim(MyIO.QueryString("name"))
    Set clsUser = MyKernel.Command(T_USER)
    clsUser.CommandType = "SELECT"
    If lngId < 1 Then
        clsUser.Where = "USERNAME='" & SafeString(strName) & "'"
    Else
        clsUser.Where = "SEQID=" & lngId
    End If
    If Not clsUser.Exec Then
        TBBS.AddError "missing_user", Array()
    Else
        For Each key In clsUser.Keys
            TBBS.Attr("info", key) = clsUser(key)
        Next
    End If
    Set clsUser = Nothing
End Sub

Private Sub doPost()
    TBBS.AddError "invalid_handle", Array()
End Sub