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

ASP
实例详解ASP中断开记录集的使用方法
代码指导用ASP木马实现FTP和解压缩
防范脚本入侵,你做好准备了吗?
ASP中检查没有数据提交的页面
ASP程序代码执行时间统计类
ASP实现将长的标题用省略号收尾
ASP常用代码剪辑
在ASP中利用“正则表达式” 对象实现UBB风格的论坛
ASP批量生成静态页
ASP生成柱型体,折线图,饼图源代码
马克斯电影站生成Rss Feed的代码
ASP怎么谈到应用到类的?
ASP:判断访问是否来自搜索引擎的函数
ASP代码:rs.open语句详细说明
用asp自动解析网页中的图片地址
ASP:True or False,明明白白你的If语句流程
ASP实现在提交表单到数据库的同时发邮件通知
“Web 匿名用户”帐户密码的位置
ASP分页效果之优化
使用新云cms过程中的问题总结

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


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