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

2024-05-04 10:58:38

字体：大中小

来源：转载

供稿：网友

在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")%>位访问者

上一篇：ASP编码优化技巧8则

下一篇：ASP编程入门进阶（二十）：ADO组件之分页程序