Asp.net ASP定时器、UpdatePanel和UpdatePanelAnimationExtender

当我使用

定时器

事件勾号触发动画更新面板刷新时，我得到以下错误：

TypeError: sender._activeElement is undefined
Sys.Extended.UI.Animation.UpdatePanelAnimationBehavior.prototype._partialUpdateBeginRequest()
 ScriptResource.axd:75
Function$createDelegate/<()
 ScriptResource.axd:47
Sys$EventHandlerList$getHandler/<()
 ScriptResource.axd:3484
Sys$WebForms$PageRequestManager$_onFormSubmit()
 ScriptResource.axd:1284
Sys$WebForms$PageRequestManager$_doPostBack()
 ScriptResource.axd:824
Function$createDelegate/<()
 ScriptResource.axd:47
Sys$UI$_Timer$_doPostback()
 ScriptResource.axd:60
Sys$UI$_Timer$_raiseTick()
 ScriptResource.axd:91
Function$createDelegate/<()

以及背后的代码：

Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Services
Imports System.Collections.Generic
Imports System.Configuration

Partial Class _Default
    Inherits System.Web.UI.Page
    Dim pagedDSr As New PagedDataSource()
    Dim totalPages As Integer
    Dim totalImages As Integer

    Public Property CurrentPage() As Integer
        Get
            Return IIf(ViewState("CurrentPage") Is Nothing, 0, CInt(ViewState("CurrentPage")))
        End Get
        Set(value As Integer)
            ViewState("CurrentPage") = value
        End Set
    End Property

    Public Property imagecount() As Integer
        Get
            Return IIf(ViewState("imagecount") Is Nothing, 0, CInt(ViewState("imagecount")))
        End Get
        Set(value As Integer)
            ViewState("imagecount") = value
        End Set
    End Property

    Public Property imageSize() As String
        Get
            Return IIf(ViewState("imageSize") Is Nothing, "", CStr(ViewState("imageSize")))
        End Get
        Set(value As String)
            ViewState("imageSize") = value
        End Set
    End Property

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack() Then
            CurrentPage = 0
            imagecount = 1
            TableCount.Text = "0"
            bindlist()
        End If
    End Sub

    Sub changelogo()
        Logo1.ImageUrl = "~/Images/" & imagesize & "/" & imagecount & ".jpg"
        If imagecount = IO.Directory.GetFiles("C:\inetpub\digsignall\Images\" & imageSize & "\", "*.jpg").Length Then
            imagecount = 1
            TableCount.Text = imagecount.ToString
        Else
            imagecount = imagecount + 1
            TableCount.Text = imagecount.ToString
        End If
    End Sub

    Sub bindlist()
        Dim strConnString As String = ConfigurationManager.ConnectionStrings("ebmsprodCS").ConnectionString
        Dim con As New SqlConnection(strConnString)

        Using conn As New SqlConnection(strConnString)
            Dim varname1 As New System.Text.StringBuilder
            varname1.Append("SELECT statement removed for space")

            Dim cmd As New SqlCommand(varname1.ToString, conn)
            cmd.CommandType = CommandType.Text
            conn.Open()
            'Dim drEvents As SqlDataReader = cmd.ExecuteReader()
            Dim eventsda = New SqlDataAdapter(cmd)
            Dim ds = New DataSet
            eventsda.Fill(ds, "events")


            If ds.Tables(0).Rows.Count <= 0 Then
                    RoomEventsList.Visible = False
                    imagesize = "fullscreen"
                    rowcount.Text = IO.Directory.GetFiles("C:\inetpub\digsignall\Images\" & imageSize & "\", "*.jpg").Length
                    changelogo()
            Else
                RoomEventsList.Visible = True
                imageSize = "top"
                changelogo()
            End If
            pagedDSr.DataSource = ds.Tables(0).DefaultView
            pagedDSr.AllowPaging = True
            pagedDSr.PageSize = 10
            pagedDSr.CurrentPageIndex = CurrentPage
            totalPages = pagedDSr.PageCount
            RoomEventsList.DataSource = pagedDSr
            RoomEventsList.DataBind()
            conn.Close()
            Label1.Text = Request.QueryString("room")
        End Using
        If pagedDSr.IsLastPage Then
            CurrentPage = 0
        Else
            CurrentPage = CurrentPage + 1
        End If
        pagenumber.Text = CurrentPage.ToString
    End Sub

    Protected Sub bindlist_tick()
        pagedDSr.CurrentPageIndex = CurrentPage
        RoomEventsList.DataSource = pagedDSr
        RoomEventsList.DataBind()
        If pagedDSr.IsLastPage Then
            CurrentPage = 0
        Else
            CurrentPage = CurrentPage + 1
        End If
        pagenumber.Text = CurrentPage.ToString
    End Sub
End Class

导入系统数据
导入System.Data.SqlClient
导入System.Web.Services
导入System.Collections.Generic
导入系统配置
部分类\u默认值
继承System.Web.UI.Page
Dim pagedDSr作为新的PagedDataSource（）
将totalPages设置为整数
Dim TotalImage为整数
公共属性CurrentPage（）为整数
得到
返回IIf（ViewState（“CurrentPage”）为Nothing，0，CInt（ViewState（“CurrentPage”））
结束
设置（值为整数）
ViewState（“CurrentPage”）=值
端集
端属性
公共属性imagecount（）为整数
得到
返回IIf（ViewState（“imagecount”）为Nothing，0，CInt（ViewState（“imagecount”））
结束
设置（值为整数）
ViewState（“imagecount”）=值
端集
端属性
作为字符串的公共属性imageSize（）
得到
返回IIf（ViewState（“imageSize”）为Nothing，“，CStr（ViewState（“imageSize”））
结束
设置（值为字符串）
ViewState（“imageSize”）=值
端集
端属性
受保护的子页加载（ByVal sender作为对象，ByVal e作为System.EventArgs）处理Me.Load
如果不是Page.IsPostBack（），则
CurrentPage=0
imagecount=1
TableCount.Text=“0”
bindlist（）
如果结束
端接头
子徽标（）
Logo1.ImageUrl=“~/Images/”&imagesize&“/”&imagecount&“.jpg”
如果imagecount=IO.Directory.GetFiles（“C:\inetpub\digsignal\Images\”&imageSize&“\”，“*.jpg”）。那么
imagecount=1
TableCount.Text=imagecount.ToString
其他的
imagecount=imagecount+1
TableCount.Text=imagecount.ToString
如果结束
端接头
子绑定列表（）
Dim strConnString As String=ConfigurationManager.ConnectionString（“ebmsprodCS”）.ConnectionString
Dim con作为新的SqlConnection（strConnString）
将conn用作新的SqlConnection（strConnString）
Dim varname1作为新System.Text.StringBuilder
varname1.Append（“为空格删除SELECT语句”）
Dim cmd作为新的SqlCommand（varname1.ToString，conn）
cmd.CommandType=CommandType.Text
康涅狄格州公开赛
'Dim drEvents As SqlDataReader=cmd.ExecuteReader（）
Dim eventsda=新的SqlDataAdapter（cmd）
Dim ds=新数据集
事件填充（ds，“事件”）
如果ds.Tables（0.Rows.Count），这真的是经典的ASP吗？我怀疑它实际上是ASP.NET。你是对的，ASP.NET…那么你能重新标记吗？您还需要发布代码和计时器/动画面板的详细信息。您如何准确地使用此事件？请提供导致此错误的代码。事实证明，这与工具包的最新版本有关，我发现15.2没有问题，任何新版本都不起作用
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Services
Imports System.Collections.Generic
Imports System.Configuration

Partial Class _Default
    Inherits System.Web.UI.Page
    Dim pagedDSr As New PagedDataSource()
    Dim totalPages As Integer
    Dim totalImages As Integer

    Public Property CurrentPage() As Integer
        Get
            Return IIf(ViewState("CurrentPage") Is Nothing, 0, CInt(ViewState("CurrentPage")))
        End Get
        Set(value As Integer)
            ViewState("CurrentPage") = value
        End Set
    End Property

    Public Property imagecount() As Integer
        Get
            Return IIf(ViewState("imagecount") Is Nothing, 0, CInt(ViewState("imagecount")))
        End Get
        Set(value As Integer)
            ViewState("imagecount") = value
        End Set
    End Property

    Public Property imageSize() As String
        Get
            Return IIf(ViewState("imageSize") Is Nothing, "", CStr(ViewState("imageSize")))
        End Get
        Set(value As String)
            ViewState("imageSize") = value
        End Set
    End Property

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack() Then
            CurrentPage = 0
            imagecount = 1
            TableCount.Text = "0"
            bindlist()
        End If
    End Sub

    Sub changelogo()
        Logo1.ImageUrl = "~/Images/" & imagesize & "/" & imagecount & ".jpg"
        If imagecount = IO.Directory.GetFiles("C:\inetpub\digsignall\Images\" & imageSize & "\", "*.jpg").Length Then
            imagecount = 1
            TableCount.Text = imagecount.ToString
        Else
            imagecount = imagecount + 1
            TableCount.Text = imagecount.ToString
        End If
    End Sub

    Sub bindlist()
        Dim strConnString As String = ConfigurationManager.ConnectionStrings("ebmsprodCS").ConnectionString
        Dim con As New SqlConnection(strConnString)

        Using conn As New SqlConnection(strConnString)
            Dim varname1 As New System.Text.StringBuilder
            varname1.Append("SELECT statement removed for space")

            Dim cmd As New SqlCommand(varname1.ToString, conn)
            cmd.CommandType = CommandType.Text
            conn.Open()
            'Dim drEvents As SqlDataReader = cmd.ExecuteReader()
            Dim eventsda = New SqlDataAdapter(cmd)
            Dim ds = New DataSet
            eventsda.Fill(ds, "events")


            If ds.Tables(0).Rows.Count <= 0 Then
                    RoomEventsList.Visible = False
                    imagesize = "fullscreen"
                    rowcount.Text = IO.Directory.GetFiles("C:\inetpub\digsignall\Images\" & imageSize & "\", "*.jpg").Length
                    changelogo()
            Else
                RoomEventsList.Visible = True
                imageSize = "top"
                changelogo()
            End If
            pagedDSr.DataSource = ds.Tables(0).DefaultView
            pagedDSr.AllowPaging = True
            pagedDSr.PageSize = 10
            pagedDSr.CurrentPageIndex = CurrentPage
            totalPages = pagedDSr.PageCount
            RoomEventsList.DataSource = pagedDSr
            RoomEventsList.DataBind()
            conn.Close()
            Label1.Text = Request.QueryString("room")
        End Using
        If pagedDSr.IsLastPage Then
            CurrentPage = 0
        Else
            CurrentPage = CurrentPage + 1
        End If
        pagenumber.Text = CurrentPage.ToString
    End Sub

    Protected Sub bindlist_tick()
        pagedDSr.CurrentPageIndex = CurrentPage
        RoomEventsList.DataSource = pagedDSr
        RoomEventsList.DataBind()
        If pagedDSr.IsLastPage Then
            CurrentPage = 0
        Else
            CurrentPage = CurrentPage + 1
        End If
        pagenumber.Text = CurrentPage.ToString
    End Sub
End Class