在同一虚拟目录及其子目录下的所有 .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")%>位访问者 内容版权声明：除非注明，否则皆为本站原创文章。 |