ASP网页计数器源代码

1、在网站目录下新建一个文本：txtcounter.txt 在文本填写1或其他识字
2、新建一asp文件：count.asp，加入以下代码：
<% 
CountFile=Server.MapPath("txtcounter.txt") 
Set FileObject=Server.CreateObject("Scripting.FileSystemObject") 
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) 
counter=Out.ReadLine 
Out.Close 
SET FileObject=Server.CreateObject("Scripting.FileSystemObject") 
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) 
Application.lock 
counter= counter + 1 
Out.WriteLine(counter) 
Application.unlock 
Response.Write"document.write("&counter&")"
'为了在页面正确显示计数器的值，调用VBScript函数Document.write
Out.Close
%> 
3、在需要计数的网页加入：总访问<script language="JavaScript" src="count.asp">次
现在看网页就是可以计数了！
 
与页面分离的图象计数器
　　人们的追求是永无止境的，也许你需要一个更有个性的图形数字计数器，而不是简单的文本数字计数器。没问题，现在我们就来看看用ASP是怎样来实现图形计数器功能的。要实现图形计数器，关键点在于如何实现把计数器文件中的数据值转变为对应的图象表示。因为十进制数有0,1,2,3,4,5,6,7,8,9共十个不同的数数字，我们需要有十个对应的图象，且图象的文件名字要与显示的数字对应起来，比如0对应的数字图象的文件名字就是0.gif，1对应的就是1.gif，...(图象自己可以用Photoshop等工具制作，或者从网络上下载)。这里我们要用到VBScript函数Len(string | varname)、Mid(string,start[,length])。由Len(counter)可得到计数器值的位数,由Mid(counter,i,1)可以得到计数器值的第i位上的数字，我们可利用这个值来调用相应的数字图象。用For循环语句,我们不难得出计数器值各个位上的数字并转化成对应的数字图象，这样，我们就能实现文本数值到图象数字的转变。下面就是一个用ASP编写的图象计数器实例，因为大部分代码前面都分析过，所以代码中只注释了部分语句。
与页面分离的图象计数器imgcounter.asp代码:
<% @language="VBScript"%>
<% 
dim images(20)
'定义一数组，用来存放显示每一位数字图象的语句
CountFil