newconference.aspx.vb

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

Imports system
Imports WebReference

Partial Class newconference
    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 RN As New Random
    Dim sesid As String
    Dim userstr As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        sesid = Request.QueryString("sid")
        userstr = Request.QueryString("user")
        If Not IsPostBack = True Then
            txtid.Text = RN.Next(100000000, 999999999)
        End If
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        ConfConf.SetCN(txtid.Text, Txttopic.Text)
        ConfConf.SetPassword(txtid.Text, txtpassword.Text)
        ConfConf.SetPublic(txtid.Text, publicchk.Checked)
        ConfConf.SetAudio(txtid.Text, audiochk.Checked)
        ConfConf.SetVideo(txtid.Text, videochk.Checked)
        ConfConf.SetSharing(txtid.Text, sharingchk.Checked)
        ConfConf.SetAudioCodec(txtid.Text, qualityList.SelectedIndex)
        ConfConf.SetVideoCodec(txtid.Text, codecList.SelectedIndex)

        '= 
        ConfConf.AddConference(txtid.Text, Txttopic.Text, txtpassword.Text)
        Dim YN As Boolean = ConfConf.SetOwner(txtid.Text, Session("user"))
        YN = ConfConf.MakeHost(txtid.Text, Session("user"))
        If radioschedule.SelectedIndex = 1 Then
            ConfConf.SetScheduled(txtid.Text, True)
            Dim schedule As String
            schedule = yearlist.SelectedIndex & "-" & monlist.SelectedIndex & "-" & daylist.SelectedIndex & "T" & hourlist.SelectedIndex & ":" & minutelist.SelectedIndex & ":00:00"
            ConfConf.SetSchedule(txtid.Text, schedule)
        Else
            ConfConf.SetScheduled(txtid.Text, False)
        End If

        Dim chatscn As String = ConfAct.GetAccountCN(Session("user"))
        ConfConf.AddChat(txtid.Text, Session("user"), chatscn, chatscn, True, True, True, "")
        If userstr = "admin" Then
            Response.Redirect("admin.aspx?sid=" & sesid)
        Else
            Response.Redirect("home.aspx?sid=" & sesid)
        End If

    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        If userstr = "admin" Then
            Response.Redirect("admin.aspx?sid=" & sesid)
        Else
            Response.Redirect("home.aspx?sid=" & sesid)
        End If
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim str As String : Dim aut As Boolean
        'str = ConfSes.Authenticate(txtid.Text)
        'aut = ConfSes.AuthenticateWebServices("admin", "password")

        ConfConf.SetCN(txtid.Text, Txttopic.Text)
        ConfConf.SetPassword(txtid.Text, txtpassword.Text)
        ConfConf.SetPublic(txtid.Text, publicchk.Checked)
        ConfConf.SetAudio(txtid.Text, audiochk.Checked)
        ConfConf.SetVideo(txtid.Text, videochk.Checked)
        ConfConf.SetSharing(txtid.Text, sharingchk.Checked)
        ConfConf.SetAudioCodec(txtid.Text, qualityList.SelectedIndex)
        ConfConf.SetVideoCodec(txtid.Text, codecList.SelectedIndex)
        ConfConf.AddConference(txtid.Text, Txttopic.Text, txtpassword.Text)
        Dim YN As Boolean = ConfConf.SetOwner(txtid.Text, Session("user"))
        YN = ConfConf.MakeHost(txtid.Text, Session("user"))
        If radioschedule.SelectedIndex = 1 Then
            ConfConf.SetScheduled(txtid.Text, True)
            Dim schedule As String
            schedule = yearlist.SelectedIndex & "-" & monlist.SelectedIndex & "-" & daylist.SelectedIndex & "T" & hourlist.SelectedIndex & ":" & minutelist.SelectedIndex & ":00:00"
            ConfConf.SetSchedule(txtid.Text, schedule)
        Else
            ConfConf.SetScheduled(txtid.Text, False)
        End If

        ConfSes.AllowAutoRedirect = True
        Dim chatscn As String = ConfAct.GetAccountCN(Session("user"))
        ConfConf.AddChat(txtid.Text, Session("user"), chatscn, chatscn, True, True, True, "")
        Response.Redirect("join.html?dn=" & txtid.Text & "&password=" & txtpassword.Text & "&sid=" & sesid)
    End Sub

End Class