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

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

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

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...
相关阅读
( 2018-5-25 11:39:48 )asp利用sql操作数据表、数据库的一些方法
( 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)
共有0条关于《asp统计信息/文章每日、每周、每月、总访问量的方法》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 400 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

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

Ads loading...
更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
批量删除access字段里面fld.Properties.Delete
ASP操作access或sqlserver数据库的函数库
asp中求两个数的百分比(利用百分比函数FormatPercent就可以自带%的符号)
asp利用sql操作数据表、数据库的一些方法
rs操作数据表记录集对象的方法
[转载]中国行政区划数据(省市区街道)
ASP版通过身份证信息获取对应的生日性别年龄
ASP网站打开特别卡 提示:msxml3.dll 错误 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解决办法
Ads loading...
更多>>最新添加文章
批量删除access字段里面fld.Properties.Delete
ASP操作access或sqlserver数据库的函数库
asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法
asp中求两个数的百分比(利用百分比函数FormatPercent就可以自带%的符号)
asp利用sql操作数据表、数据库的一些方法
rs操作数据表记录集对象的方法
asp利用dateadd获得上个月、本月、下个月的第一天和最后一天
asp随机显示字符长度与类型(可随机显示数字、小写字母、大写字母,可以做为随机密码使用)
  • 业务 QQ:565449214
  • 手机:139 6134 7334
更多>>随机抽取信息
深山留言板系统V3.6(游戏之穿越火线幽灵归来)
输入框提示列表效果
深山仿QQ爱墙最新版--新的一年,新的界面,新的功能
详谈CSS设计中import与link的区别所在
我该做我自已的事情了
计划永远比变化快的得多
硕思闪客精灵破解版下载
一行内文本超出指定宽度后用省略号代替
Ads loading...