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

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

ASP.NET(vb.net) Application.UnLock() - Global.asax - Application.UnLock() : The Unlock method enables other clients to modify the variables stored in the Application object after it has been locked using the Application.Lock method. If you do not call this method explicitly, the Web server unlocks the Application Object when the .asp file ends or times out.

ShotDev Focus:
- ASP.NET(vb.net) Application.UnLock() - 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.