繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP讲座之三：Application对象与Session对象
- ASP
- ASP技巧：在Access数据库中重命名表
- 用ASP编程实现网络内容快速查找
- 比较ASP生成静态HTML文件的几种方法
- ASP实例：实现邮件发送普通附件和嵌入附件
- 如何用ASP实现去掉三个最高分和三个最低分
- ASP实例：Access为后台数据库的网站统计系统
- 用标签替换的方法生成静态网页
- 例程：用ASP判断文件地址是否有效
- 学ASp动态网页必备：常用的38个函数
- ASP教程：初次接触学习ASP脚本程序
- ASPJPEG水印中关于文字水印的帮助文档(中英文对照)
- ASP例子：ASP把汉字转化为拼音的函数
- ASP教程：学习ASP应用Cookies的技巧
- ASP入门：认识ASP程序所使用的几种脚本语言
- 初学者的ASP教程：常用ASP内置函数
- ASP初级教程之ASP对表单和用户输入的处理
- 学习ASP文件引用的方法
- 用ASP编写更人性化的弹出窗口程序
- 谈谈学习ASP动态网页制作技术的编程心得
- 用ASP程序实现网站在线人数统计
ASP讲座之三：Application对象与Session对象
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 22 ::
收藏到网摘: n/a
一、了解Application对象。为了提神，我们先看一个计数器的例程（你应该运行它以便于理解）：
先编辑一个wuf16.htm文件：
<html>
<body>
记录某个页面的点击数示例：<a href="wuf17.asp">wuf17.asp</a>
</body>
</html>
wuf17.asp的代码如下：
<% @ LANGUAGE = VBScript %>
<% 'wuf17.asp - 记录某一页面的访问数(计数器原理)
Option Explicit
Dim CountWeb
CountWeb = Request.ServerVariables("SCRIPT_NAME")
'这样保证每个页面都有一个唯一的变量, 避免混乱
%>
<HTML><BODY>
<%
Response.Write CountWeb & "<Br><Br>" & vbcrlf
Application.Lock '请看讲解
Application(CountWeb) = Application(CountWeb) + 1 '累加器,点击数加1
Application.UnLock
Response.Write "WEB服务器关闭重启前该页的点击总数为: " & Application(CountWeb)
%>
</BODY></HTML>
运行这个程序时，对大部分的人来说，只有一台机器，既是Web服务器，又是客户端。那么你只能想象这样一种境况了：你的这两个主页文件放在很远的Web服务器上，而如潮水般的国内外用户正通过浏览器访问它们。每个用户点击一次，Application(CountWeb) 的值就加1，而且只要存放文件wuf17.asp的服务器没有关闭，Application(CountWeb)就将一直累加下去。但是注意，如果服务器关闭后重启，则Application(CountWeb)将重新从0开始计数（我晕，我说我的页面访问数怎么老是一位数）。为了避免这种永远从零开始的计数情况，你必须要在服务器关闭之前将Application(CountWeb)的值保存起来，下次需要时再取出来，就能够顺序累计下去了，具体如何做，且听N回后分解。
接下来的问题，就是Application.Lock、UnLock是什么意思？刚才我们做了一个假设，大量的用户正在访问该页面，而每一个用户的点击都会发生Application(CountWeb)加1，想想看，这样不就乱套了（什么！想不出，那肯定是你的主页终日只有你一个人赞助），所以得有个先来后到的规则。当某一用户访问该页面，需要修改Application(CountWeb)的值时，使用Lock方法加锁，避免其他用户修改，修改完后，再解锁。
从上例中您是否已看出，Application对象提供给所有用户共享信息（Application(CountWeb)），它所面向的是所有用户（每个用户的访问都会导致计数器加1）。Application对象还有两个事件，Application_OnStart事件和Application_OnEnd事件（您可千万别晕，这只是面向对象编程语言中起步的概念），使用时语法如下：
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnEnd
‘当WEB服务器关闭时，将激活Application_OnEnd事件
‘也就是程序将执行放在这里的代码
‘因此服务器关闭前我们可以在这里将wuf17.asp中Application(CountWeb)的值
‘保存起来，如放在一个文本文件中。
End Sub
Sub Application_OnStart
‘当第一个用户浏览ASP网页时，将激活Application_OnStart事件，而以后其他用户浏览时，就不发生这一事件了
‘也就是程序将执行放在这里的代码
‘因此可在这里读出保存在文本文件中Application(CountWeb)的值。
End Sub
</SCRIPT>
下面通过一个实例来说明如何使用事件，该程序的作用是统计站点所有页面的总点击数。
文件wuf18.asp的代码（站点内其他页面文件与这个文件类似）：
<% @ LANGUAGE = VBScript %>
<% Option Explicit
‘站内所有页面文件都应包括这句<!--#include file="wuf19.asp"-->%>
<!--#include file="wuf19.asp"-->
<HTML><BODY>
在服务器关闭重启之前站点所有页面总点击数: <%= Application("CountAll") %>
</BODY></HTML>
文件wuf19.asp的代码：
<% ' wuf19.asp
Application.Lock
Application("CountAll") = Application("CountAll") + 1
Application.UnLock
%>
文件wuf18.asp与wuf19.asp放在同一目录下
评论 (0) All
