hostmeeting.aspx.vb

Web Conferencing system allow you to conduct the web conference around the globe. The system allow t

Partial Class HostMeeting
    Inherits System.Web.UI.Page
    Dim ConfAct As New WebReference.AccountBinding
    Dim ConfSys As New WebReference.SystemBinding
    Dim ConfSes As New WebReference.SessionBinding
    Dim userDN, passwd As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If Session("user") = Nothing Or Session("user") = "" Then
            Else
                Login1.UserName = Session("user")
            End If
        Catch ex As Exception
        End Try
    End Sub

    Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate
        e.Authenticated = GetLogin()
        Session.Add("user", Login1.UserName)
        If e.Authenticated = True Then
            Dim str As String
            ConfSes.AuthenticateWebServices(Login1.UserName, Login1.Password)
            str = ConfSes.Authenticate(Session("user"))
            If ConfAct.GetAccountAdministrator(Session("user")) = False Then
                Response.Redirect("home.aspx?sid=" & str)
            Else
                Response.Redirect("admin.aspx?sid=" & str)
            End If
        End If
    End Sub

    Function GetLogin() As Boolean
        Try
            userDN = ConfAct.GetAccountCN(Login1.UserName)
            passwd = ConfAct.GetAccountPassword(Login1.UserName)
            If User Is Nothing Then
                Return False
                Exit Function
            Else
                If passwd <> Login1.Password Then
                    Return False
                    Exit Function
                Else
                    Return True
                End If
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function

    Protected Sub Login1_LoggedIn(ByVal sender As Object, ByVal e As System.EventArgs) Handles Login1.LoggedIn
        If ConfAct.GetAccountAdministrator(Login1.UserName) = True Then
            Session.Add("UserAdmin", True)
            Response.Redirect("admin.aspx")
        Else
            Session.Add("UserAdmin", False)
        End If
    End Sub

End Class