上一讲中，我们学习了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)
%&[1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页 |
