Session counter and application counter (VB) : Session Variables « Sessions « ASP.NET Tutorial

Home
ASP.NET Tutorial
1.ASP.Net Instroduction
2.Language Basics
3.ASP.net Controls
4.HTML Controls
5.Page Lifecycle
6.Response
7.Collections
8.Validation
9.Development
10.File Directory
11.Sessions
12.Cookie
13.Cache
14.Custom Controls
15.Profile
16.Configuration
17.LINQ
18.ADO.net Database
19.Data Binding
20.Ajax
21.Authentication Authorization
22.I18N
23.Mobile
24.WebPart
25.XML
ASP.NET Tutorial » Sessions » Session Variables 
11.3.11.Session counter and application counter (VB)
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Chapter 8: Counter</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Label ID="lblSessionClicks" runat="server"></asp:Label><br />
        <br />
        <asp:Label ID="lblApplicationClicks" runat="server"></asp:Label><br />
        <br />
        <asp:Button ID="btnPost" runat="server" Text="Post" />&nbsp;</div>
    </form>
</body>
</html>

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.EventArgsHandles 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.EventArgsHandles 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.EventArgsHandles Me.PreRender
        Session("Count"= iSessionCount
    End Sub
End Class


File: Global.asax

<%@ 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("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
       
</script>
11.3.Session Variables
11.3.1.Using Session State
11.3.2.Retrieve the value of an item that you have stored in Session state.
11.3.3.Sorting a DataView stored in Session state.
11.3.4.Save value in text box to session and read it back (VB.net/C#)
11.3.5.Save value to session object and read them back (VB.net)
11.3.6.Store user defined object in Session (C#)
11.3.7.Setting and retrieving objects from the Session using State Service and a base page (C#)
11.3.8.Setting and retrieving objects from the Session using State Service and a base page (VB)
11.3.9.A session-aware base page
11.3.10.Session counter and application counter (C#)
11.3.11.Session counter and application counter (VB)
11.3.12.Look for Variables
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.