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

ASP
ASP编程入门进阶(廿一):DAO SQL之建立数据库表
ASP应用之模板采用
ASP上传图片功能的又一实现(OLE对象)
asp中FSO复制文件代码
asp复制文件夹代码
实例演练ASP+XML编程比较全的了
利用ASP从远程服务器上接收XML数据的方法
PJ-Blog教程┊增强博客用户体验~让发表内容的同时拷贝到剪贴板以防丢失
TSYS一个新闻多种特性时如何进行前台更新?
TSYS资源特性的效率提高方法
重置TSYS系统中的所有"生成的文件"成"未生成文件"
TSYS中生成静态页时溢出: ''CInt''
asp实现防止站外提交内容的两个方法
ASP中生成文本文件的两种方式
ASP是否可以定时触发事件
ASP解压缩(在线解压缩类)
使用ASP删除指定IIS站点
使用ASP控制指定站点解析脚本语言函数
HTML标签及ASP函数速查表
如何使用Administrators组用户运行ASP程序

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


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