< SCRIPT LANGUAGE=VBScript RUNAT=Server >

Sub Application_OnStart
Application("SessionCount") = 0
End Sub

Sub Session_OnStart

Application.Lock
Application("SessionCount") = Application("SessionCount") + 1
Application.Unlock

If Application("SessionCount") > 100 Then

Application.Lock
Application("SessionCount") = 0
Application.Unlock

' Here you would put any code you need to run
' do not surround the code with < % % > tags
' For example you might run a database query that checks for expired accounts

End if

End Sub

< /SCRIPT >

下面，让我们看看一天内执行4次某任务的情况。你可以将日期和时间的值存储在一个文本文件中，并且周期性地检查它。当时间过去6个小时时，写入新的日期与时间到这个文本文件中，并且，启动你想要执行的任务。你可以改变 “6”这个数值，从而更多或者更少地执行任务。

虽然，上面的方法需要对文本文件设置读、写权限后才能正确执行，但这仍不失为一个非常聪明的解决方案！

在这个例程中，每有15个新访问者时，就检查文本文件一次。当然，你可以调整“15”的数值，或者设定每当有新访问者时，都检查文本文件一次。但这样处理，无疑会加重站点的负载，浪费服务器的资源！总之，检查的频度由你自己考虑后设定。

例子中，必须保证初次写入文本文件的日期与时间的合法性，否则，当程序首次读入一个空值时，就会发生运行错误。

比如：将 6/30/99 6:58:45 PM 初始写入文本文件的第一行。

当前，也可以加入一些代码，用来检查日期与时间的写法，并且处理出错信息。但初始写入一个合法的日期与时间数值，将会更简单一些。

global.asa的内容如下：

< SCRIPT LANGUAGE=VBScript RUNAT=Server >

Sub Application_OnStart
Application("SessionCount") = 0
End Sub

Sub Session_OnStart

Application.Lock
Application("SessionCount") = Application("SessionCount") + 1
Application.Unlock

If Application("SessionCount") > 15 Then

Application.Lock
Application("SessionCount") = 0
Application.Unlock

Set ObjMyFile = CreateObject("Scripting.FileSystemObject")
Set OpenMyFile = ObjMyFile.OpenTextFile(Server.MapPath("last-update.txt"))
MyFileValue = OpenMyFile.ReadLine
OpenMyFile.Close

If DateDiff("h",MyFileValue,NOW) > 6 Then

' Here you would put any code you need to run
' do not surround the code with < % % > tags
' For example you might run a database query that checks for expired accounts

Set WriteMyFile = ObjMyFile.CreateTextFile(Server.MapPath("last-update.txt"))
WriteMyFile.WriteLine(NOW)
WriteMyFile.Close

End if
End If

End Sub

< /SCRIPT >

请注意：还有许多更好的方法达到检查的目的，这篇文章的目的是想起到抛砖引玉的作用。

同时请记住：WEB站点的应用程序一定要设置为一个Application，这样“global.asa”文件才能起作用。许多虚拟域默认为Application，但下层的目录却不是。