当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何完整纪录站内所有网页点选次数(转)

ASP
隐藏ASP木马后门的两种方法
一段asp防注入的通用脚本
十万条Access数据表分页的两个解决方法
asp下让数据库在需要读取的时候才打开
ASP代码实现自动清除替换ACCESS(MDB)数据库的日文字符的
原来ASP和PHP都是可以删除自身的
[原创]asp获取URL参数的几种方法分析总结
asp+javascript实现404页的处理转换
ASP+模板生成Word、Excel、html的代码
天枫常用的ASP函数封装如下
asp获取当前文件名的代码
ASP把长的数字用逗号隔开显示的代码
防止网页后退 asp禁止缓存
ASP的一些自定义函数整理
ASP个人网站与动网整合非官方方法
Access模糊查询查不到数据的解决方法
asp源码打包成xml的工具
透彻掌握ASP分页技术很详细的分析
asp下根据标题生成关键字的代码
asp取日期1月25日为0125的最简单方法

ASP 中的 如何完整纪录站内所有网页点选次数(转)


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 126 ::
收藏到网摘: n/a

       大家看到这个标题应该蛮兴奋的吧,我终于可以拥有一份完整的站内流量统计了,没错,笔者今天就要带领大家将这个困难的
  工作完成,我要在这里说明的是如果你想要作统计的网页数量非常庞大,那你就得在每一个网页的一开头将这个程序含入
  (Include),不过我可以告诉你这是值得的,因为这一份流量统计表可以完整纪录整个月的流量统计,而不仅仅是今天和昨天
  而已,我相信你一定很高兴听到我这么说吧!!!因为我也很高兴可以让大家不必藉由一些昂贵的流量统计程序就能做到类似
  的效果,其实流量统计的方式有很多种,如果你只想针对某一个网页作统计,那么友缘故事的流量统计程序算是一个蛮不错的
  小程序,简单又大方,如果你想对站内所有的网页作流量统计,但你只想纪录网页浏览总数,那你可以参考本站做法,使用
  Response.Redirect(重新导向的方式来处理),重新导向的方式很简单,首先你必须在数据库建立一个索引字段(ID),然后还
  有一个字段储存网页的超级链接地址(URL),再加上一个储存点选次数的字段Hits,接着利用一个重新导向的小程序
  Redirect.asp将参数值传递出去Redirect.asp?ID=15,而Redirect.asp会将接收到的ID值到数据库进行比对,将比对到的资
  料列其Hits字段值加一接着再导向到URL字段所储存的网址,这是一种比较简单的做法,不过前提是你必须将所有网页的资料
  全部建进数据库,而今天要介绍的方法并不需要将所有网页的资料写入数据库,你只要将网页名称和日期字段建入数据库即
  可。
  
  
  
  数据库表格及字段名称定义如下:
  
  
  
  
  
  HITS
  网页 文字
  1号 数字
  2号 数字
  3号 数字
  4号 数字
  5号 数字
  6号 数字
  7号 数字
  8号 数字
  9号 数字
  10号 数字
  11号 数字
  12号 数字
  13号 数字
  14号 数字
  15号 数字
  16号 数字
  17号 数字
  18号 数字
  19号 数字
  20号 数字
  21号 数字
  22号 数字
  23号 数字
  24号 数字
  25号 数字
  26号 数字
  27号 数字
  28号 数字
  29号 数字
  30号 数字
  31号 数字
  
   
  
  
  
   
  
  档案包含有三个档案,一个是执行流量统计的Hits.asp,一个是纪录日志文件是否已经寄给
  网站管理者的文字验证档案Mailed.txt,最后就是纪录流量统计的日志档案Hits.Log:程序流程部分如下如所示
  
  
  
  
   
  
  我们现在就来看看Hits.asp
  
  
  
  Hits.asp
  
  
  <%''指定数据库路径
  
  Dim stats
  stats = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/asp/state/stats.mdb")
  & ";DefaultDir=" & Server.MapPath("/asp/state") & ";DriverId=25;FILE=MS
  Access;MaxBufferSize=512;PageTimeout=5"%>
  <html>
  <head>
  <title>流量统计表</title>
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
  <!-- #INCLUDE FILE="adovbs.inc" -->
  
  
  
  
  <%
  
  Dim todaysDate
  
  ''将网页名称以Session变量取代
  
  ''将目前日期传给todaysDate变量
  
  session("Page")="1"
  
  todaysDate = day(now())
  
  
  ''********************************************
  '' 如果今天是1号的话,就将纪录日志文件是否已经寄给网站
  
  ''管