注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

小新之家

心灵的放松地点

 
 
 

日志

 
 

防刷新  

2009-09-07 10:58:47|  分类: 学习资料 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

防刷新,好用
<%
Dim lngVisitorNumber '保存来访者数量
On Error Resume Next
lngVisitorNumber = 0
Set conn_cun = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("counters.mdb")
conn_cun.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn_cun,1,3
IF CSTR(Month(Rs("DATE"))) <> CSTR(Month(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = RS("TODAY")
Rs("BMONTH") = Rs("MONTH")
Rs("MONTH") = 1
Rs("TODAY") = 1
Rs.Update
ELSE
IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = Rs("TODAY")
Rs("TODAY") = 1
Rs.Update
END IF
END IF
If Session("lngSessionVisitorNum") = "" Then
lngVisitorNumber = lngVisitorNumber + 1
Session("lngSessionVisitorNum") = lngVisitorNumber
Rs("TOTAL")=Rs("TOTAL") + 1
Rs("TODAY") =Rs("TODAY") + 1
Rs("MONTH")=Rs("MONTH") + 1
Rs.Update
end if
Response.write"本站浏览总人数:"
MyCounter( Rs("TOTAL") )
Response.write "<br>"
Response.write"今日浏览总人数:"
MyCounter( Rs("TODAY") )
Response.write "<br>"
Response.write"昨日浏览总人数:"
MyCounter( Rs("YESTERDAY") )
Response.write "<br>"

Response.write"本月浏览总人数:"
MyCounter( Rs("MONTH") )
Response.write "<br>"
Response.write"上月浏览总人数:"
MyCounter( Rs("BMONTH") )
Response.write "<br>"
N=now
D2 = DateValue(N)
D1 =#11/8/2002# ' 开始统计日期(月/日/年)
Response.write"开站至今天:"
MyCounter( DateDiff("d", D1, D2) )
Response.write "<br>"
D3 = DateDiff("d", D1, D2)
Response.write"平均一日人数:"
MyCounter( Rs("TOTAL")\D3 )
conn_cun.CLOSE
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "<IMG SRC=./images/" & Mid(S, i, 1) & ".gif Align=middle>"
Next
Response.write G
End Function

%>

数据表counters字段名及类型
id 自动编号
total 累计计数 数字
today 今日累计 数字
yesterday 昨日累计 数字
month 本月累计 数字
bmonth 上月累计 数字
date 开始统计日期 日期

另外,你还有准备 0.gif - 9.gif 10个图片放在当前子目录images下
  评论这张
 
阅读(204)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017