userlog.ascx.vb

《ASP.NET C#程序设计案例教程》

Public Class userlog
    Inherits System.Web.UI.UserControl

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents txtUserId As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtUserPWD As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnEnter As System.Web.UI.WebControls.Button
    Protected WithEvents btnRegister As System.Web.UI.WebControls.Button
    Protected WithEvents lblMessage As System.Web.UI.WebControls.Label
    Protected WithEvents plhUser1 As System.Web.UI.WebControls.Panel
    Protected WithEvents lblUserId As System.Web.UI.WebControls.Label
    Protected WithEvents lnkUpdateInfo As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lnkUpdatePWD As System.Web.UI.WebControls.HyperLink
    Protected WithEvents lnkLogOut As System.Web.UI.WebControls.HyperLink
    Protected WithEvents plhUser2 As System.Web.UI.WebControls.Panel

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            Call ViewMessage()
        End If
    End Sub

    Private Sub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click
        '下面开始登录
        Dim dus As New DataUsers
        If dus.IsPassed(txtUserId.Text, txtUserPWD.Text) = True Then
            '将必须的信息保存到Session中
            Session("UserId") = txtUserId.Text
            Dim du As New DataUser(txtUserId.Text)
            Session("RoleId") = du.RoleId     '返回用户类型
            Session("Email") = du.Email     '返回用户E-mail
            '更新OnLineUsers表中的用户名
            Dim dous As New DataOnlineUsers
            dous.LogChange(Session.SessionID, Session("UserId"))
            '下面判断一下，如果是管理员，则重定向到管理员页面
            If Session("RoleId") = "A" Then
                Response.Redirect("admin/index.aspx")
            End If
            '下面显示有关表单和信息
            Call ViewMessage()         '显示用户表单
        Else
            lblMessage.Text = "用户名和密码不正确，请重新输入"
        End If
    End Sub

    '该过程用来显示用户登录表单及有关信息
    Public Sub ViewMessage()
        '下面显示用户登录表单
        If DataUserLog.IsNormal() = True Then
            lblUserId.Text = Session("UserId")
            plhUser1.Visible = False
            plhUser2.Visible = True
        Else
            plhUser1.Visible = True
            plhUser2.Visible = False
        End If
    End Sub


    Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegister.Click
        Response.Redirect("log/register1.aspx")
    End Sub
End Class