关于作者

姓名： 性别：男 出生日期: 地区: 联系电话: QQ:-- 婚否：保密
用户名：mahui03503
笔名：
地区：

日历 　年月日

日 一 二 三 四 五 六

快速登录

+ 用户名：
+ 密　码：

快速通道

在线留言



最新评论

我的母校

友情链接

音乐欣赏

转载

图片欣赏

访问统计：
文章个数:21
评论个数:0
留言条数:1




Powered by BlogDriver 2.1

世纪网页

　

   人每天要做三件事: 第一件是笑(^_^); 第二件是微笑(^o^); 第三件是大笑(^O^);相信你有愉快的一天*^o^*。 每一滴雨声的音符能否激动你内心的涟漪，传递着你、我的心声。 世纪网页

文章

d 　（作者置顶）
<% mode = LCASE(Request("mode")) Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("counter.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 CSTR(Month(RS("DATE"))) <> CSTR(Month(DATE())) THEN RS("DATE") = DATE() RS("YESTERDAY") = RS("TODAY") RS("BMONTH") = RS("MONTH") RS("MONTH") = 0 RS("TODAY") = 0 RS.Update ELSE 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 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 = #10/1/2001# ' 开始统计日期(月/日/年) response.write "开站至今天的总天数：" numshow( DateDiff("d", D1, D2) ) response.write "
" D3 = DateDiff("d", D1, D2) response.write "平均人数/日：" numshow( RS("TOTAL")\D3 ) CONN.CLOSE Function numshow( counter ) Dim S, i, G S = CStr( counter ) For i = 1 to Len(S) G = G & "" Next response.write G End Function %>

- 作者： 2006年01月6日, 星期五 20:30　 回复（0） |　 引用（0） 加入博采

3
新浪：