提供对会话对象的强类型访问

提供对会话对象的强类型访问的最佳方法是什么?我计划打开Option Strict,这会导致编译器抱怨我的懒惰编程技术直接访问会话对象:

Dim blah As Integer = Session("Blah")

我最初的想法是创建一个类,它包装会话并为会话中存储的信息提供强类型属性。但是,我不能决定类应该是单例的,还是在每次使用时实例化的,或者代码应该驻留在哪里(即在Web项目或类库中)。

在我的班级图书馆里,我倾向于一个单身汉,但我不知道这是否是最好的解决办法,或者我是否错过了任何其他的可能性。

建议的解决方案:

Public Class SessionAccess
    Public Shared Property Blah(ByVal session As HttpSessionState) As Integer
        Get
            Return Convert.ToInt32(session("Blah"))
        End Get
        Set(ByVal value As Integer)
            session("Blah") = value
        End Set
    End Property
End Class

代码落后:

Dim blah As Integer = SessionAccess.Blah(session)