Click here to Skip to main content
Click here to Skip to main content
Technical Blog

Accessing ASP.NET Session Data Using Dynamics

, 5 May 2011 CPOL
Rate this:
Please Sign up or sign in to vote.
Access session information via a dynamic object where we use a dynamic property to specify the name of the session item.

We all know that in ASP.NET (up to and including version 3.5), accessing session data was done via an indexer on the HttpSessionState object. For example:

C#:
// C#
Session["MyInt"] = 12;
int myInt = (int)Session["MyInt"];
VB.NET:
' Visual Basic
Session("MyInt") = 12
Dim myInt as Integer = CInt(Session("MyInt"))

The System.Dynamic namespace (introduced in .NET 4.0) gives us the ability to create objects whose members (properties, methods etc.) are not specifically coded; but instead are added dynamically as and when they are required. This means we should now be able to access session information via a dynamic object where, instead of an indexer, we use a dynamic property to specify the name of the session item.

We can already see examples of where this has been done elsewhere in the framework. Take, for example, ViewData in MVC:

C#:
// C#
// MVC 1.0 and 2.0
ViewData["MyString"] = "Foo";

// MVC 3.0
ViewBag.MyString = "Foo";
VB.NET:
' Visual Basic
' MVC 1.0 and 2.0
ViewData("MyString") = "Foo"

' MVC 3.0
ViewBag.MyString = "Foo"

So how can we achieve the same with ASP.NET session data? Firstly, we need to create ourselves a dynamic object which is going to wrap the current HttpSessionState object:

// C#
public sealed class SessionBag : DynamicObject
{
    private SessionBag()
    {
    }
}
VB.NET:
' Visual Basic
Public NotInheritable Class SessionBag
    Inherits DynamicObject

    Private Sub New()

    End Sub

End Class

Note how the class inherits from DynamicObject. This is a base class for specifying dynamic behaviour at run time. Additionally, the constructor is set as private. The reason for this will become apparent later.

Next, we add a convenience property for accessing the current HttpSessionState object:

C#:
// C#
private HttpSessionStateBase Session
{
    get { return new HttpSessionStateWrapper(HttpContext.Current.Session); }
}
VB.NET:
' Visual Basic
Private ReadOnly Property Session As HttpSessionStateBase
    Get
        Return New HttpSessionStateWrapper(HttpContext.Current.Session)
    End Get
End Property

We then override the TryGetMember() and TrySetMember() methods of DynamicObject. These methods define how our dynamic object should behave when a dynamic property is accessed. In this case we want it to retrieve and add items to the HttpSessionState:

C#:
// C#
public override bool TryGetMember(GetMemberBinder binder, out object result)
{
    result = Session[binder.Name];
    return true;
}

public override bool TrySetMember(SetMemberBinder binder, object value)
{
    Session[binder.Name] = value;
    return true;
}
VB.NET:
' Visual Basic
Public Overrides Function TryGetMember(binder As _
       System.Dynamic.GetMemberBinder, ByRef result As Object) As Boolean
    result = Session(binder.Name)
    Return True
End Function

Public Overrides Function TrySetMember(binder As _
       System.Dynamic.SetMemberBinder, value As Object) As Boolean
    Session(binder.Name) = value
    Return True
End Function

Additionally, we can override the TryGetIndex() and TrySetIndex() methods so our session data is still accessible using its index position:

C#:
// C#
public override bool TryGetIndex(GetIndexBinder binder, 
       object[] indexes, out object result)
{
    int index = (int)indexes[0];
    result = Session[index];
    return result != null;
}

public override bool TrySetIndex(SetIndexBinder binder, 
       object[] indexes, object value)
{
    int index = (int)indexes[0];
    Session[index] = value;
    return true;
}
VB.NET:
' Visual Basic
Public Overrides Function TryGetIndex(binder As _
       System.Dynamic.GetIndexBinder, indexes() As Object, _
       ByRef result As Object) As Boolean
    Dim index As Integer = CInt(indexes(0))
    result = Session(index)
    Return Not result Is Nothing
End Function

Public Overrides Function TrySetIndex(binder As _
       System.Dynamic.SetIndexBinder, indexes() As Object, _
       value As Object) As Boolean
    Dim index As Integer = CInt(indexes(0))
    Session(index) = value
    Return True
End Function

Finally, we add a static variable for the current SessionBag object and a convenience property for accessing it. This ensures that only one SessionBag object is created and is why its constructor is private:

C#:
// C#
private static readonly SessionBag sessionBag;

static SessionBag()
{
    sessionBag = new SessionBag();
}

public static dynamic Current
{
    get { return sessionBag; }
}
VB.NET:
' Visual Basic
Private Shared ReadOnly _sessionBag As SessionBag

Shared Sub New()
    _sessionBag = New SessionBag()
End Sub

Public Shared ReadOnly Property Current As Object
    Get
        Return _sessionBag
    End Get
End Property

Note that in C# the return type of the Current property is of type dynamic. This tells the C# compiler to use late binding on that object and allow members to be added dynamically. The same thing is achieved in Visual Basic by setting Option Strict to Off.

The complete code for the class is as follows:

// C#
public sealed class SessionBag : DynamicObject
{
    private static readonly SessionBag sessionBag;

    static SessionBag()
    {
        sessionBag = new SessionBag();
    }

    private SessionBag()
    {
    }

    private HttpSessionStateBase Session
    {
        get { return new HttpSessionStateWrapper(HttpContext.Current.Session); }
    }

