谁有网页里面统计访问量的代码啊？快给我发一个！

谁有网页里面统计访问量的代码啊？快给我发一个！

新建一个表
表名js
里面新建立一个列
列名 访问次数 类型 数字

在index.asp首页上 加如
<%
sql="update js set 访问次数=访问次数+1 where 访问次数 is not null"
conn.execute(sql)
%>

'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

%>

这个是简单的计数器

你是要的是去统计网站上看到你网站访问量的代码还是用什么程序就直接在网站上显示的代码？说清楚

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息