ASP编程入门进阶（九）：内置对象Application

在Web应用程序中，当一个用户访问该应用时，Session类型的变量可以供这个用户在该Web应用的所有页面中共享数据；如果另一个用户也同时访问该Web应用，他也拥有自己的Session变量，但两个用户之间无法通过Session变量共享信息，而Application类型的变量则可以实现站点多个用户之间在所有页面中共享信息。可以理解Session是局部变量，而Application则为全局变量。在同一虚拟目录及其子目录下的所有 .asp 文件构成了 ASP 应用程序。我们非但可以使用 Application 对象，在给定的应用程序的所有用户之间共享信息，并在服务器运行期间持久的保存数据。而且，Application 对象还有控制访问应用层数据的方法和可用于在应用程序启动和停止时触发过程的事件。一、Application("name")=Value正如Session("name")=value一样，Application对象也没有内置的属性。当然用户可以自定义属性，该属性也可称为集合。一旦分配了Application对象的属性，它就会持久地存在，直到关闭WEB服务器服务使得 Application 停止。由于存储在 Application 对象中的数值可以被应用程序的所有用户读取，所以 Application 对象的属性特别适合在应用程序的用户之间传递信息。 <%Application("MyName") = "cnbruce"%>二、Application.LockLock方法是禁止其他用户修改Application对象的属性，以确保在同一时刻仅有一个客户可修改和存取 Application 变量。如果用户没有明确调用 Unlock 方法，则服务器将会在 .asp 文件结束或超时后即解除对 Application 对象的锁定。最简单的就是进行页面记数的例子了。1，num.asp <%Application.LockApplication("NumVisits") = Application("NumVisits") + 1Application.Unlock%>你是本页的第<%=Application("NumVisits")%>位访问者当然，若如果你需要记数的初始值那就该写个判断了。 <%if Application("NumVisits")<9999 thenApplication("NumVisits")=10000end ifApplication.LockApplication("NumVisits") = Application("NumVisits") + 1Application.Unlock%>你是本页的第<%=Application("NumVisits")%>位访问者上面的程序，你会发现每刷新一次，都会记数累加，如按IP值访问来记数的话，则建立一个Session2，vnum.asp <%if session("visitnum")="" thenApplication.LockApplication("NumVisits") = Application("NumVisits") + 1Application.Unlocksession("visitnum")="visited"end if%>你是本页的第<%=Application("NumVisits")%>位访问者三、Application.Unlock与Lock方法相反，Unlock方法是允许其他用户修改 Application 对象的属性。可以看出在上面的例子中，Unlock方法解除对象的锁定，使得下一个客户端能够增加 NumVisits 的值。当然需要注意的是：记数要确保服务器不被重启，因为所以的访问是数值是建立在页面之上的，并未进行保存成文件或保存到数据库这样的处理。一般当服务器重新启动就会触发Application的事件了。四、Application_OnEndApplication_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_OnStartApplication_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 GuessNumon error resume nextGuessNum=Request("Number")if GuessNum="" then GuessNum="0" End ifGuessNum=Clng(GuessNum)Session("Count")=Session("Count") + 1if Session("Count") < 10 and GuessNum <> session("Number") then%><form action="guessNumber.asp"><input type="text" name="Number"> <input type="submit" value="提交"></form><hr><%end ifif GuessNum<0 or guessNum>100 thenResponse.write "请输入1~100之间的整数"elseif GuessNum=0 then session("Count") = 0Randomize session("Number") = Int(rnd * 100 + 1)Response.write "请输入1~100之间的整数"elseif GuessNum > session("Number") then response.write "你猜的太大了"elseif GuessNum < session("Number") then response.write "你猜的太小了"elseif GuessNum = session("Number") then response.write "祝贺你,猜对了"end ifResponse.write "<br>共猜了" & Session("Count") & "次"if Session("Count")=10 thenResponse.write "答案是" & Session("Number")end if%><a href="guessnumber.asp?Number=0">重新猜</a></body></html>Test URL: http://www.cnbruce.com/test/aspcode/guessnumber.asp

　　推荐阅读

　　图片的入库与读取的方法

图片入库复制代码代码如下: <% '取得客户端送出的数据字节大小 frmsize=Request.TotalBytes '以二进制方式读取数据 frmData=Request.BinaryRead(frmsize) '去掉>>>详细阅读

本文标题：ASP编程入门进阶（九）：内置对象Application

地址：http://www.17bianji.com/kaifa2/ASP/32876.html

1/2 1