Using Application & Session Objects to Store Data in VB

Navigator : Home > Tutorials > Performance Tutorials > ...

Using Application & Session Objects to Store Data in VB

This tutorial shows how we can store small amounts of data in the Application and Session objects - like the number of users on the site. VB Version. We're going to use the Application and Session objects to keep count of how many users are visiting our site.
First, we build our page which is going to use variables stored in the Application and Session objects. It might look something like this:

<asp:Label ID="labelUserCount" runat="server"></asp:Label><br />
Please enter your name:
<asp:TextBox ID="textBoxName" runat="server"></asp:TextBox>
<br />
<asp:Button ID="buttonSubmit1" runat="server" OnClick="buttonSubmit1_Click" Text="Button" /><br />
<asp:Label ID="labelOutput" runat="server"></asp:Label>

</div>
</form>

If you're looking for a really good web host, try Server Intellect - we found the setup procedure and control panel, very easy to adapt to and their IT team is awesome!

The Global.asax is where we access the Application and Session objects to initialize our variables when they both start. The Application object exists as long as the website is online; the Session object exists as long as there is a user visiting the site - every unique visitor gets their own unique Session ID.
Upon Application Start, we add a variable to the object, and set it to zero. Upon Session Start, we increment that variable by one. This will give us an idea of how many current visitors there are, because each user has their own Session. And finally, upon Session End, we decrement the same variable by one - indicating that a user left the site.
The Global.asax file should look something like:

<%@ Application Language="vb" %>

<script runat="server">

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)

' Code that runs on application startup
Application.Add("userCount", 0)

End Sub

Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)

' Code that runs on application shutdown

End Sub

Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)

' Code that runs when an unhandled error occurs

End Sub

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)

' Code that runs when a new session is started
Dim userCount As Integer = Integer.Parse(Application.Get("userCount").ToString())
userCount += 1

Application.Set("userCount", userCount)

End Sub

Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)

' Code that runs when a session ends.
' Note: The Session_End event is raised only when the sessionstate mode
' is set to InProc in the Web.config file. If session mode is set to StateServer
' or SQLServer, the event is not raised.
Dim userCount As Integer = Integer.Parse(Application.Get("userCount").ToString())
userCount -= 1

Application.Set("userCount", userCount)

End Sub

</script>

The code-behind will look something like this:

If you're looking for a really good web host, try Server Intellect - we found the setup procedure and control panel, very easy to adapt to and their IT team is awesome!

Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls

Partial Public Class _Default

Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

Page.SetFocus(textBoxName)
labelUserCount.Text = "Number of users visiting: " & Application.Get("userCount").ToString()

End Sub
Protected Sub buttonSubmit1_Click(ByVal sender As Object, ByVal e As EventArgs)

labelOutput.Text = "Your name is: " & textBoxName.Text
textBoxName.Text = ""

End Sub

End Class

Looking for the C#.NET 2005 Version? Click Here!

Looking for more ASP.NET Tutorials? Click Here!

Download Project Source - Enter your Email to be emailed a link to download the Full Source Project used in this Tutorial!

100% SPAM FREE! We will never sell or rent your email address!