网页访问量代码
标题
<!--
var caution = false
function setCookie(name, value, expires, path, domain, secure) {
var curCookie = name + "=" + escape(value) +
((expires) ? "; expires=" + expires.toGMTString() : "") +
((path) ? "; path=" + path : "") +
((domain) ? "; domain=" + domain : "") +
((secure) ? "; secure" : "")
if (!caution || (name + "=" + escape(value)).length <= 4000)
document.cookie = curCookie
else
if (confirm("Cookie exceeds 4KB and will be cut!"))
document.cookie = curCookie
}
function getCookie(name) {
var prefix = name + "="
var cookieStartIndex = document.cookie.indexOf(prefix)
if (cookieStartIndex == -1)
return null
var cookieEndIndex = document.cookie.indexOf(";", cookieStartIndex + prefix.length)
if (cookieEndIndex == -1)
cookieEndIndex = document.cookie.length
return unescape(document.cookie.substring(cookieStartIndex + prefix.length, cookieEndIndex))
}
function deleteCookie(name, path, domain) {
if (getCookie(name)) {
document.cookie = name + "=" +
((path) ? "; path=" + path : "") +
((domain) ? "; domain=" + domain : "") +
"; expires=Thu, 01-Jan-70 00:00:01 GMT"
}
}
function fixDate(date) {
var base = new Date(0)
var skew = base.getTime()
if (skew > 0)
date.setTime(date.getTime() - skew)
}
var now = new Date()
fixDate(now)
now.setTime(now.getTime() + 365 * 24 * 60 * 60 * 1000)
var visits = getCookie("counter")
if (!visits)
visits = 1
else
visits = parseInt(visits) + 1
setCookie("counter", visits, now)
document.write("您是第" + visits + "访问本页面的！")
// -->
谁有网页里面统计访问量的代码啊？快给我发一个！
'LCASE是将字母转化为小写,这个mode并未在后面的程序中出现，无从知道其作用
mode = LCASE(Request("mode"))'这句是怎么回事？
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
''如果当前月份和记录中的月份不同，则说明是新的一个月份
''本IF语只有新的月份中的第一个浏览者浏览本网站时执行，初始化月流量及日流量为0
'' 这部分一个月最多只能执行一次，
IF CSTR(Month(RS("DATE"))) CSTR(Month(DATE())) THEN
RS("DATE") = DATE()
RS("YESTERDAY") = RS("TODAY")'为何要这样？这样不是把YESTERDAY字段值改为TODAY字段的值了吗？
RS("BMONTH") = RS("MONTH") '为何要这样？
RS("MONTH") = 0'这样岂不是把记录集中该字段中的值清0了？
RS("TODAY") = 0 '这样岂不是把记录集中该字段中的值清0了？
RS.Update
ELSE
''如果上面的if语句不能满足说明当前没有到一个新的月份
'如果Day(RS("DATE"))和当前日期号不等
'那么说明这是新的一天,每天的第一个浏览者浏览本站时，得到执行.每天最多只能执行一次本部分
'因为是新的一天，原记录中的今天已是昨天了,用RS("TODAY")更新RS("YESTERDAY"),
'初始化今天的记录为0
IF CSTR(Day(RS("DATE"))) CSTR(Day(DATE())) THEN
RS("DATE") = DATE()
RS("YESTERDAY") = RS("TODAY")
RS("TODAY") = 0
RS.Update
END IF
END IF
'这部分就可以放心的计数
'总流量加1，当前月及当前日的流量加1
RS("TOTAL") = RS("TOTAL") + 1
RS("TODAY") = RS("TODAY") + 1
RS("MONTH") = RS("MONTH") + 1
RS.Update
response.write "今日浏览总人数："
numshow( RS("TODAY") )
response.write ""
response.write "昨日浏览总人数："
numshow( RS("YESTERDAY") )
response.write ""
response.write "本月浏览总人数："
numshow( RS("MONTH") )
response.write ""
response.write "上月浏览总人数："
numshow( RS("BMONTH") )
response.write ""
response.write "本站浏览总人数："
numshow( RS("TOTAL") )
response.write ""
response.write ""
response.write ""
N = Now
D2 = DateValue(N)
D1 = #09/01/2004# ' 开始统计日期(月/日/年)
response.write "开站至今天的总天数："
numshow( DateDiff("d", D1, D2) )
response.write ""
D3 = DateDiff("d", D1, D2)
response.write "平均人数/日："
numshow( RS("TOTAL")\D3 )
CONN.CLOSE
'这个函数其实还是很简单的，其作用图形来显示流量的数字,函数的功能不是计数
'比方说，想用图形化数显示100，则Call numShow(100)
Function numshow( counter )
Dim S, i, G
S = CStr( counter )
'因为数字不止一位，所以用循环一个数字一个数字的找相应的图片
'1就用1.gif显示,2就是2.gif显示，。。。类推
For i = 1 to Len(S)
G = G & ""
Next
response.write G
End Function
%>
这个是简单的计数器
Q币如何打电话获得？
移动:125904252008 联通105908818 每收听2分钟即可获赠1个Q币配额，另外在“无哩头打擂台中”每连续答对3道题更可多获赠1个；新用户每月最多获赠10个Q币，老用户每月最多赠送20个，每次最多赠送10个！（每月不再按照自然月计算，而从每月11日开始计算） 每收听4分钟即可获赠1个Q币配额，另外在“无哩头打擂台中”每连续答对3道题更可多获赠1个；新用户每月最多获赠5个Q币，老用户每月最多赠送10个，每次最多赠送5个！（每月不再按照自然月计算，而从每月11日开始计算） Q币配额查询转帐快速通道 移动手机拨打125904252002 按2键 联通手机拨打1015908816 按8键 · 每个手机号码每日只能向1个QQ号码进行配额激活转帐，每月只可向2个QQ号码进行转帐； · 每个手机号码每日可转帐20Q币，每月最多转帐40Q币； · 每个QQ号码每日可接受来自手机Q币配额激活上限为20Q币，每月为40Q币； · 每个QQ号码每日可接受来自1个手机号的Q币配额激活转帐，每月可以接受来自2个手机号码的 Q币配额激活转帐。 转帐小贴士： 在拨打转帐号码后，移动按2键、联通按8键就会听到播报您目前能转帐的Q币配额数量，而后就可以马上开始进行Q币配额转帐了。在转帐时您首先需要根据语音提示先输入您的QQ号码，然后再输入欲转帐的Q币配额数量，如果您转帐的数量和QQ没有超过限制，那么就转帐成功了，这时只要您登陆您的QQ帐户就可以看到Q币增加了！！ 温馨提示： 1、本业务资费：移动业务信息费1元/分钟，通信费忙时0.3元/分钟，闲时0.15元/分钟； 联通业务信息费1元/分钟，通信费0.2元/分钟； 2、北京移动、北京联通、黑龙江移动、河南移动用户无法参与本活动； 3、用户所获赠的Q币配额将在7日内失效，请尽快进行转帐； 4、用户第一次拨打天降财神即成为新用户，每月只能获赠10个Q币（联通为5Q币）；2个月后自动升级为老用户，每月能获赠 20个Q币（联通为10Q币）。如老用户连续2个月没有拨打天降财神则自动变为新用户。 5、新用户只能给与自己手机省份相同的QQ号码进行转帐，老用户则无此限制； 6、由于网络原因，辽宁、吉林、浙江、江苏、陕西、福建、重庆、湖北、内蒙、新疆、广西、上海的移动新用户获赠的Q币配额会有一定的延迟，请新用户延时4小时后再进行查询和转帐，其他省份移动新用户、所有移动老用户和联通用户则无需等待，可以立即转帐。 7、移动用户每月拨打1259042×××号段所产生的信息费上限为50元，联通用户每月拨打10159088×××号段所产生的信息费上限为60元，如超出此限额则无法正常使用。 8、您在参与本活动过程中有任何疑问或困惑，均可拨打我们的客服热线：95105789，祝您玩的愉快。 QQ卡 以实物卡方式销售，有三种面值：15元、30元、60元。可在您身边的便利店、书报亭 、软件店垂询购买。 财付通·银行卡 腾讯公司针对网上交易打造的在线支付平台，支持银行卡支付。财付通充值享受9折优惠！ 会员充值88折特权通道>> 一点通 腾讯携手银行推出的支付功能,QQ号码和银行卡账户关联，免除了跳转支付的烦琐和网上泄密的担忧。求采纳
