如何防止同一应用不同ID标签页的问卷数据提交时被覆盖？

问题根源 #

你遇到的问题核心在于：同一浏览器打开的多个标签页共享同一个Session会话，而你的代码用了固定的Session键"ZONE_ID"存储问卷答案。当第二个标签页修改该Session键的值时，会直接覆盖第一个标签页存入的数据，最终提交时只能读取到最后一次写入的内容。

可行解决方案 #

方案1：用问卷ID作为Session键的一部分（推荐） #

既然每个问卷都有独立的URL ID，我们可以把这个ID与Session键绑定，让不同问卷的答案存入Session的独立项中，彻底避免互相覆盖。

代码修改步骤：

1. 先在页面中获取当前问卷的URL ID（假设URL参数名为surveyId，请根据实际参数名调整）：

Private _currentSurveyId As String

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    If Not IsPostBack Then
        _currentSurveyId = Request.QueryString("surveyId")
    End If
End Sub

2. 调整GlobalSessionVariables类，支持根据问卷ID生成唯一Session键：

Public Class GlobalSessionVariables
    ' 根据问卷ID生成唯一的Session键
    Private Function GetUniqueZoneIdKey(surveyId As String) As String
        Return $"ZONE_ID_{surveyId}"
    End Function

    ' 带问卷ID参数的属性
    Public Property ZONE_ID(surveyId As String) As Integer
        Get
            Dim key = GetUniqueZoneIdKey(surveyId)
            If HttpContext.Current.Session(key) IsNot Nothing Then
                Return CInt(HttpContext.Current.Session(key))
            End If
            Return 0 ' 可根据业务需求调整默认值
        End Get
        Set(ByVal value As Integer)
            Dim key = GetUniqueZoneIdKey(surveyId)
            HttpContext.Current.Session(key) = value
        End Set
    End Property
End Class

3. 修改页面按钮事件，绑定当前问卷ID存取Session数据：

Private _GlobalSessionVariables As New GlobalSessionVariables

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
    Try
        Page.Validate()
        If Page.IsValid Then
            ' 用当前问卷ID存入独立的Session项
            _GlobalSessionVariables.ZONE_ID(_currentSurveyId) = CInt(txtAnswer1.Text)
        End If
    Catch ex As Exception           
    End Try
End Sub

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    Try
        Page.Validate()
        If Page.IsValid Then
            ' 用当前问卷ID读取对应的Session值
            BO_Survey.Insert(_GlobalSessionVariables.ZONE_ID(_currentSurveyId))
            ' 提交完成后可清理该问卷的Session数据，避免冗余
            HttpContext.Current.Session(_GlobalSessionVariables.GetUniqueZoneIdKey(_currentSurveyId)) = Nothing
        End If
    Catch ex As Exception           
    End Try
End Sub

方案2：暂存数据到页面ViewState/隐藏字段（无需依赖Session） #

如果问卷是单页提交的场景，也可以把答案直接存在页面的ViewState或隐藏字段中，每个标签页的页面数据完全独立，不会互相干扰。

ViewState示例：

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
    Try
        Page.Validate()
        If Page.IsValid Then
            ViewState("ZoneId") = CInt(txtAnswer1.Text)
        End If
    Catch ex As Exception           
    End Try
End Sub

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    Try
        Page.Validate()
        If Page.IsValid AndAlso ViewState("ZoneId") IsNot Nothing Then
            BO_Survey.Insert(CInt(ViewState("ZoneId")))
        End If
    Catch ex As Exception           
    End Try
End Sub

隐藏字段示例：

先在页面添加隐藏控件：

<asp:HiddenField ID="hdnZoneId" runat="server" />

再修改按钮事件：

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
    Try
        Page.Validate()
        If Page.IsValid Then
            hdnZoneId.Value = txtAnswer1.Text
        End If
    Catch ex As Exception           
    End Try
End Sub

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    Try
        Page.Validate()
        If Page.IsValid AndAlso Not String.IsNullOrEmpty(hdnZoneId.Value) Then
            BO_Survey.Insert(CInt(hdnZoneId.Value))
        End If
    Catch ex As Exception           
    End Try
End Sub

注意事项 #

• Session默认基于浏览器会话，同一浏览器的所有标签页共享Session，必须通过唯一标识（如问卷ID）区分不同问卷的数据。
• 使用ViewState时需注意：频繁回传或数据量大时会增加页面体积；ViewState默认加密存储，适合小型数据的临时存储。

内容的提问来源于stack exchange，提问作者Ann