网站统计代码、计数器,PHP和ASP_网络编程_奇迪科技(深圳)有限公司(www.qvdv.net)

欢迎来到奇迪科技(深圳)有限公司,超值服务提供卓越产品!

网络编程

网站统计代码、计数器,PHP和ASP

作者:qvdv 来源: 更新时间:2014-08-10
ASP的简单计数器代码:

首先新建一个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”–>

如果是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>

ASP的简单计数器代码这样就算完成了。


本文版权所有,转载须注明:来源  https://www.qvdv.net/qvdv-oop-512.html