HOME
BBS
深山帮帮欢迎您,您可以注册或者
qq登录只需一步,快速开始
深山旅行社网站管理系统开发完成,欢迎各位网友测试! 点这里测试
565449214 给站长留言
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

asp统计信息/文章每日、每周、每月、总访问量的方法

深山行者个人网站 2011-1-19 9:12:23 深山行者 字体:  浏览 13716 我要评论

asp统计信息/文章每日、每周、每月、总访问量的方法

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="conn.asp" -->
<%
'//hittime  日期型:获得上次访问时间
'//hits   数字型:获得总浏览量
'//hitsday  数字型:获得今天浏览量
'//hitsweeks 数字型:获得本周浏览量
'//hitmonths 数字型:获得本月浏览量
'数据库中 添加这5个字段。
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from qwbmnewssss where id=26",conn,1,3
if rs1.eof and rs1.bof then
 response.write "erry"
else
 hittime = rs1("hittime")  '获得上次访问时间
 dim dayNow,monthNow,weeknow
 dayNow = day(date())   '现在几号
 monthNow = month(date())  '现在几月
 weekNow = weekday(date())  '现在星期几 0为星期天
 rs1("hits") = rs1("hits") + 1 '总浏览次数 + 1
 
 if datediff("d",hittime,now()) = 0 then '比较最后访问日期与现在的时间 天数
    rs1("hitsday") = rs1("hitsday") + 1 '今天的浏览量 + 1
 else
  rs1("hitsday") = 1      '今天的浏览量 = 1
 end if

 if monthNow = month(hittime) then
    rs1("hitmonths") = rs1("hitmonths") + 1 '本月的浏览量 + 1
 else
    rs1("hitmonths") = 1  '本月的浏览量 + 1
 end if

 if datediff("d",hittime,now()) > 6 then  '在处理星期的期的时候有一个问题,如果上一个时间是星期五,下一次访问是下个星期的星期二,记录还是叠加。
  rs1("hitsweeks") = 1
 else
  if weekNow <> 1 then
   rs1("hitsweeks") = rs1("hitsweeks") + 1
  else
   weekNowss = weekday(hittime) '上次访问的星期几
   if weekNow = weekNowss then
    rs1("hitsweeks") = rs1("hitsweeks") + 1
   else
    rs1("hitsweeks") = 1
   end if
  end if
 end if

rs1("hittime") = now() '更新最后的访问题意
rs1.update
%>
时间比较:<%=datediff("d",hittime,now())%><br />
当前时间:<%=now()%><br />
最后点击时间:<%=hittime%><br />
当前天:<%=dayNow%><br />
当前月:<%=monthNow%><br />
当前周:<%=weekNow%><br />

总共浏览量:<%=rs1("hits")%><br />
今天访问量:<%=rs1("hitsday")%><br />
星期访问量:<%=rs1("hitsweeks")%><br />
当月访问量:<%=rs1("hitmonths")%><br />
<%
end if
rs1.close
set rs1=nothing
%>
<%closer(conn)%>

Ads loading...
相关阅读
( 2014-10-30 10:46:40 )留言板留言板V7.0
( 2014-9-20 22:17:36 )用于深山在线投票的一个javascript统计checkbox现在选中的个数一边点复选框一边验证并计算现在选了多少个复选框
( 2012-10-29 9:53:56 )深山旅行社管理系统商业版增加线路日期报价功能样式选择(增加了3个日期报价效果)
( 2011-8-20 11:26:59 )更新连云港旅游网站管理系统的旅游信息搜索功能
( 2011-2-19 15:03:52 )深山仿QQ爱墙最新版--新的一年,新的界面,新的功能
( 2011-1-19 9:12:23 )asp统计信息/文章每日、每周、每月、总访问量的方法
( 2010-5-7 14:32:57 )Javascript JS 限制复选框的选择个数(3)
( 2010-2-9 15:06:47 )javascript自动获取Tags关键字
共有0条关于《asp统计信息/文章每日、每周、每月、总访问量的方法》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 400 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

Ads loading...
更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
ASP连接各种数据库的方法
asp获得系统Unix时间戳与将Unix时间戳转为正常日期
access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
asp中最难发现的错误由最简单的程序引起
Asp得到当月天数的函数方法
在服务器上新建网站,在服务器用域名能访问,但是外网访问不了的解决办法
httpd.ini中的RewriteRule、RewriteCond规则了解以有二级域名解析实例
httpd.ini一些参数说明
Ads loading...
更多>>最新添加文章
ASP连接各种数据库的方法
asp获得系统Unix时间戳与将Unix时间戳转为正常日期
关于SQL2008 “不允许保存更改。您所做的更改要求删除并重新创建以下表。您对无法重新创建的标进行了更改或者启用了‘阻止保存要求重新创建表的更改’” 解决方案
access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
asp中最难发现的错误由最简单的程序引起
Asp得到当月天数的函数方法
在服务器上新建网站,在服务器用域名能访问,但是外网访问不了的解决办法
深山旅行社网站管理系统5.0发布
  • 业务 QQ:565449214
  • 手机:139 6134 7334
更多>>随机抽取信息
一行内文本超出指定宽度后用省略号代替
Javascript JS 限制复选框的选择个数(3)
当鼠标靠在某个字上时,背景也随之改变
javascript自动获取Tags关键字
图片渐显轮流播放
利用DIV+CSS做的柱状图(3)
当鼠标经过表单,表单承现选择状效果
键盘上shift键的奇妙用途
Ads loading...