Sitemap Rss
·您当前位置:网站首页 >> ASP技术 >> 阅读文章

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://www.icoa.cn/demo/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
相关文章
·ASP利用FSO打造最简单的访问计数器 2010-10-11 09:27:41
·Win7 IIS7.5 设置步骤详解 成功运行ASP 2010-10-03 17:42:36
·换行符、回车符、标点符号、特殊符号等ASP代码 2010-09-06 10:54:02
·eWebEditor编辑器在IE8/IE7下无法使用解决方法 2010-07-28 11:08:02
·用ASP程序将html代码转换为文本格式输出 2010-07-26 10:49:01
·通过在ASP中定义数组轻松输出今日周几 2010-07-17 15:11:30
·用ASP隐藏IP末位完整版 2010-07-10 10:43:47
·ASP用replace()替换字符串的用法 2011-05-21 09:11:50
文章评论

共有0条评论(点击查看)



6643

逍遥峡谷 逍遥乱弹 张立博 飓风团队 爱之路 酷品优选 宝贝派 张子涵


版权所有©逍遥峡谷 Copyright©Canyon of Airily 冀ICP备06033848号