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

站长资源 2024/11/24 佚名

2 0 1

在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.Lock
Lock方法是禁止其他用户修改Application对象的属性，以确保在同一时刻仅有一个客户可修改和存取 Application 变量。如果用户没有明确调用 Unlock 方法，则服务器将会在 .asp 文件结束或超时后即解除对 Application 对象的锁定。最简单的就是进行页面记数的例子了。

1，num.asp

<%
Application.Lock
Application("NumVisits") = Application("NumVisits") + 1
Application.Unlock
%>
你是本页的第<%=Application("NumVisits")%>位访问者

当然，若如果你需要记数的初始值那就该写个判断了。

<%
if Application("NumVisits")<9999 then
Application("NumVisits")=10000
end if
Application.Lock
Application("NumVisits") = Application("NumVisits") + 1
Application.Unlock
%>
你是本页的第<%=Application("NumVisits")%>位访问者

上面的程序，你会发现每刷新一次，都会记数累加，如按IP值访问来记数的话，则建立一个Session

2，vnum.asp

<%
if session("visitnum")="" then
Application.Lock
Application("NumVisits") = Application("NumVisits") + 1
Application.Unlock
session("visitnum")="visited"
end if
%>
你是本页的第<%=Application("NumVisits")%>位访问者

三、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

%>

<form action="guessNumber.asp">
<input type="text" name="Number">
    <input type="submit" value="提交">
</form>
<hr>
<%
end if
if GuessNum<0 or guessNum>100 then
Response.write "请输入1~100之间的整数"
elseif GuessNum=0 then
    session("Count") = 0
Randomize
    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 if

Response.write "<br>共猜了" & Session("Count") & "次"
if Session("Count")=10 then
Response.write "答案是" & Session("Number")
end if
%>
<a href="guessnumber.asp?Number=0">重新猜</a>
</body>
</html>

Test URL: http://www.cnbruce.com/test/aspcode/guessnumber.asp

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！

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

暂无评论...

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒经典版》的玩家都可以获得奖励。

更新日志

2024年11月24日

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

ASP编码优化技巧8则

ASP编程入门进阶（八）：内置对象Session

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

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

更新日志

友情链接