Asp.net会话变量混淆了

时间:2013-02-13 18:53:03

标签: asp.net vb.net session user-controls session-variables

我有一个使用UpdatePanel的用户控件。控件本质上是一个带有Button的表。当用户单击Button时,会打开一个模式弹出窗口,允许他们选择一些值。表的数据(使用Repeater作为其DataSource)存储在部分回发之间的会话变量中(当UpdatePanel触发时)作为对象列表。如果我只有一个控件,一切正常,但如果我在同一页面中多次使用此控件,会话变量中的对象列表将被合并,并且不会为每个控件分开。我认为这可能是因为会话变量名称不是唯一的,所以在我调用或使用变量的任何地方,我这样做:

Dim sessionName as string = Me.UniqueID & "_" & "userNotificationDS"
Session(sessionName) = myListOfObjects

但这并没有改变结果。谁知道我在这里做错了什么?如果您认为完整的代码会有所帮助,请告诉我。

控制服务器代码:

Protected Sub delete_click(ByVal sender As Object, ByVal e As EventArgs)
    Dim btn As LinkButton = CType(sender, LinkButton)
    Dim ds As New List(Of myObject)
    sessionName = Me.UniqueID & "_" & "myDataSet"

    ds = Session(sessionName.ToString)

    Dim id As String = btn.CommandArgument

    ds.RemoveAll(Function(userNotification) userNotification.User.NetworkID.Equals(id))

    Session(sessionName.ToString) = ds


    bindData(ds)
End Sub


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    sessionName = Me.UniqueID & "_" & "myDataSet"

    If (Session(sessionName.ToString) IsNot Nothing) Then
        bindData(Session(sessionName.ToString))
    End If
End Sub  

 Private Function buildPagedSet(ByVal userNotification As List(Of myObject)) As PagedDataSource
    Dim ps As PagedDataSource = New PagedDataSource()

    ps.DataSource = userNotification
    ps.AllowPaging = True
    ps.PageSize = numRows

    Return ps
End Function

  Public Sub bindData(ByVal commentList As List(Of myObject))
    sessionName = Me.UniqueID & "_" & "myDataSet"
    Dim currentPage As Integer = 0
    Dim ps As PagedDataSource
    Dim numLable As Label
    Dim denomLable As Label
    Dim curPage As Integer = 1
    Dim totalPage As Integer = 0

    If (Not myObject Is Nothing) Then

        Try
            ps = buildPagedSet(commentList)
            totalPage = ps.PageCount
            Session(sessionName.ToString) = commentList 
            rowTotal = ps.Count

            'for paging
            If Not (ViewState(Me.UniqueID & "_Page") Is Nothing) Then
                currentPage = Convert.ToInt32(ViewState(Me.UniqueID & "_Page"))
            Else
                ViewState(Me.UniqueID & "_Page") = 1
                currentPage = 1
            End If

            If (currentPage > 0 And currentPage <= ps.PageCount) Then
                ps.CurrentPageIndex = currentPage - 1
                Me.dataRepeateUsers.DataSource = ps
                Me.dataRepeateUsers.DataBind()

            ElseIf (currentPage >= ps.PageCount) Then
                ViewState(Me.UniqueID & "_Page") = Convert.ToInt32(ViewState(Me.UniqueID & "_Page")) - 1
            ElseIf (currentPage <= 0) Then
                ViewState(Me.UniqueID & "_Page") = Convert.ToInt32(ViewState(Me.UniqueID & "_Page")) + 1
            Else
            End If

        Catch ex As Exception
            Throw
        End Try
    Else
        Dim emptySet As New List(Of myObject)
        Me.dataRepeateUsers.DataSource = emptySet
        Me.dataRepeateUsers.DataBind()
    End If

End Sub

控件实例化如下:

Me.notifier1.bindData(notificationList)

在此示例中,当用户从notifier1删除某些内容(delete_click事件)时,该对象将从列表中删除,并将其添加回会话。如果有任何原因导致notifier2的更新面板触发,它将显示与notifier1相同的确切数据

2 个答案:

答案 0 :(得分:2)

我的预感是您将myListOfObjects存储在会话中,但重新使用该对象并修改它并使用不同的密钥再次将其存储在Session中。它可能仍然是为Session个键存储的相同对象。

您可以通过在Session中使用两个不同的键存储对象来进行简单的测试。然后使用第一个键将其拉出并修改该对象,不要将其重新分配回Session(不需要)。现在从第二个键中拉出另一个对象并查看它。它将匹配修改,因为对象是仅存储在Session中的两个不同键下的同一对象。

答案 1 :(得分:0)

如果Kelsey的预感正确,您可以将myListOfObjects的每个实例存储在Dictionary(Of String, myListOfObjectsType)中,并使用.UniqueID作为键(Of String部分)。