login.aspx.vb

来自「java voice chat based on java core ,, u 」· VB 代码 · 共 59 行

Imports System.Data.SqlClient
Imports System.Web.Security

Public Class Login
    Inherits System.Web.UI.Page
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents txtUname As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents lblmsg As System.Web.UI.WebControls.Label
    Protected WithEvents Button1 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

    Private 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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New SqlConnection(Application("cs"))
        Try
            con.Open()
            Dim cmd As New SqlCommand("select  a.acno, cname from accounts a, users u where  a.acno = u.acno  and  uname = @uname and pwd= @pwd", con)
            cmd.Parameters.Add("@uname", SqlDbType.VarChar, 10).Value = txtUname.Text
            cmd.Parameters.Add("@pwd", SqlDbType.VarChar, 10).Value = txtPwd.Text

            Dim dr As SqlDataReader
            dr = cmd.ExecuteReader()

            If dr.Read() Then
                Session.Add("acno", dr.Item("acno"))
                Session.Add("cname", dr.Item("cname"))
                FormsAuthentication.RedirectFromLoginPage(txtUname.Text, False)
            Else
                lblmsg.Text = "Sorry!  Invalid Login."
            End If
            dr.Close()
        Catch ex As Exception
            lblmsg.Text = "Database Error --> " & ex.Message
        Finally
            con.Close()
        End Try

    End Sub
End Class