上次我们说到要保存计数结果的问题, 单纯依靠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
如此一来，不论任何时候，访问量都可以准确安全的保存在文本文件中了。
例3 计数器正式版
<html>
<head>
<title>计数器正式版</title>
</head>
<body>
<p align="center">您是本网站的第
<font color="blue">
<%
Sub Numberpad()
Set files=Server.CreateObject("Scripting.FileSystemObject")
Set numtxt=files.OpenTextFile(Server.MapPath("/Num.txt"))
Application("Num")=numtxt.ReadLine
numtxt.Close
Application("Num")=Application("Num")+1
Response.Write Application("Num")
Set numtxt=files.CreateTextFile(Server.MapPath("/Num.txt"),True)
numtxt.WriteLine(Application("Num"))
numtxt.Close
End Sub
Application.Lock
Numberpad
Application.UnLock
%>
</font>
位访问者</p>
</body>
</html>
2/2 首页 上一页 1 2 |
