#Region "---- 在此处放置初始化页的用户代码"
Public Overrides Sub BindInitPage()
Try
Dim cls As New Cls_TB_Area
cls.find(Session("UserRight"), Session("UserLevel"))
Dim mylist As New ListItem("--全部--", "0")
DDLArea.DataSource = cls.getDataTable.DefaultView
DDLArea.DataBind()
DDLArea.Items.Insert(0, mylist)
Catch ex As E_base.ObjectNotFindException
E_base.ClassTool.Alter(Response, "请先选择区域!")
Catch ex As Exception
E_base.ClassTool.Alter(Response, "区域错误!")
End Try
Me.BindJTClientIDList(0, 0)
End Sub
#End Region
'上传文件,写ServerFileList FileRight
Private Sub PageHeader1_User_Submit(ByVal MyValue As Object) Handles PageHeader1.User_Submit
Dim clsRight As New Cls_TB_FileRight
Dim I As Integer
If TextBox1.Text.Trim = "" Then
Try
Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
Dim Pic As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
Dim fileParth As String
fileParth = Server.MapPath("~/UF/")
Dim iFile As System.Int32
Dim cls As New Cls_TB_ServerFileList
Dim fileName_SWF, fileExtension_SWF As System.String
Dim fileName_GIF, fileExtension_GIF As System.String
fileName_SWF = System.IO.Path.GetFileName(files(0).FileName)
fileExtension_SWF = System.IO.Path.GetExtension(fileName_SWF)
If fileExtension_SWF.ToLower() <> ".swf" Then
Me.RegisterStartupScript("d", "<script language='javascript'>alert('动画文件格式只能是Flash格式!');</script>")
Exit Sub
End If
fileName_GIF = System.IO.Path.GetFileName(files(1).FileName)
fileExtension_GIF = System.IO.Path.GetExtension(fileName_GIF)
If fileExtension_GIF.ToLower() <> ".gif" Then
Me.RegisterStartupScript("f", "<script language='javascript'>alert('片头文件格式只能是gif格式!');</script>")
Exit Sub
End If
Try
files(0).SaveAs(fileParth + fileName_SWF)
Catch ex As Exception
Me.RegisterStartupScript("h", "<script language='javascript'>alert('动画文件上传失败!');</script>")
Exit Sub
End Try
Try
files(1).SaveAs(fileParth + fileName_GIF)
Catch ex As Exception
Me.RegisterStartupScript("i", "<script language='javascript'>alert('片头文件上传失败!');</script>")
Exit Sub
End Try
Try
Dim query As String
Dim uh As New UrlHelper
Dim applicationRoot As String
applicationRoot = uh.GetSiteUrl()
query = "insert into TB_ServerFileList(FileName,DownLoadAddress,IsPass,State,FileLevel,ModeID,F_Title,F_Show,PicName,FileClassCode,IReqPass,IsReqCall,CreateTime) values("
query = query & "'" & fileName_SWF & "',"
query = query & "'" & applicationRoot & "/UF/" & fileName_SWF & "',"
query = query & Me.rblIsPass.SelectedValue & ","
query = query & "0,"
query = query & "0,"
query = query & "2,"
query = query & "'" & Me.txtF_Title.Text.Trim & "',"
query = query & "' ',"
'--
query = query & "'" & fileName_GIF & "',"
query = query & "'0',"
query = query & "0,"
query = query & "0,"
query = query & "getdate()) "
clsRight.ExcuteSql(query)
Me.RegisterStartupScript("p", "<script language='javascript'>alert('文件上传成功!');</script>")
Catch ex As Exception
End Try
Catch Ex As System.Exception
End Try
Exit Sub
Else
Dim SelectClientValue As New ArrayList
Dim SelectClient As New ArrayList
SelectClientValue = ViewState("SelectClientValue")
SelectClient = ViewState("SelectClient")
For I = 0 To SelectClientValue.Count - 1
If clsRight.check(SelectClientValue(I), ddlLocationID.SelectedValue) Then
Me.RegisterStartupScript("a", "<script language='javascript'>alert('设备 " & SelectClient(I) & " 在位置 " & ddlLocationID.SelectedItem.Text & " 已有文件存在不能上传,请修改后重试!');</script>")
Exit Sub
End If
Next
If (ddlLocationID.SelectedValue = -1) Then
Me.RegisterStartupScript("a", "<script language='javascript'>alert('请选择播放位置!');</script>")
Exit Sub
End If
Try
Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
Dim Pic As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
Dim fileParth As String
fileParth = Server.MapPath("~/UF/")
Dim iFile As System.Int32
Dim cls As New Cls_TB_ServerFileList
Dim fileName_SWF, fileExtension_SWF As System.String
Dim fileName_GIF, fileExtension_GIF As System.String
fileName_SWF = System.IO.Path.GetFileName(files(0).FileName)
fileExtension_SWF = System.IO.Path.GetExtension(fileName_SWF)
If fileExtension_SWF.ToLower() <> ".swf" Then
Me.RegisterStartupScript("d", "<script language='javascript'>alert('动画文件格式只能是Flash格式!');</script>")
Exit Sub
End If
fileName_GIF = System.IO.Path.GetFileName(files(1).FileName)
fileExtension_GIF = System.IO.Path.GetExtension(fileName_GIF)
If fileExtension_GIF.ToLower() <> ".gif" Then
Me.RegisterStartupScript("f", "<script language='javascript'>alert('片头文件格式只能是gif格式!');</script>")
Exit Sub
End If
Try
files(0).SaveAs(fileParth + fileName_SWF)
Catch ex As Exception
Me.RegisterStartupScript("h", "<script language='javascript'>alert('动画文件上传失败!');</script>")
Exit Sub
End Try
Try
files(1).SaveAs(fileParth + fileName_GIF)
Catch ex As Exception
Me.RegisterStartupScript("i", "<script language='javascript'>alert('片头文件上传失败!');</script>")
Exit Sub
End Try
Try
Dim SqlList As New ArrayList
Dim query As String
Dim uh As New UrlHelper
Dim applicationRoot As String
applicationRoot = uh.GetSiteUrl()
query = "insert into TB_ServerFileList(FileName,DownLoadAddress,IsPass,State,FileLevel,ModeID,F_Title,F_Show,PicName,FileClassCode,IReqPass,IsReqCall,CreateTime) values("
query = query & "'" & fileName_SWF & "',"
query = query & "'" & applicationRoot & "/UF/" & fileName_SWF & "',"
query = query & Me.rblIsPass.SelectedValue & ","
query = query & "0,"
query = query & "0,"
query = query & "2,"
query = query & "'" & Me.txtF_Title.Text.Trim & "',"
query = query & "' ',"
'--
query = query & "'" & fileName_GIF & "',"
query = query & "'0',"
query = query & "0,"
query = query & "0,"
query = query & "getdate()) select @@identity as 'ID' "
SqlList.Add(query)
For I = 0 To SelectClientValue.Count - 1
SqlList.Add("insert into TB_FileRight(filecode,clientid,LocationID) values('replaced','" & SelectClientValue(I) & "','" & ddlLocationID.SelectedValue & "')")
Next
clsRight.ExcutePC(SqlList)
Me.RegisterStartupScript("p", "<script language='javascript'>alert('文件上传成功!');</script>")
Catch ex As Exception
End Try
Catch Ex As System.Exception
End Try
End If
End Sub
#Region "---区域,服务厅 ,设备"
Private Sub DDLArea_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DDLArea.SelectedIndexChanged
Dim cls As New Cls_TB_A_Service
Try
If Me.DDLArea.SelectedValue <> "" Then
cls.findA(Me.DDLArea.SelectedValue, Session("UserRight"), Session("UserLevel"))
Else
cls.find(Session("UserRight"), Session("UserLevel"))
End If
Catch ex As Exception
Finally
DdlServiceRoom.DataSource = cls.getDataTable.DefaultView
DdlServiceRoom.DataBind()
DdlServiceRoom.Items.Insert(0, New ListItem("--全部--", "0"))
cls = Nothing
Me.BindJTClientIDList(Me.DDLArea.SelectedValue, 0)
End Try
End Sub
Private Sub DdlServiceRoom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DdlServiceRoom.SelectedIndexChanged
Me.BindJTClientIDList(Me.DDLArea.SelectedValue, DdlServiceRoom.SelectedValue)
End Sub
'显示选定的设备名称
Private Sub cblJTClinetID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cblJTClinetID.SelectedIndexChanged
Dim s As String
Dim i As Int32
Dim J As Integer
Dim SelectClient As New ArrayList
Dim SelectClientValue As New ArrayList
If TextBox1.Text <> "" Then
SelectClient = ViewState("SelectClient")
SelectClientValue = ViewState("SelectClientValue")
End If
For i = 0 To Me.cblJTClinetID.Items.Count - 1
Dim T_Client As String
Dim T_Client_Value As String
T_Client = cblJTClinetID.Items(i).Text
T_Client_Value = cblJTClinetID.Items(i).Value
If cblJTClinetID.Items(i).Selected Then
' 列出选定的项
For J = 0 To SelectClient.Count - 1
If T_Client = SelectClient(J) Then
Exit For
End If
Next
If J > SelectClient.Count - 1 Then
SelectClient.Add(T_Client)
SelectClientValue.Add(T_Client_Value)
End If
Else
For J = 0 To SelectClient.Count - 1
If T_Client = SelectClient(J) Then
SelectClient.Remove(T_Client)
SelectClientValue.Remove(T_Client_Value)
Exit For
End If
Next
End If
Next
TextBox1.Text = ""
For i = 0 To SelectClient.Count - 1
TextBox1.Text &= SelectClient(i) & " "
Next
ViewState("SelectClient") = SelectClient
ViewState("SelectClientValue") = SelectClientValue
End Sub
' 初始化所有集团的设备名称
Private Sub BindJTClientIDList(ByVal area As Integer, ByVal service As Integer)
Dim cls As New Cls_TB_ClinetList
Try
cls.BindAllClientID(2, area, service)
Me.cblJTClinetID.DataSource = cls.getDataTable.DefaultView
Me.cblJTClinetID.DataBind()
Dim SelectClientValue As New ArrayList
Dim I As Integer
Dim J As Integer
If TextBox1.Text.Trim <> "" Then
SelectClientValue = ViewState("SelectClientValue")
For I = 0 To Me.cblJTClinetID.Items.Count - 1
For J = 0 To SelectClientValue.Count - 1
If cblJTClinetID.Items(I).Value = SelectClientValue(J) Then
cblJTClinetID.Items(I).Selected() = True
End If
Next
Next
End If
Catch ex As E_base.ObjectNotFindException
cblJTClinetID.Items.Clear()
End Try
End Sub
#End Region