    public override bool TryGetMember(GetMemberBinder binder, out object result)
    {
        result = Session[binder.Name];
        return true;
    }

    public override bool TrySetMember(SetMemberBinder binder, object value)
    {
        Session[binder.Name] = value;
        return true;
    }

    public override bool TryGetIndex(GetIndexBinder 
           binder, object[] indexes, out object result)
    {
        int index = (int)indexes[0];
        result = Session[index];
        return result != null;
    }

    public override bool TrySetIndex(SetIndexBinder binder, 
           object[] indexes, object value)
    {
        int index = (int)indexes[0];
        Session[index] = value;
        return true;
    }

    public static dynamic Current
    {
        get { return sessionBag; }
    }
}
VB.NET:
' Visual Basic
Public NotInheritable Class SessionBag
    Inherits DynamicObject

    Private Shared ReadOnly _sessionBag As SessionBag

    Shared Sub New()
        _sessionBag = New SessionBag()
    End Sub

    Private Sub New()

    End Sub

    Private ReadOnly Property Session As HttpSessionStateBase
        Get
            Return New HttpSessionStateWrapper(HttpContext.Current.Session)
        End Get
    End Property

    Public Overrides Function TryGetMember(binder As _
           System.Dynamic.GetMemberBinder, ByRef result As Object) As Boolean
        result = Session(binder.Name)
        Return True
    End Function

    Public Overrides Function TrySetMember(binder As _
           System.Dynamic.SetMemberBinder, value As Object) As Boolean
        Session(binder.Name) = value
        Return True
    End Function

    Public Overrides Function TryGetIndex(binder As _
           System.Dynamic.GetIndexBinder, indexes() As Object, _
           ByRef result As Object) As Boolean
        Dim index As Integer = CInt(indexes(0))
        result = Session(index)
        Return Not result Is Nothing
    End Function

    Public Overrides Function TrySetIndex(binder As _
           System.Dynamic.SetIndexBinder, indexes() _
           As Object, value As Object) As Boolean
        Dim index As Integer = CInt(indexes(0))
        Session(index) = value
        Return True
    End Function

    Public Shared ReadOnly Property Current As Object
        Get
            Return _sessionBag
        End Get
    End Property

End Class

An Example

Here is an example of our SessionBag class in action. It is a simple MVC application which generates random numbers and uses the ASP.NET session to output the current number and the last number to the browser:

C#:
//C#
public class RandomController : Controller
{
    private Random random;

    public RandomController()
    {
        random = new Random();
    }

    public ActionResult Index()
    {
        SessionBag.Current.LastNumber = SessionBag.Current.CurrentNumber;
        int number = random.Next();
        SessionBag.Current.CurrentNumber = number;
        return View();
    }
}
ASP.NET:
<%@ Page Language="C#" Inherits="System.Web.Mvc.ViewPage" %>

<!DOCTYPE html>
<html>
<head runat="server">
    <title>Random</title>
</head>
<body>
    <div>
        <% using (Html.BeginForm())
           { %>
        <% if (SessionBag.Current.CurrentNumber != null)
           {%>
        Current number is
        <%: SessionBag.Current.CurrentNumber %>
        <br />
        <%} %>
        <% if (SessionBag.Current.LastNumber != null)
           {%>
        Last number was
        <%: SessionBag.Current.LastNumber %>
        <br />
        <%} %>
        <input type="submit" value="Generate" />
        <%} %>
    </div>
</body>
</html>
VB.NET:
' Visual Basic
Public Class RandomController
    Inherits System.Web.Mvc.Controller

    Private _random As Random

    Public Sub New()
        _random = New Random()
    End Sub

    Public Function Index() As ActionResult
        SessionBag.Current.LastNumber = SessionBag.Current.CurrentNumber
        Dim number As Integer = _random.Next()
        SessionBag.Current.CurrentNumber = number
        Return View()
    End Function

End Class
ASP.NET:
<%@ Page Language="VB" Inherits="System.Web.Mvc.ViewPage" %>

<!DOCTYPE html>
<html>
<head runat="server">
    <title>Random</title>
</head>
<body>
    <div>
        <%: "" %>
        <% Using Html.BeginForm()
        %>
        <% If Not SessionBag.Current.CurrentNumber Is Nothing Then
        %>
        Current number is
        <%: SessionBag.Current.CurrentNumber %>
        <br />
        <%
        End If%>
        <% If Not SessionBag.Current.LastNumber Is Nothing Then
        %>
        Last number was
        <%: SessionBag.Current.LastNumber %>
        <br />
        <%
        End If%>
        <input type="submit" value="Generate" />
        <%
        End Using%>
    </div>
</body>
</html>

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

MBigglesworth79
Web Developer
United Kingdom United Kingdom
No Biography provided
Follow on   Twitter

Comments and Discussions

 
GeneralMy vote of 5 Pinmembersam222223-Feb-13 3:34 
Thanks mate!
This is really amazing!
Thanks for sharing and will give it a try and come back with a feedback.
I have been always been wonderfing how a session variable could be accessed from a VB Class.
Best Wishes
~Salman~ (Feb 04th 2013)
GeneralMy vote of 5 PinmemberHalil ibrahim Kalkan5-May-11 5:11 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web03 | 2.8.141223.1 | Last Updated 5 May 2011
Article Copyright 2011 by MBigglesworth79
Everything else Copyright © CodeProject, 1999-2014
Layout: fixed | fluid