68 lines
2.0 KiB
Plaintext
68 lines
2.0 KiB
Plaintext
<%@ LANGUAGE = VBScript %>
|
|
<% Option Explicit %>
|
|
|
|
<!*************************
|
|
This sample is provided for educational purposes only. It is not intended to be
|
|
used in a production environment, has not been tested in a production environment,
|
|
and Microsoft will not provide technical support for it.
|
|
*************************>
|
|
|
|
<%
|
|
'Ensure that this page is not cached.
|
|
|
|
Response.Expires = 0
|
|
%>
|
|
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE>Using Application Variables</TITLE>
|
|
</HEAD>
|
|
|
|
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
|
|
|
|
<!-- Display header. -->
|
|
|
|
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
|
|
<B>Using Application Variables</B></FONT><BR>
|
|
|
|
<HR SIZE="1" COLOR="#000000">
|
|
|
|
|
|
<%
|
|
'If this is the first time any user has visited
|
|
'the page, initialize Application Value.
|
|
|
|
If (Application("AppPageCountVB") = "") Then
|
|
Application("AppPageCountVB") = 0
|
|
End If
|
|
|
|
|
|
'Increment the Application AppPageCount by one.
|
|
'Note that this AppPageCount value is being
|
|
'shared, locking must be used to prevent
|
|
'two sessions from simultaneously attempting
|
|
'to update the value. However, for a single statement you
|
|
'don't need to apply locks (it already is applied.)
|
|
|
|
'Application.Lock
|
|
Application("AppPageCountVB") = Application("AppPageCountVB") + 1
|
|
'Application.UnLock
|
|
%>
|
|
|
|
|
|
<!-- Output the Application Page Counter value. -->
|
|
<!-- Note that locking does not need to be used -->
|
|
<!-- because the value is not being changed by -->
|
|
<!-- this user session. -->
|
|
|
|
Users have visited this page
|
|
<%= Application("AppPageCountVB") %> times!
|
|
|
|
|
|
<!-- Provide a link to revisit the page. -->
|
|
|
|
<P><A HREF="Application_VBScript.asp">Click here to visit it again</A>
|
|
|
|
</BODY>
|
|
</HTML>
|