admin_updatepwd.aspx.vb

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

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

Public Class admin_updatePWD: 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 DataUserLog.IsAdmin()=False Then
			Response.Write("<script language='javascript'>top.location.href='../index.aspx';</script>")
		End If

		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
			lblmessage.Text="已经成功修改"
		Else
			lblmessage.Text="旧密码错误"
		End If
	End Sub
End Class