Sessions ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. Sessions
  4. Session counter and application counter (VB)
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="_Default" %>



    Chapter 8: Counter


    
    

        
        
        
        
         

    


File: Default.aspx.vb
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim iSessionCount As Integer
    Protected Sub Page_Load(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles Me.Load
        If Session("Count") Is Nothing Then
            iSessionCount = 0
        Else
            iSessionCount = CType(Session("Count"), Integer)
        End If
    End Sub
    Protected Sub btnPost_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPost.Click
        iSessionCount += 1
        lblSessionClicks.Text = "You have clicked the button " & iSessionCount & " times."
        Application.Lock()
        Dim iApplicationCount As Integer = CType(Application("HitCount"), Integer)
        iApplicationCount += 1
        Application("HitCount") = iApplicationCount
        Application.UnLock()
        lblApplicationClicks.Text = "All users have clicked the button " & iApplicationCount & " times."
    End Sub
    Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
        Session("Count") = iSessionCount
    End Sub
End Class
File: Global.asax
<%@ Application Language="VB" %>

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application startup
        Application.Add("HitCount", 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
    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.
    End Sub