页面刷新时将检查项目数据保存到会话中

Question

单击下一页后如何保存我所有的复选框？这是我的代码，用于在会话中保存数据。但是在下一页之后，会话数据将消失。

    Dim StrList As List(Of String) = New List(Of String)()

    For Each r As GridViewRow In GridView1.Rows
        Dim i As Integer = r.RowIndex
        Dim chk As CheckBox = CType(r.FindControl("ChkItem"), CheckBox)

        If chk.Checked = True Then
            Dim HyperLink2 As HyperLink = TryCast(GridView1.Rows(i).FindControl("HyperLink2"), HyperLink)
            StrList.Add(HyperLink2.Text)
        End If
    Next

    Dim countItemList As Integer = StrList.Count
    Dim combindedString As String = String.Join(";", StrList.ToArray())
    Session("itemsList") = combindedString
    Session("itemCount") = countItemList

这是我保存数据的代码。当我不刷新页面时它的工作。但是否则，当我进行封孔或转到下一页时。