只有一个文件的网页计数器

1、count.asp
<%
'变量元素
Dim fsoObject    '文件系统对象
Dim tsObject    '文字系统对象
Dim filObject   '文件对象
Dim lngVisitorNumber   '保存来访者数量
Dim intDisplayDigitsLoopCount  '循环计数显示
On Error Resume Next
lngVisitorNumber = 0
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(Server.MapPath("counter.txt"))
Set tsObject = filObject.OpenAsTextStream
lngVisitorNumber = CLng(tsObject.ReadAll)
If Session("lngSessionVisitorNum") = "" Then
'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1
'Place the Visitor number in the session visitor number
Session("lngSessionVisitorNum") = lngVisitorNumber
Else
'Place the Visitor number in the session visitor number
Session("lngSessionVisitorNum") = lngVisitorNumber
End if
Set tsObject = fsoObject.CreateTextFile((Server.MapPath("counter.txt")), True)
tsObject.Write CStr(lngVisitorNumber)
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
For intDisplayDigitsLoopCount = 1 to Len(lngVisitorNumber)
Response.Write "<img src=http://www.zzsky.cn/build/content/""img/" & Mid(lngVisitorNumber, intDisplayDigitsLoopCount, 1) & ".gif"">"
Next
%>

2、说明：
(1)将上面代码复制保存为count.asp。
(2)建一个img图片文件夹,制作尺寸为15*20的gif图片（0-9数字）,将图片保存在img文件夹中（可以到这里下载）。
(3)新建一个名为counter.txt的文档（保存计数值），设初始值为001（可以任意修改)。
(4)调用方法:<!--#include file=count.asp-->（确保链接网页文件为*.asp文件）。
以上count.asp、counter.txt文件及img文件夹必须放在网站根目录下。