利用global.asa计划执行程序
作者:allsky 发布时间:2008-03-05 12:49:00
其实就是利用文件“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中也将不能运行成功。同时,确认文本文件的路径是正确的。
猜你喜欢
- 层叠样式表(css)是Web设计的一种语言,CSS的下一代版本CSS3已经蓄势待发。你是否可望开始使用它们却又不知从何下手呢?虽然还有一些新
- 如何用FILESYSTEMOBJECT组件来做一个站内搜索?看看下面我们提供的例子,主要由searchpage.htm和searchresu
- 先使用 Ms Access 压缩修复,然后再去相关的表把备注类型的字段里的“索引”去掉 备注型字段为什么不能超过1950字节?是由于备注型字
- 希望对您有所帮助!推荐:[精品]ASP中常用的22个FSO文件操作函数 <%@ Language=VBScript
- 大部分时候我们讲导航,讲的是导航对内容和结构的一种表现。就是说我们在讨论导航的时候,更多的去关注怎么与之交互,以及视觉上是怎么好看。但是导航
- Union 与 Union ALL 的作用都是合并 SELECT 的查询结果集,那么它们有什么不同呢? Union 将查询到的结果集合并后进
- 看看上一篇《javascript设计模式交流(一)Singleton Pattern》本文将讨论Prototype Pattern的js实现
- 同MongoDB,Redis这样的NoSQL数据库的复制相比,MySQL复制显得相当复杂!概述首先主服务器把数据变化记录到主日志,然后从服务
- 全选、全不选、反选这几个功能我们经常会用到,如我们可以用在文章列表管理页面,也可以用在音乐播放页面,使用全选我们可以很方便的进行批量操作,如
- 尽管有很多规范URL的标准,例如RFC 3987,但实际应用中却非常混乱。本文主要介绍浏览器发送URL到服务器的一些特性,作为开发和应用的参
- 最近在用fso,读取txt文本文件的内容时碰到了“输入超出了文件尾 ”的运行错误,当txt中的内容为空的时候就出现这个问题了,查了
- Microsoft SQL Server 2005 Mobile Edition 3.0 (SQL Server Mobile) 支持两种与
- 第一种方法: 代码如下:/* 创建链接服务器 */ exec sp_addlinkedserver 'srv_lnk
- Server对象提供对服务器上访问的方法和属性.大多数方法和属性是作为实用程序的功能提供的。语法:Server.property|metho
- 1、互动流通的活跃度是社区网站的关键,产品设计者大都需要在此猛下药。facebook有利用率最高的minifeed,myspace有“好友的
- asp之家注:防止表单重复提交的方法,在客户端其实很容易实现,只要使用js让用户第一次点击提交按钮后,把提交按钮设置为disabled,这样
- 1)按笔画排序select * from Table order by nlssort(columnName,'NLS_SORT=S
- MS SQL Server 2000通过企业管理器设置数据库的定期自动备份计划。1、打开企业管理器,双击打开你的服务器2、然后点上面菜单中的
- 在 玉伯 的文章 《一道大题目,嘿嘿》 中有这样一段代码:[] == ![]也许很多同学迷惑:咦,这个如何转换呢?首先,我们了解下逻辑 NO
- 在许多用SQL Server实现的新的企业系统设计中,系统设计师需要在给数据结构和管理应用程序逻辑的定位上做出具有关键性意义的决定。SQL