三、Application.Unlock
与Lock方法相反，Unlock方法是允许其他用户修改 Application 对象的属性。可以看出在上面的例子中，Unlock方法解除对象的锁定，使得下一个客户端能够增加 NumVisits 的值。
当然需要注意的是：记数要确保服务器不被重启，因为所以的访问是数值是建立在页面之上的，并未进行保存成文件或保存到数据库这样的处理。
一般当服务器重新启动就会触发Application的事件了。
四、Application_OnEnd
Application_OnEnd 事件在应用程序退出时于 Session_OnEnd 事件之后发生，当然Application_OnEnd 事件的处理过程也必须写在 Global.asa 文件之中。
比如上面的程序中，若服务器关机必然会触发Application_OnEnd事件，那么该事件就可以进行数据保存的工作，已使得下次数据的续沿。
当然Application_OnEnd 事件在应用程序退出时于Session_OnEnd 事件之后发生
<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> ............. Sub Application_OnEnd ............. End Sub ............. </SCRIPT> |
五、Application_OnStart
Application_OnStart 事件在首次创建新的会话( 即 Session_OnStart 事件 )之前发生。当WEB服务器启动并允许对应用程序所包含的文件进行请求时就触发Application_OnStart事件。
<SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server> ............. Sub Application_OnStart ............. End Sub ............. </SCRIPT> |
所以现在可以将Global.asa内部的代码可以想象
<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart ..................... End Sub Sub Session_OnStart ..................... End Sub Sub Session_OnEnd ..................... End Sub Sub Application_OnEnd ..................... End Sub </SCRIPT> |
具体Global.asa是怎么一回事？且听下回分解啊：）
5大对象基本掌握了，来个例题练习下
<%@ LANGUAGE = VBScript %> <% Option Explicit %> <Html> <title>猜数字游戏</title> <body> <% '设置页面不使用缓存 Response.Expires = 0 %> <% dim GuessNum on error resume next GuessNum=Request("Number") if GuessNum="" then GuessNum="0" End if GuessNum=Clng(GuessNum) Session("Count")=Session("Count") + 1 if Session("Count") < 10 and GuessNum <> session("Number") then 内容版权声明：除非注明，否则皆为本站原创文章。 |