管理员登录(9)

日期：2020-05-13 栏目：程序人生 浏览：次

            Founderr = True 
            errmsg = errmsg + "<br>" + "<li>您输入的用户名和密码不正确或者您不是系统管理员。<br><li>请<a  
href=admin_login.asp>重新输入</a>您的密码。" 
            Exit Sub 
        Else 
            If Trim(Rs("password")) <> password Then 
                Founderr = True 
                errmsg = errmsg + "<br>" + "<li>您输入的用户名和密码不正确或者您不是系统管理员。<br><li>请<a  
href=admin_login.asp>重新输入</a>您的密码。" 
                Set Rs = Nothing 
                Exit Sub 
            Else 
            Session("adminName") = Rs("UserName") 
            Session("adminPass") = Rs("Password") 
            Session.Timeout = 45 
            Mesky.Execute ("update Mesky_SiteManager set LastLogin= " & SqlNowString & ",LastLoginIP='" & ip &  
"',LastActive=" & SqlNowString & ",Logins=Logins+1 where username='" & username & "'") 
            Set Rs = Nothing 
            Call Mesky.LoadSetting() 
            Response.Write "<script>location.href='" & Mesky.Setting(11) & "admin_index.asp'</script>" 
            End If 
        End If 
    End Sub 
End Class %>