home.aspx.vb

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

Imports System
Imports System.Data

Partial Class home
    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 ds As New DataSet
    Dim sesid As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        sesid = Request.QueryString("sid")
        Dim ScreenName As String
        ScreenName = ConfAct.GetAccountCN(Session.Item("user"))
        Label3.Text = ScreenName

        If Not IsPostBack = True Then
            Try
                BindGrid()
            Catch ex As Exception
                ex.Message.ToString()
            End Try
        End If
    End Sub

    Sub BindGrid()
        Try
            getConf()
            GridView1.DataSource = ds.Tables(0).DefaultView
            GridView1.DataBind()
        Catch ex As Exception

        End Try
    End Sub

    Sub getConf()

        Try
            Dim SB As New Text.StringBuilder
            Dim sw As New IO.StringWriter(SB)
            Dim mywriter As System.Xml.XmlTextWriter
            Dim myxml As New IO.MemoryStream
            Dim filename As String = Server.MapPath(".") & "\" & Session.Item("user") & ".xml"
            If IO.File.Exists(filename) Then IO.File.Delete(filename)
            Dim conference As String() = ConfConf.GetConferences
            Dim n As Integer
            mywriter = New System.Xml.XmlTextWriter(filename, Nothing)
            mywriter.Indentation = 4
            mywriter.IndentChar = " "
            mywriter.Formatting = Xml.Formatting.Indented
            mywriter.WriteStartDocument()
            mywriter.WriteStartElement("Conferences")
            If ConfConf.GetConferences.Length = 0 Then
                mywriter.WriteStartElement("Conference")
                mywriter.WriteElementString("Topic", "")
                mywriter.WriteElementString("URL", "")
                mywriter.WriteElementString("Password", "images/w_empty.gif")
                mywriter.WriteElementString("Audio", "images/w_empty.gif")
                mywriter.WriteElementString("Video", "images/w_empty.gif")
                mywriter.WriteElementString("Scheduled", "images/w_empty.gif")
                mywriter.WriteElementString("Public", "images/w_empty.gif")
                mywriter.WriteElementString("Sharing", "images/w_empty.gif")
                mywriter.WriteElementString("AllUsers", "")
                mywriter.WriteElementString("Users", "") ')
                mywriter.WriteEndElement()
            End If

            For n = 0 To ConfConf.GetConferences.Length - 1
                mywriter.WriteStartElement("Conference")
                mywriter.WriteElementString("Topic", ConfConf.GetCN(conference(n)))
                mywriter.WriteElementString("URL", conference(n))
                'mywriter.WriteElementString("CURL", "http://192.168.1.149/join.html?dn=" & conference(n) & "&password=" & ConfConf.GetPassword(conference(n)) & "&sid=" & sesid)
                mywriter.WriteElementString("CURL", "http://64.40.106.175/join.html?dn=" & conference(n) & "&password=" & ConfConf.GetPassword(conference(n)) & "&sid=" & sesid)
                Dim schedule As String = ConfConf.GetOwner(conference(n))
                If schedule = "" Then
                    Dim fg As Boolean = ConfConf.SetOwner(conference(n), Session("user"))
                    fg = ConfConf.MakeHost(conference(n), Session("user"))
                End If
                If ConfConf.GetPassword(conference(n)).Length > 0 Then
                    mywriter.WriteElementString("Password", "images/w_password_required.gif")
                Else
                    mywriter.WriteElementString("Password", "images/w_empty.gif")
                End If
                If ConfConf.GetAudio(conference(n)) = True Then
                    mywriter.WriteElementString("Audio", "images/w_audio_enabled.gif")
                Else
                    mywriter.WriteElementString("Audio", "images/w_empty.gif")
                End If
                If ConfConf.GetVideo(conference(n)) = True Then
                    mywriter.WriteElementString("Video", "images/w_video_enabled.gif")
                Else
                    mywriter.WriteElementString("Video", "images/w_empty.gif")
                End If

                If ConfConf.GetScheduled(conference(n)) = True Then
                    mywriter.WriteElementString("Scheduled", "images/w_webinar_icon.gif")
                Else
                    mywriter.WriteElementString("Scheduled", "images/w_empty.gif")
                End If

                If ConfConf.GetPublic(conference(n)) = True Then
                    mywriter.WriteElementString("Public", "images/w_public_access.gif")
                Else
                    mywriter.WriteElementString("Public", "images/w_empty.gif")
                End If
                If ConfConf.GetSharing(conference(n)) = True Then
                    mywriter.WriteElementString("Sharing", "images/w_conference_icon.gif")
                Else
                    mywriter.WriteElementString("Sharing", "images/w_empty.gif")
                End If

                mywriter.WriteElementString("AllUsers", ConfConf.GetEntry(conference(n)))
                mywriter.WriteElementString("Users", ConfConf.GetUsersCount(conference(n))) ')
                mywriter.WriteEndElement()
            Next

            mywriter.WriteEndElement()
            mywriter.WriteEndDocument()
            mywriter.Flush()
            mywriter.Close()
            'Dim reader As New Xml.XmlTextReader(sw)
            ds.ReadXml(filename)
        Catch EX As Exception
        End Try
    End Sub

    Protected Sub cmdCreateConference_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCreateConference.Click
        Response.Redirect("newconference.aspx?sid=" & sesid)
    End Sub
    Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.RowCommand
        Try
            If e.CommandName = "delconf" Then
                Dim hyper As HyperLink
                hyper = GridView1.Rows(e.CommandArgument).Cells(1).Controls(0)
                Dim dn As String = Split(hyper.NavigateUrl, "=")(1)
                ConfConf.DeleteConference(dn)
                BindGrid()
            End If
        Catch EX As Exception
        End Try
    End Sub

    Protected Sub cmdQuickConference_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdQuickConference.Click
        Dim MeetingID As String
        Dim RN As New Random

        MeetingID = RN.Next(100000000, 900000000)
        ConfConf.SetCN(MeetingID, txttopic.Text)
        ConfConf.SetPassword(MeetingID, txtpassword.Text)
        ConfConf.SetPublic(MeetingID, False)
        ConfConf.SetAudio(MeetingID, True)
        ConfConf.SetVideo(MeetingID, True)
        ConfConf.SetSharing(MeetingID, True)
        'ConfConf.SetAudioCodec(txtid.Text, qualityList.SelectedIndex)
        'ConfConf.SetVideoCodec(txtid.Text, codecList.SelectedIndex)
        ConfConf.AddConference(MeetingID, txttopic.Text, txtpassword.Text)
        Dim YN As Boolean = ConfConf.SetOwner(MeetingID, Session("user"))
        YN = ConfConf.MakeHost(MeetingID, Session("user"))
        ConfConf.SetScheduled(MeetingID, False)
        ConfSes.AllowAutoRedirect = True
        Dim chatscn As String = ConfAct.GetAccountCN(Session("user"))
        ConfConf.AddChat(MeetingID, Session("user"), chatscn, chatscn, True, True, True, "")
        'Response.Redirect("http://192.168.1.149/join.html?dn=" & MeetingID & "&password=" & txtpassword.Text & "&sid=" & sesid)
        Response.Redirect("http://64.40.106.175/join.html?dn=" & MeetingID & "&password=" & txtpassword.Text & "&sid=" & sesid)
    End Sub

End Class