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

ASP
17种正则表达式
关闭窗口时保存数据的办法
一个新的JMail(4.3版本)发送代码
一个很简单的验证码程序
用正则解析图片地址,并利用XMLHTTP组件将其保存
利用ASP+JMAIL进行邮件群发的新思路
MD5算法研究(2)
MD5算法研究(1)
JS判断输入日期的正确性
实现搜索结果的关键词变色标注的程序
LCID地区代码
IIS6.0下ASP的新增功能
IIS 5.1和IIS 6.0一些显著的重要区别
浅谈如何建立三层体系结构的ASP应用程序
Windows 2000活动目录详解之安装配置篇
Windows 2000活动目录详解之结构篇
Windows 2000活动目录详解之基础篇
判断Cookies是否处于开启状态
一个仿phplib的模板类
在线实时开通WEB及FTP源程序

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


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