如何完成asp网页设计流量统计？

 <% 
 '自编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="&"images/"&"/"&mid (visitors,i,1)&".gif></img>');" 
 next 
 
 
 '关闭文件 
 thisfile.close 
 set fs=nothing 
 %>

 <script language="javascript" src="count/mycount.asp"> 
</script>