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

    iCoA首席特工 逍遥峡谷 发布:2010-10-11 更新:2010-10-11 浏览0条评论
    内容简介

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

    相关关键词:ASP   FSO   计数器  

    本文链接:https://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://www.icoa.cn/demo/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>


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


    如果您愿意支持本站,欢迎点击打赏哦~



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

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


    - 相关文章 -


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

    ASP用replace()替换字符串的用法 - 2011-05-21

    用ASP内建对象轻松做网址域名自动跳转(下) - 2010-06-29

    ASP不能用 '..' 表示父目录解决办法 - 2011-05-15

    ASP字符串InStr函数用来判断是否含有某些字符串 - 2010-06-12

    用ASP判断客户端浏览器语言自动跳转代码 - 2010-06-12

    网址URL代码(urlcode)用ASP编码与解码的方法 - 2011-05-05

    用ASP内建对象轻松做网址域名自动跳转(上) - 2010-06-01


    - 文章评论 -




    9459

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

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


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

    版权所有©逍遥峡谷 - 星际中心超自然局 · 地球总部 | 逍遥峡谷 · 酷品优选
    Copyright©Interstellar Central Occult Agency (I.C.O.A)
    本局纯属虚构,如有雷同,纯属巧合

    冀公网安备13011102001055号 · 冀ICP备06033848号