当前页面位置: » 丰搜网 » 文档中心 » 详细内容
利用global.asa计划执行程序（转）
其实就是利用文件“global.asa”！许多asp编程新手都想知道这东西是什么？事实上，global.asa就是一个事件驱动程序，其中共包含4个事件处理过程： application_onstart、application_onend、session_onstart 和 session_onend。
当网站的一个应用程序的页面第一次被用户访问时，global.asa就被装载进内存。当应用程序（application ）启动、结束，或者会话（session）开始、结束时，你就可以加入需要执行的脚本代码。
利用一些技巧，你就可以使用global.asa文件达到计划执行任务的目的。
这里有一个例子：“跟踪网站有多少访问者；在访问量达到100时，计数器复位到0，并且执行你事先编制的代码”。当然，根据自己的需要，你可以调整访问量的上限数目100。
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") > 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，但下层的目录却不是。
最后的一点提示：在将代码写入global.asa前，请先写入一个“asp”文件中进行测试。如果测试失败，那么在global.asa中也将不能运行成功。同时，确认文本文件的路径是正确的。
