Asp教程：ASP制作计数器（二）
接着上一篇文章继续吧！
例2：计数器改进版
<html>
<head>
<title>计数器改进版</title>
</head>
<body>
<p align="center">您是本网站的第
<font color="blue">
<%
Application.Lock
Application("Num")=Application("Num")+1
Response.Write Application("Num")
Application.UnLock
%>
</font>
位访问者</p>
</body>
</html>
Application.Lock是锁定对象Application, 使得除了正在访问此变量的用户(或正在运行的进程)外的其它用户(或进程)不能在此时同时访问它, 而Application.UnLock是在对Application("Num")进行修改后, 解除对Application对象的锁定。这样, 就不会出现"与时间有关的问题了", 从而达到进程互斥的目的，也就解决了上述问题。
但是, 新的问题随之迩来, Application对象是有时间限制的(默认是20分钟), 当超过限制的时间或服务器关机时, Application所记录的访问者数都会消失, 您的工作就前功尽弃了。所以，单纯依靠Application是不行的,该怎么办呢？ 请看下集……
上次我们说到要保存计数结果的问题, 单纯依靠Application是不行的, 我的做法是将计数的结果保存到一个文本文件(假设为Num.txt文件)中。具体步骤如下:
(1).在服务器上新建一个文本文件, 文件命名为"Num.txt"。打开该文件, 在其第一个字符中输入数字0, save, 这表示最初计数器的值为0;
(2).用Server.CreateObject(ASP的内建对象Server的"CreateObject函数")创建一个Scripting对象库中的FileSystemObject对象.语句为( 假设对象名为files):
Set files=Server.CreateObject("Scripting.FileSystemObject")
(3).用对象files的"OpenTextFile函数"以只读方式打开一个文本文件Num.txt, 并创建一个文本文件对象(假设此对象名为"numtxt"),。此文本文件的路径由对象Server的"MapPath函数"确定(此函数将网络中的"虚拟路径"转换成服务器的"绝对路径")。语句为:
Set numtxt=files.OpenTextFile(Server.MapPath("文件路径"))
上边语句中OpenTextFile函数可以有三个参数, 第一个参数是必选的, 其余两个未可选可不选。第一个参数为"文件路径"; 第二个参数为"打开方式", 其值可以为ForReading(或1)或ForAppending(或8), 只读方式为"ForReading", 是默认的方式; 第三个参数是当要打开的文件不存在时, 是否创建此文件, 其值可以是True(不存在则创建此文件)或False(反之)。
(4).用对象 numtxt 的"ReadLine"逐行读取出文件Number.txt中存储的数据, 并将其赋给Application("Num"), 接着用对象numtxt的"Close"关闭文件Number.txt。语句为:
Application("Num")=numtxt.ReadLine
numtxt.Close
(5).将Application("Number")加1,并将计数结果输出到客户机的浏览器上, 语句为:
Application("Num")=Application("Num")+1
Response.Write Application("Num")
(6).用对象files的CreateTextFile函数创建一个新的文件Num.txt, 将原来的那个文件给覆盖掉, 并创建一个文件对象"numtxt":
Set numtxt=files.CreateTextFile(Server.MapPath("文件路径"),True)
上述语句中CreateTextFile函数的第一个参数是"文件路径"; 第二个参数表示的是"是否覆盖原有的文件", 其值可以是True或False。
(7).用新创建的文件对象numtxt的 WriteLine 函数将Application("Num")写入新的Num.txt文件中去, 再用numtxt的"Close"将文件Number.txt关闭:
numtxt.WriteLine(Application("Num"))
numtxt.Close
如此一来，不论任何时候，访问量都可以准确安全的保存在文本文件中了。
| Word教程网 | Excel教程网 | Dreamweaver教程网 | Fireworks教程网 | PPT教程网 | FLASH教程网 | PS教程网 |
| HTML教程网 | DIV CSS教程网 | FLASH AS教程网 | ACCESS教程网 | SQL SERVER教程网 | C语言教程网 | JAVASCRIPT教程网 |
| ASP教程网 | ASP.NET教程网 | CorelDraw教程网 |
QQ：2693987339(点击联系)购买教程光盘
:
