VB.NET Web 应用程序 - 不需要的用户会话共享

Question

我对 vb.net 很陌生，因为我更像是一名 PHP 开发人员，但无论如何。我已经构建了一个 Web 应用程序，但我的用户似乎正在共享同一个会话，这是我不想要的，也不明白为什么。我从模块中的全局属性访问存储所有会话信息的对象，这可能是原因吗？

代码如下：

Module SiteWide
    Private mUserSession As New MyLib.User.UserSession
    Public Property gUserSession() As MyLib.User.UserSession
        Get
            If Not HttpContext.Current Is Nothing AndAlso Not HttpContext.Current.Session Is Nothing Then
                If Not HttpContext.Current.Session("user") Is Nothing Then
                    mUserSession = HttpContext.Current.Session("user")
                End If
            End If

            Return mUserSession 
        End Get
        Set(ByVal value As MyLib.User.UserSession)
            mUserSession = value

            If Not HttpContext.Current Is Nothing AndAlso Not HttpContext.Current.Session Is Nothing Then
                HttpContext.Current.Session("user") = value
            End If
        End Set
    End Property
End Module

Answer 1

为什么使用静态类（模块）作为 Session 对象的存储库？静态意味着应用范围广泛。 mUserSession 也是静态的，因此所有用户共享同一个会话。其实线条

mUserSession = value 

和

mUserSession = HttpContext.Current.Session("user")

在 getter/setter 中为所有用户覆盖它。

您可以将 Session 对象包装在您自己的类中，只是为了简化：

例如：

Public Class MySession
    ' private constructor
    Private Sub New()
    End Sub

    ' Gets the current session.
    Public Shared ReadOnly Property Current() As MySession
        Get
            Dim session As MySession = DirectCast(HttpContext.Current.Session("__MySession__"), MySession)
            If session Is Nothing Then
                session = New MySession()
                HttpContext.Current.Session("__MySession__") = session
            End If
            Return session
        End Get
    End Property

    ' **** add your session properties here, e.g like this:
    Public Property MyID() As Guid
        Get
            Return m_ID
        End Get
        Set(value As Guid)
            m_ID = value
        End Set
    End Property
    Private m_ID As Guid

    Public Property MyDate() As DateTime
        Get
            Return m_MyDate
        End Get
        Set(value As DateTime)
            m_MyDate = Value
        End Set
    End Property
    Private m_MyDate As DateTime

End Class

注意：Current-property 也是共享/静态的，但不同之处在于我返回的是 HttpContext.Current.Session，而您返回的是单个/共享实例。