logon.aspx.vb

来自「介绍vb.net的一本很好的英文资料,深入浅出,值得一读」· VB 代码 · 共 48 行

Public Class LogOn
    Inherits System.Web.UI.Page
    Protected WithEvents txtEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents revEmail As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents rfvEmail As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents txtPassword As System.Web.UI.WebControls.TextBox
    Protected WithEvents rfvPassword As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents lblNotFound As System.Web.UI.WebControls.Label
    Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Protected Sub Page_Init(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        Dim strFName, strLName, strAddress, strCompany As String
        Dim intID As Integer
        Dim cusCustomer As New Services.CustomerService()

        lblNotFound.Visible = False

        Try
            cusCustomer.LogOn(txtEmail.Text, txtPassword.Text, intID, strFName, strLName, _
                                 strAddress, strCompany)
            Session("User_FullName") = strFName & " " & strLName
            Response.Redirect("Welcome.aspx")
        Catch ex As Exception
            lblNotFound.Text = "The user name or password was incorrect"
            lblNotFound.Visible = True
        End Try
    End Sub
End Class