1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/bin/perl /usr/bin/asp-perl
<!--#include file=header.inc-->
<%
# Locking
# --------
# reads and writes to $Application as well as $Session are
# always locked to ensure concurrency, but if you want to
# make sure that you have the only access during
# some block of commands, then use the Lock() and UnLock()
# functions
$Application->Lock();
$Application->{Count}+=1;
$Application->UnLock();
%>
We just incremented the $Application->{Count} variable by 1.
Here is the value of the $Application->{Count} variable... <br>
<b><%= sprintf("%06d", $Application->{Count}) %></b>
<p>
We reset this value to 20 every Application_OnStart. Check
out the global.asa!
<!--#include file=footer.inc-->
|
