ASP.NET(vb.net) Application.Lock() - Global.asax

Author: admin | Posted: 13-06-2010 | Category: ASP.NET(vb.net) & Global.asax

ASP.NET(vb.net) Application.Lock() - Global.asax - Application.Lock() : The Lock method blocks other clients from modifying the variables stored in the Application object, ensuring that only one client at a time can alter or access the Application variables. If you do not call the Application.Unlock method explicitly, the server unlocks the locked Application object when the .asp file ends or times out.

ShotDev Focus:
- ASP.NET(vb.net) Application.Lock() - Global.asax

Example

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("OnlineNow") = 0
End Sub

Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs on application shutdown
Application("OnlineNow") = Nothing
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
Application.Lock()
Application("OnlineNow") = Application("OnlineNow") + 1
Application.UnLock()
End Sub

Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
Application.Lock()
Application("OnlineNow") = Application("OnlineNow") - 1
Application.UnLock()
End Sub

</script>

AspNetGlobal.aspx

<%@ Page Language="VB" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Me.lblText.Text = Application("OnlineNow") & " Online"
End Sub
</script>
<html>
<head>
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label id="lblText" runat="server"></asp:Label><br />
</form>
</body>
</html>

Screenshot

.
.
.
Download this script.