newuser.aspx.vb

来自「Web Conferencing system allow you to con」· VB 代码 · 共 38 行

Imports My
Imports System
Imports WebReference

Partial Class newuser
    Inherits System.Web.UI.Page
    Dim ConfAct As New WebReference.AccountBinding
    Dim ConfSys As New WebReference.SystemBinding
    Dim ConfSes As New WebReference.SessionBinding
    Dim ConfConf As New WebReference.ConferenceBinding
    Dim confDet As New WebReference.ConferenceDetail
    Dim success As Boolean = False
    Dim Status As System.Web.Security.MembershipCreateStatus

    Protected Sub CreateUserWizard1_ContinueButtonClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles CreateUserWizard1.ContinueButtonClick
        Response.Redirect("index.aspx")
    End Sub

    Protected Sub CreateUserWizard1_CreateUserError(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.CreateUserErrorEventArgs) Handles CreateUserWizard1.CreateUserError

        If success = True Then
            e.CreateUserError = MembershipCreateStatus.Success
        Else
            e.CreateUserError = MembershipCreateStatus.DuplicateUserName
        End If
    End Sub

    Protected Sub CreateUserWizard1_CreatingUser(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.LoginCancelEventArgs) Handles CreateUserWizard1.CreatingUser

        If ConfAct.GetAccountCN(CreateUserWizard1.UserName) = Nothing Then
            success = ConfAct.AddAccount(CreateUserWizard1.UserName, CreateUserWizard1.Question, CreateUserWizard1.Password)
            If success = True Then
                Session.Add("user", CreateUserWizard1.UserName)
            End If
        End If
    End Sub

End Class