update_pwd.aspx.vb

来自「《ASP.NET C#程序设计案例教程》」· VB 代码 · 共 33 行

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports nsShop												            '因为用到了自定义业务对象，所以导入

Public Class update_pwd: Inherits Page
	Public txtUserPWDold,txtUserPWD,txtUserPWD2 As TextBox
	Public Enter As Button
	Public lblMessage As Label

	Public Sub Page_Load(Sender As Object,E As EventArgs)
		If Not Page.IsPostBack Then
			'利用DataUser对象，返回原来的值
			Dim du As New DataUser(Session("UserId"))
			txtUserPWDold.Text=du.UserPWD
		End If
	End Sub

	Public Sub Enter_Click(Sender As Object,E As EventArgs)
		Dim strUserId,strOldPWD,strNewPWD As String
		strUserId=Session("UserId")
		strOldPWD=txtUserPWDold.Text
		strNewPWD=txtUserPWD.Text
		'调用函数更新密码
		Dim dus As New DataUsers()
		If dus.UpdatePWD(strUserId,strOldPWD,strNewPWD)=True Then
			Response.Redirect("../index.aspx")	
		Else
			lblmessage.Text="旧密码错误"
		End If
	End Sub
End Class