精品推荐
ASP知识讲座三
日期:2004年3月9日 作者:清风网络学院 查看:[大字体
中字体 小字体 ]
Application对象与Session对象 上一讲中,我们学习了Request对象的Form数据集合、QueryString数据集合和ServerVariables数据集合。在继续下面的学习之前,建议你先轻松一下,因为接下来要介绍的Application对象相对比较抽象,刚开始理解起来恐怕会不辨东西。切记:当你找不到北时,便不要过多考虑Application对象到底是什么东西?还是一句老话,先学会使用它。 一、了解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
复制本页网址和标题,发送给你QQ/Msn的好友一起分享
上一篇:MSN Msg 6.2新特性出炉!Msg 7年底推出
下一篇:ASP知识讲座四
ASP知识讲座三 相关文章:
ASP知识讲座三 相关软件: