update_info.aspx.vb

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

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

Public Class update_info: Inherits Page
	Public txtUserId,txtUserName,txtTel,txtEmail,txtQQ,txtIntro,txtValidate,txtPostalAddress,txtPostalCode As TextBox
	Public radlSex As RadioButtonList
	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"))
			txtUserId.Text=du.UserId
			txtUserId.Enabled=False
			txtUserName.Text=du.UserName
			txtTel.Text=du.Tel
			txtEmail.Text=du.Email
			txtIntro.Text=du.Intro
			txtQQ.Text=du.QQ
			radlSex.SelectedValue=du.Sex
			txtPostalAddress.Text=du.PostalAddress
			txtPostalCode.Text=du.PostalCode
			
		End If
	End Sub

	Public Sub Enter_Click(Sender As Object,E As EventArgs)
		Dim strUserId,strUserName,strSex,strTel,strEmail,strQQ,strIntro,strPostalAddress,strPostalCode As String
		strUserId=Session("UserId")
		strUserName=txtUserName.Text
		strSex=radlSex.SelectedItem.Value
		strEmail=txtEmail.Text
		strQQ=txtQQ.Text
		strIntro=txtIntro.Text
		strTel=txtTel.Text
		strPostalAddress=txtPostalAddress.Text
		strPostalCode=txtPostalCode.Text
		'调用函数更新信息
		Dim dus As New DataUsers()
		Call dus.UpdateUserInfo(strUserId,strUserName,strSex, strTel,strEmail,strQQ,strIntro,strPostalAddress,strPostalCode)
		Response.Redirect("../index.aspx")	
	End Sub
End Class