#login.mo

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

Option Explicit

TBBS.Vars("template") = "admin.login"

Call main

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

Private Sub doPost()
    Dim rs, strSQL
    TBBS.Vars("state") = 1
    TBBS.Vars("username") = Trim(MyIO.Form("UserName"))
    TBBS.Vars("passwd") = Trim(MyIO.Form("Passwd"))
    If TBBS.Vars("username") = "" Then
        TBBS.AddHint "empty_username", Array()
    ElseIf TBBS.Vars("passwd") = "" Then
        TBBS.AddHint "empty_passwd", Array()
    ElseIf MyIO.Form("Validate") <> Session("Validate") Then
        TBBS.AddHint "invalid_validate", Array()
    Else
        strSQL = MyKernel.DB.GetLimitSQL(1, "PASSWD", T_USER, "USERNAME='$(UserName)'", "", "")
        strSQL = Replace(strSQL, "$(UserName)", SafeString(TBBS.Vars("username")))
        Set rs = MyKernel.DB.Exec2(strSQL)
        If rs.EOF Then
            TBBS.AddHint "login_failed", Array()
        ElseIf rs("Passwd") <> MD5(TBBS.Vars("passwd")) Then
            TBBS.AddHint "login_failed", Array()
        Else
            Session("logined") = "YES"
            TBBS.Vars("state") = 2
            TBBS.Redirect "admin.asp"
            TBBS.AddHint "login_ok", Array()
            TBBS.AddHint "redirect", Array(TBBS.Vars("redirect"))
        End If
        rs.Close
        Set rs = Nothing
    End If
    Session.Contents.Remove "Validate"
End Sub