减小字体
增大字体- ·上一篇文章：独立图片服务器的图片上传的解决方式
- ·下一篇文章：相对路径转换为绝对路径函数
asp统计信息/文章每日、每周、每月、总访问量的方法
折叠ASP/Visual Basic Code复制内容到剪贴板
- <
%
- '//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
- %>
asp统计信息/文章每日、每周、每月、总访问量的方法
