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

ASP
asp获取客户端某一个图片的x,y坐标的代码
asp编程中常用的javascript辅助代码
asp下生成目录树结构的类
[原创]站长感慨asp编程究竟何去何从
asp水印组件之AspJpeg的结合代码实例
asp实现dig功能的js代码
[原创]asp下用实现模板加载的的几种方法总结
asp常用函数集合,非常不错以后研究
一个asp替换函数img里面多余的代码
检查上传图片是否合法的函数,木马改后缀名、图片加恶意代码均逃不过
一想千开PJblog审核功能补丁 v2.0版 发布
asp汉字中文图片验证码
用asp实现网页调用doc附Response.ContentType 详细列表
利用MSXML2.XmlHttp和Adodb.Stream采集图片
[原创]asp获取URL参数的几种方法分析总结
asp实现的可以提醒生日的几种方法附代码
Asp无组件生成缩略图的代码
功能不错的asp模板类代码附下载
不用WinRar只有asp将网络空间上的文件打包下载
AJAX简单应用实例-弹出层

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 79 ::
收藏到网摘: 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号的话,就将纪录日志文件是否已经寄给网站
  
  ''管