网站地图 | Sitemap | Rss
  • 您当前位置:网站首页 >> ASP技术 >> ASP利用FSO打造最简单的访问计数器
  • ASP利用FSO打造最简单的访问计数器

    来源:逍遥峡谷 发布时间:2010-10-11 浏览0条评论
    内容简介

    用FSO打开记事本counter.txt,如果不存在则新建。读取其中的数据,赋值给一个变量,如果不存在则设置初始值为零。将数值写入记事本counter.txt

    相关关键词:ASP   FSO   计数器  

    本文链接:http://www.icoa.cn/a/376.html

    设计思路:

    用一个记事本counter.txt,并在其中记录访问的次数。每次访问将里面的数字加1并保存。

    实现方法:

    用FSO打开记事本counter.txt,如果不存在则新建。读取其中的数据,赋值给一个变量,如果不存在则设置初始值为零。将数值写入记事本counter.txt

    首先新建一个counter.asp文档,输入下面的代码,单引号后面的是注释

    <%
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    File = Server.MapPath("counter.txt")
    Set txtr = fs.OpenTextFile(File,1,true)'打开只读文件file,如果不存在则新建
    counter=0'将计数器归零
    If Not txtr.atEndOfStream Then'先确定还没有到达结尾的位置
    Line = txtr.ReadLine '读取一行数据
    else
    line=0 '否则设置初始值为0
    End If
    counter=line+1 '计数加1
    set txtw = fs.opentextfile(file,2,true) '打开只写文件file
    txtw.write counter '写入计数
    response.Write("<center>您是第<b>"&counter&"</b>位访客!</center>")
    '输出计数
    %>


    在需要统计和显示计数的地方可以用include的方式引入这个文档。

    <!--#include file="counter.asp"-->


    本站测试地址:http://demo.icoa.cn/asp/counter.asp

    但是如果是html之类静态页面,则可以通过script脚本的方式来使用这个简单的计数器。

    那么Counter.asp则需要这么写了:

    <%
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    File = Server.MapPath("counter.txt")
    Set txtr = fs.OpenTextFile(File,1,true)'打开只读文件file,如果不存在则新建
    counter=0'将计数器归零
    If Not txtr.atEndOfStream Then'先确定还没有到达结尾的位置
    Line = txtr.ReadLine '读取一行数据
    else
    line=0 '否则设置初始值为0
    End If
    counter=line+1 '计数加1
    set txtw = fs.opentextfile(file,2,true) '打开只写文件file
    txtw.write counter '写入计数
    response.Write("document.write(""<center>您是第<b>"&counter&"</b>位访客!</center>"");")
    '输出计数,两个""代表输出一个"
    %>


    需要引用的html静态页里可以通过Script脚本来使用计数器:

    <script src="counter.asp"></script>


    本文链接:http://www.icoa.cn/a/376.html
    关键词: ASP   FSO   计数器  

    如果您愿意支持,欢迎请扫码打赏哦~


    上一篇:An error occurred on the server ASP出错无法显示

    下一篇:Win7 IIS7.5 设置步骤详解 成功运行ASP


    - 相关文章 -


    ACCESS数据库ASP链接代码 - 2009-07-31

    ASP利用FSO打造最简单的访问计数器 - 2010-10-11

    Win7 IIS7.5 设置步骤详解 成功运行ASP - 2010-10-03

    换行符、回车符、标点符号、特殊符号等ASP代码 - 2010-09-06

    eWebEditor编辑器在IE8/IE7下无法使用解决方法 - 2010-07-28

    用ASP程序将html代码转换为文本格式输出 - 2010-07-26

    通过在ASP中定义数组轻松输出今日周几 - 2010-07-17

    用ASP隐藏IP末位完整版 - 2010-07-10


    - 文章评论 -




    5527

    [由于政策原因,您的留言如果提交成功后,需要审核才能展示,请改天再来查看,请不要重复提交,谢谢支持!]

    - 最新评论[0条评论] -


    [>>>点击查看更多评论]

    逍遥峡谷 逍遥乱弹 张立博 爱之路 酷品优选 宝贝派

    版权所有©逍遥峡谷 - 智能中央超自然局·地球总部 | 冀ICP备06033848号
    Copyright©Intelligence Central Occult Agency (I.C.O.A)
    本局纯属虚构,如有雷同,纯属巧合
    网络违法犯罪举报