register2.aspx.vb

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

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

Public Class register2: Inherits Page
	Public txtUserId,txtUserPWD,txtUserPWD2,txtUserName,txtTel,txtEmail,txtQQ,txtIntro,txtValidate As TextBox
	Public radlSex As RadioButtonList
	Public Enter,IsExist As Button
	Public lblMessage As Label
	
	'客户单击确定按钮时触发本过程
	Public Sub Enter_Click(Sender As Object,E As EventArgs)
		Dim dus As New DataUsers()
		If dus.IsExist(txtUserId.Text)=True Then
			lblMessage.Text="该用户名已经存在，请重新输入"
		Elseif txtValidate.Text <> Session("numValidate").ToString() Then
			lblMessage.Text="验证码不正确，请重新输入"
		Else
			Dim strUserId,strRoleId,strUserPWD,strUserName,strSex,strTel,strEmail,strQQ,strIntro As String
			Dim dtmSubmitDate As Date
			strUserId=txtUserId.Text
			strRoleId="N"				'表示普通用户
			strUserPWD=txtUserPWD.Text
			strUserName=txtUserName.Text
			strSex=radlSex.SelectedItem.Value
			strEmail=txtEmail.Text
			strQQ=txtQQ.Text
			strIntro=txtIntro.Text
			dtmSubmitDate=Now()
			strTel=txtTel.Text
			'调用InsertUser方法插入记录
			If dus.InsertUser(strUserId,strRoleId,strUserPWD,strUserName,strSex, strTel,strEmail,strQQ,strIntro, dtmSubmitDate)=True Then
				Response.Redirect("register3.aspx")	
			Else
				lblmessage.Text="对不起，该用户名已经存在，请重新输入"
			End If
		End If
	End Sub

	'检测用户名是否已经存在
	Public Sub IsExist_Click(Sender As Object,E As EventArgs)
		Dim dus As New DataUsers()
		If dus.IsExist(txtUserId.Text)=True Then
			lblMessage.Text="该用户已经存在，请重新输入."
		Else
			lblMessage.Text="该用户不存在，可以使用."
		End If
	End Sub


End Class