修改密码.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()
        If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" Then
            MsgBox("密码不能为空")
        Else
            If Asc(TextBox1.Text) < 48 Or (Asc(TextBox1.Text) > 90 And Asc(TextBox1.Text) < 97) Or (Asc(TextBox1.Text) < 65 And Asc(TextBox1.Text) > 57) Or Asc(TextBox1.Text) > 122 Then
                MsgBox("登陆失败，用户名或密码错误！")
            Else
                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 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 If


    End Sub

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

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub
End Class