四步完成asp网页设计流量统计

所属分类: 网络编程 / ASP编程 阅读数: 1766
收藏 0 赞 0 分享

按照以下步骤,逐步操作,你很快就会拥有精美的图形化计数器。 
步骤1:在网站的某个目录如count下建立文本文件,如counter.dat    ,用于存放访问量。文件内容仅有一行数字,表示网站初始访问量,一般为0。
步骤2:在相同目录下建立计数器的ASP程序,可命名为mycount.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 
  %>

步骤3:将counter.dat、mycount.asp文件放在同一目录下(也可分开存放,但此时需指定文件路径),并在该目录下建立images目录,存放图形化的数字文件,要求数字0对应0.gif,数字1对应1.gif,以此类推(展现你个性的机会来了,你可以将数字做得非常Cool)。    
步骤4:至此,大功即将告成。你只要在网页中使用以下格式调用计数器即可:    

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

注意:  (1)如果你采用不同的目录名、文件名,请作相应修改; 
               (2)计数器程序采用ASP编程,请在网站上试验或在个人服务器PWS调试;

只要以上四大步骤大家认真仔细研究,相信大家一定会制作出一个具有自己风格特点的asp网页设计流量统计。

更多精彩内容其他人还在看

asp(vbs)fso OpenTextFile方法参数说明

OpenTextFile是asp语言中的一个方法,打开指定的文件并返回一个 TextStream 对象,可以通过这个对象对文件进行读、写或追加
收藏 0 赞 0 分享

IIS7.5调用asp页面出现800a0e7a的解决办法

本文给大家分享的是在windows2008R2 64位系统中出现了ADODB.Connection 错误 '800a0e7a'的解决办法,方法很简单,可是处理过程却很曲折,这里推荐给大家,有需要的小伙伴可以参考下。
收藏 0 赞 0 分享

ImageMagickObject获取图片的信息无返回值的解决办法

这篇文章主要介绍了ImageMagickObject获取图片的信息无返回值的解决办法,非常简单,加上format参数即可,需要的朋友可以参考下
收藏 0 赞 0 分享

ASP实现强制图片下载函数

最近做的一个asp项目需要强制下载图片,我在网上找了很多关于下载远程图片的ASP代码,但测试结果都不行。没办法只好自己操刀了,有什么纰漏的地方还请大家指出。
收藏 0 赞 0 分享

asp实现禁止搜索引擎蜘蛛访问的代码

这篇文章主要介绍了asp实现禁止搜索引擎蜘蛛访问的代码,十分的简单实用,有需要的小伙伴可以参考下。
收藏 0 赞 0 分享

asp、html、js 禁止缓存的代码

本文给大家分享的是在asp、html、js中强制不缓存的方法,十分的简单实用,有需要的小伙伴可以参考下。
收藏 0 赞 0 分享

asp实现带刷新功能的验证码代码

本文给大家分享的是一段使用asp实现的验证码功能,而且是带刷新的,代码非常简洁,非常实用,有需要的小伙伴可以参考下。
收藏 0 赞 0 分享

asp获得浏览器agent信息代码

最近做的一个项目中需要使用asp来获取浏览器的agent信息,好久都不玩ASP了,先度娘一下吧,把结果总结一下分享给大家。
收藏 0 赞 0 分享

ASP中只有UrlEncode,没有Urldecode问题的解决方法?

这篇文章主要介绍了ASP中只有UrlEncode,没有Urldecode问题的解决方法? ,需要的朋友可以参考下
收藏 0 赞 0 分享

对象不支持此属性或方法: Session.CodePage = 936 解决方法

这篇文章主要介绍了对象不支持此属性或方法: Session.CodePage = 936 解决方法,需要的朋友可以参考下
收藏 0 赞 0 分享
查看更多