xiugai.aspx.vb

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

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

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.Text = Session("yonghuming")
    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 reader1 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
        cmd1.Connection = MyCon
        cmd1.CommandType = CommandType.Text
        cmd1.CommandText = "select * from yonghu where 密码='" & TextBox1.Text & "'and 用户名='" & Label1.Text & "'"
        reader1 = cmd1.ExecuteReader()

        If reader1.Read = True Then
           
            If TextBox2.Text = TextBox3.Text Then

                cmd.CommandText = "update yonghu set 密码='" & TextBox2.Text & "' where 用户名 = '" & Label1.Text & " '"
                cmd.ExecuteNonQuery()
                cmd.Cancel()
                Dim no As Integer = reader1("等级")

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

            Else
                Response.Write("<script language = vbscript>alert""两次输入的密码不一样""</script>")
            End If
        
        Else
            Response.Write("<script language = vbscript>alert""原密码不正确""</script>")

        End If
        reader1.Close()
        cmd1.Cancel()

        MyCon.Close()
      
    End Sub

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

        Dim cmd As New OleDbCommand()

        Dim reader1 As OleDbDataReader

        cmd.Connection = MyCon
        cmd.CommandType = CommandType.Text
        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 密码='" & Label1.Text & "'"
        reader1 = cmd.ExecuteReader()
        If reader1.Read = True Then
            Dim no As Integer = reader1("等级")

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

    End Sub

   
End Class