login.aspx.vb

来自「初稿」· VB 代码 · 共 57 行

Imports System.Data
Imports System.Data.OleDb
Imports SqlConnection

Partial Class Login
    Inherits System.Web.UI.Page

   
    Protected Sub Btn_Login_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Login.Click
        If Session("CheckCode") <> Nothing Then
            If Tbx_CheckCode.Text = Session("CheckCode").ToString() Then
                Lbl_Error.Text = ""
                '操作数据库
                Dim sql As String
                Dim sqlconn As New SqlConnection

                ''Dim conn As New OleDbConnection(sqlconn.GetConString)
                'Dim cmd As New OleDbCommand
                Dim dr As OleDbDataReader
                sql = "select * from Users where User_ID= '" & Tbx_ID.Text & "' and PassWord='" & Tbx_PassWord.Text & "'"
                'cmd = New OleDbCommand(sql, New OleDbConnection(sqlconn.GetConString))
                ''VS2005取得配置文件
                ''SqlConnection conn = new SqlConnection(ConfigurationManager.AppSettings.Get("forum"))
                'cmd.Connection.Open()
                'dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
                dr = sqlconn.GetDr(sql)
                If dr.Read() Then
                    If Tbx_ID.Text = dr.Item("User_ID") And Tbx_PassWord.Text = dr.Item("PassWord") Then
                        '用户登录信息
                        Session("USER_ID") = dr.Item("User_ID")
                        Session("PASSWORD") = dr.Item("PassWord")
                        Session("USER_NAME") = dr.Item("User_Name")
                        Session("IS_VIP") = dr.Item("Is_VIP")
                        Session("SCORE") = dr.Item("Score")
                        Response.Redirect("MFrame.aspx")
                    Else
                        Lbl_Error.Text = "您输入的用户名或密码错误，请重新输入！"
                        Tbx_ID.Text = ""
                        Tbx_PassWord.Text = ""
                    End If

                End If
            Else
                Lbl_Error.Text = "您输入的验证码错误，请重新输入！"
            End If
            Session("CheckCode") = Nothing

        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not (Page.IsPostBack) Then
            Btn_Login.Attributes.Add("onclick", "return CheckCode()")
        End If
    End Sub
End Class