Question

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

高分悬赏！
网上统计能显示的代码！比说，您是第几个访问者！
高手再来给个答案啊，要求这个访问数量不要显示到主页上，在后台能看到就可以了

Answer 1

'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 "<font size=2 color=000099>今日浏览总人数：</font>"
numshow( RS("TODAY") )
response.write "<br>"

response.write "<font size=2 color=000099>昨日浏览总人数：</font>"
numshow( RS("YESTERDAY") )
response.write "<br>"

response.write "<font size=2 color=000099>本月浏览总人数：</font>"
numshow( RS("MONTH") )
response.write "<br>"

response.write "<font size=2 color=000099>上月浏览总人数：</font>"
numshow( RS("BMONTH") )
response.write "<br>"

response.write "<font size=2 color=000099>本站浏览总人数：</font>"
numshow( RS("TOTAL") )
response.write "<br>"

response.write "</td>"
response.write "<td valign=""top"">"
N = Now
D2 = DateValue(N)
D1 = #09/01/2004# ' 开始统计日期(月/日/年)

response.write "<font size=2 color=000099>开站至今天的总天数：</font>"
numshow( DateDiff("d", D1, D2) )
response.write "<br>"
D3 = DateDiff("d", D1, D2)
response.write "<font size=2 color=000099>平均人数/日：</font>"
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 & "<IMG SRC=./gif/" & Mid(S, i, 1) & ".gif Align=middle>"
Next
response.write G

End Function

%>

这个是简单的计数器

Answer 2

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

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

Answer 3

http://www.cnzz.com/
去这里注册，然后嵌入网页。有详细的流量来源等统计数据。

Answer 4

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