AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > ASP编程

用ASP制作计数器

51自学网 2015-09-11 http://www.51zixue.net

 

    上次我们说到要保存计数结果的问题, 单纯依靠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>

 
 

上一篇:关于ASP智能搜索的实现  下一篇:ASP连接SQL&nbsp;Server2000数据库例程