web/ChangePassword.aspx.vb

（完整代码） 1KB 

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Partial Class ChangePassword
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim dt As DataTable = Syscrf.seachData("select USERID, CUSTACCOUNT from USERINFO where userid='" & Request.Cookies("usoffice")("eua").ToString & "'").Tables(0)
            txt_userid.Text = dt.Rows(0)("USERID").ToString.Trim
        End If
    End Sub
    Protected Sub savebtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles savebtn.Click
        Dim bt As DataTable = Syscrf.seachData("select PWD from USERINFO where userid='" & Request.Cookies("usoffice")("eua").ToString.Trim & "'").Tables(0)
        If txt_oldpwd.Text.ToUpper <> bt.Rows(0)("pwd").ToString.ToUpper Then
            Response.Write("<script>alert('The old password wrong');</script>")
        Else
            If txt_comfirm.Text <> txt_newpwd.Text Then
                Response.Write("<script>alert('New Password and Confirm Password different');</script>")
            Else
                If Syscrf.ExecuteSql("update USERINFO set PWD='" & txt_newpwd.Text.Trim & "' where userid='" & Request.Cookies("usoffice")("eua").ToString.Trim & "'") = True Then
                    Response.Write("<script>alert('Successfully modified');</script>")
                End If
            End If
        End If

    End Sub


End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。