register2.aspx.vb

《ASP.NET C#程序设计案例教程》

Public Class register2
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents lblMessage As System.Web.UI.WebControls.Label
    Protected WithEvents txtUserId As System.Web.UI.WebControls.TextBox
    Protected WithEvents IsExist As System.Web.UI.WebControls.Button
    Protected WithEvents require1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Regular1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents txtUserPWD As System.Web.UI.WebControls.TextBox
    Protected WithEvents require2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Regular2 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents txtUserPWD2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents require3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Compare1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents txtUserName As System.Web.UI.WebControls.TextBox
    Protected WithEvents require4 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Regular4 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents radlSex As System.Web.UI.WebControls.RadioButtonList
    Protected WithEvents txtTel As System.Web.UI.WebControls.TextBox
    Protected WithEvents Regular5 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents txtEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents require6 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Regular6 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents txtQQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents Regular7 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents txtIntro As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtValidate As System.Web.UI.WebControls.TextBox
    Protected WithEvents imgValidate As System.Web.UI.WebControls.Image
    Protected WithEvents Enter As System.Web.UI.WebControls.Button

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region
    '客户单击确定按钮时触发本过程
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
 
    End Sub

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

    Private Sub Enter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enter.Click
        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
End Class