ASP — Application

Set Application Variable

<%
Application("siteName") = "My Website"
Application("visitorCount") = 0
%>

Get Application Variable

<%
Dim siteName
siteName = Application("siteName")
Response.Write(siteName)
%>

Application Counter

<%
Application.Lock
Application("visitorCount") = Application("visitorCount") + 1
Application.Unlock

Response.Write("Visitors: " & Application("visitorCount"))
%>

Application Events

<!-- Global.asa -->
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
    Application("startTime") = Now
    Application("visitorCount") = 0
End Sub

Sub Application_OnEnd
    ' Cleanup code
End Sub
</SCRIPT>

Application vs Session

Feature	Application	Session
Scope	All users	Single user
Lifetime	Until restart	Until timeout
Use case	Global data	User data

Locking

<%
Application.Lock
' Modify shared data
Application("counter") = Application("counter") + 1
Application.Unlock
%>

Mini Practice

1. Set application variables
2. Use application counter
3. Add application events
4. Use proper locking

Up Next

Continue with Server Objects — server built-in objects.