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

'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 %>这个是简单的计数器

新建一个表 表名js 里面新建立一个列 列名 访问次数 类型 数字 在index.asp首页上 加如 <% sql=update js set 访问次数=访问次数+1 where 访问次数 is not null conn.execute(sql) %>