在ASP中实现访问人数统计，并以图片形式显示出来。

    本文只是提供最简单的程序供您参考。该代码有一定的局限性，页面每刷新一次，访问量便会加1。您可以使用session、cookies或IP等，来限制访问量的增加。

counter_file=Server.MapPath("count.txt")
'读取文件
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set txt=fs.OpenTextFile(counter_file)
onlineNum=txt.ReadLine
txt.Close
'访问量加1
if onlineNum="" or not isNumeric(onlineNum) then onlineNum=0
newonlineNum=Clng(onlineNum)+1
'写入文件
Set txt=fs.CreateTextFile(counter_file,True)
txt.WriteLine(newonlineNum)
txt.Close
'访问量图片显示
for i=1 to len(newonlineNum)
    '这里输出各位数数字对应的图片，即mid(newonlineNum,i,1)&".gif"
next

    以下是笔者搜集的0～9的数字图片：