当前位置导航:炫浪网>>网络学院>>网页制作>>ASP教程

利用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中也将不能运行成功。同时,确认文本文件的路径是正确的。
  

 
相关内容
赞助商链接