管理员修改密码.aspx.vb

用VB.NET做的软件工程课程设计

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Data.SqlClient
Imports System.IO
Imports System.Data
Partial Class 修改密码
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim curpwd As String = TextBox1.Text.ToString()
        Dim newpwd As String = TextBox2.Text.ToString()
        Dim confirmnewpwd As String = TextBox3.Text.ToString()
        newpwd = Trim(newpwd)
        confirmnewpwd = Trim(confirmnewpwd)
        Dim empno As String = Session("empno")
        Dim sqlConnectString As String = "data source=localhost; database=users;Integrated Security=SSPI; user Id=sa;password='';connection TimeOut=30;"
        Dim dCon = New SqlConnection(sqlConnectString)
        dCon.Open()
        Dim sql1 As String
        sql1 = "select count(userpwd) from userinfo where empno='" + empno + "'and userpwd='" + curpwd + "'"
        Dim comm2 = New SqlCommand(sql1, dCon)
        Dim count As Short
        count = CShort(comm2.ExecuteScalar())
        If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" Then
            MsgBox("密码不能为空")
        Else
            If count > 0 Then
                If newpwd = "" Or confirmnewpwd = "" Then
                    MsgBox("密码不能为空！")

                ElseIf newpwd = confirmnewpwd Then
                    Dim sql As String
                    sql = "update userinfo set userpwd='" + newpwd + "'where userpwd='" + curpwd + " 'and empno='" + empno + "'"
                    Dim comm = New SqlCommand(sql, dCon)
                    comm.ExecuteScalar()
                    MsgBox("密码修改成功！")
                    Response.Redirect("职工进入.aspx")

                Else
                    MsgBox("新密码输入不一致！")
                End If

            Else
                MsgBox("密码输入错误！")

            End If

        End If

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response.Redirect("管理员进入.aspx")
    End Sub
End Class