Development ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. Development
  4. Application Lock() (VB)
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="_Default" %>



    Untitled Page


    
    

      The page has been requested
      
      times!
    

    


File: Default.aspx.vb
Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Load
        If Application("PageCounter") >= 10 Then
            Application.Remove("PageCounter")
        End If
        If Application("PageCounter") Is Nothing Then
            Application("PageCounter") = 1
        Else
            Application.Lock()
            Application("PageCounter") += 1
            Application.UnLock()
        End If
        myLabel.Text = Application("PageCounter")
    End Sub
End Class