四步完成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>