<%  
  '自编ASP图形化计数器  V1.1 
  '用于网页浏览统计,免费使用，自由拷贝！ 
  
  dim  vistors 
  '获取计数文件counter.dat的地址 
  countfile=server.mappath("counter.dat") 
  '创建filesystemobject对象实例fs 
  set  fs=server.createobject("scripting.filesystemobject") 
  '以读方式打开文件，其中1为读方式 
  set  thisfile=fs.opentextfile(countfile,1,FALSE,FALSE) 
  '读取计数文件的内容 
  visitors=thisfile.readline 
  '关闭文件 
  thisfile.close 
  
  set  fs=server.createobject("scripting.filesystemobject") 
  '以覆盖方式(TRUE)、以ASCII格式(FALSE)创建文件 
  set  thisfile=fs.createtextfile(countfile,TRUE,FALSE) 
  
  '计数器的关键处： 
  '增加了变量connected，用于判断访问者是否为新的连接者 
  '此举可防止同一用户在同一次浏览中，由于多次按浏览器的“刷新”按钮， 
  '从而使计数器值不断升高的现象发生 
  
  if  IsEmpty(session("connected"))  then 
     application.lock 
     '禁止其它用户更改计数器的值 
     visitors=visitors+1 
     '计数器值加1 
     thisfile.writeline(visitors) 
     '将结果写入文件 
     application.unlock 
     '取消锁定，允许用户更改计数器的值 
  else 
     application.lock 
     visitors=visitors 
     thisfile.writeline(visitors) 
     application.unlock 
  end  if 
  
  session("connected")=TRUE 
  '设定来访者为已连接者(TRUE)，此时再按“刷新”按钮计数器值不会变化。 
  
  countlen=len(visitors) 
  '获得计数器值的长度（即数值的位数） 
  
  '如果您不想使用图形，可用如下内容代替for/next循环 
  '文本计数器：  response.write  "document.write("&visitors&");" 
  
  '逐位显示图形化数字 
  for  i=1  to  countlen 
      response.write  "document.write('<img  src="/UploadFiles/2021-04-02/&">

步骤3：将counter.dat、mycount.asp文件放在同一目录下(也可分开存放，但此时需指定文件路径)，并在该目录下建立images目录，存放图形化的数字文件，要求数字0对应0.gif，数字1对应1.gif，以此类推（展现你个性的机会来了，你可以将数字做得非常Cool）。    

步骤4：至此，大功即将告成。你只要在网页中使用以下格式调用计数器即可：    




 <script  language="javascript"  src="/UploadFiles/2021-04-02/mycount.asp">

注意：  （1）如果你采用不同的目录名、文件名，请作相应修改；  

               （2）计数器程序采用ASP编程，请在网站上试验或在个人服务器PWS调试；
只要以上四大步骤大家认真仔细研究，相信大家一定会制作出一个具有自己风格特点的asp网页设计流量统计。