denglu.aspx.vb

教务选课系统 教务选课系统 教务选课系统

Imports System.Data
Imports System.Data.OleDb
Partial Class denglu
    Inherits System.Web.UI.Page

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response.Redirect("zhuce.aspx")

    End Sub


    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyCon As New OleDbConnection()

        Dim cmd As New OleDbCommand()
        Dim cmd1 As New OleDbCommand()
        Dim reader As OleDbDataReader

        MyCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
        MyCon.Open()
        cmd.Connection = MyCon
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "select * from yonghu where 用户名='" & TextBox1.Text & "'and 密码='" & TextBox2.Text & "'"
        reader = cmd.ExecuteReader()
        If reader.Read = False Then

            Response.Write("<script language = vbscript>alert""用户名或者密码有误！""</script>")
        Else
            Session("yonghuming") = reader("用户名")

            cmd1.Connection = MyCon
            cmd1.CommandType = CommandType.Text
            cmd1.CommandText = "select  等级 from yonghu where 用户名='" & TextBox1.Text & "'"


            Dim no As Integer = reader("等级")

            Select Case no
                Case 0
                    Response.Redirect("guanliyuan.aspx")
                Case 1
                    Response.Redirect("jiaoshi.aspx")
                Case 2
                    Response.Redirect("xuesheng.aspx")
            End Select

            reader.Close()
            MyCon.Close()

        End If


    End Sub


    
End Class