<!--#include file="articleconn.asp"--> <% add=request("my") sql="update soft set hit=hit+1 where add="&add conn.execute(sql) set rs=server.CreateObject("adodb.recordset") sql="select * from soft where add="&add rs.open sql,conn,3,2 if 　　　　　　　　　　　　　　　　　'rs("tday"),rs("wday"),rs("mday")为日周月的点击数， 　　　　　　　　　　　　　　　　'rs("ttime"),rs("wtime"),rs("mtime") 为日周月的时间数 rs("ttime")=day(now()) then rs("tday")=rs("tday")+1 '日点击数自加1 rs("wday")=rs("wday")+1 '周点击数自加1 rs("mday")=rs("mday")+1 '月点击数自加1 rs.update elseif rs("wtime")=weekday(now()) rs("mday")=rs("mday")+1 '周点击数加1 rs("wday")=rs("wday")+1 '月点击数加1 rs("tday")=0 '如果不是今天就让昨天的点击数为０ rs("ttime")=day(now()) '让日期为今天的日期 rs.update elseif rs("mtime")=month(now())　　 rs("mday")=rs("mday")+1　　　 '月点击数加１ rs("wday")=0 '如果不是本周就让上周点击为０ rs("wtime")=weekday(now())　　　'让周为这周的时间 rs.update else rs("mday")=0 '如果不是本月就让本月点击为０ rs("mtime")=month(now())　　　　 rs.update end if

response.Redirect (rs("get")&"\"&rs("address")) rs.close set rs=nothing conn.close set conn=nothing %> 小弟想要得到日周月的点击数，但是一直实现不了，请各位高手帮帮忙．

[此贴子已经被作者于2005-8-2 17:35:46编辑过]

一加红色的就会出现错误

各位老大,来帮我看一下.

我上次给你的代码可以做到今日点击，昨日点击，本月点击，上月点击，
但是周操作，我感觉比较麻烦，
周操作我没有做过，不过有个思路，
比如说从周一到周日　算一周（符全我们的传统）
你可以先判断今天是不是周一，如果不是则让本周的点击加1
如果上则把本周的存放到上周，然后再把本周置0
这是一思路，一会回家我做做测试，如果可以，明天我把代码给你发一下，
如果失败，等老大来了，请教他吧，

好的,谢谢你啊,
你看我上面的代码是根据你前面说的改的,你看一下能不能用.

兄弟改好了，测试可以用的，回头再让老大给优化一下 <% '字段说明： 'tday:今天的点击数 'yday:昨天的点击数 'twek:本周的点击 'ywek:上周的点击 'tmon:本月的点击 'ymon:上月的点击 'time:今天的日期，判断各个点击的基础 'btime:开始统计的日期 'wekday:周点击的判断依据 set rs=server.createobject("adodb.recordset") sql="select * from hit" rs.open sql,conn,3,2 if rs.eof then rs.addnew rs("tday")=1 rs("yday")=0 rs("sumday")=1 rs("time")=date() rs("btime")=date() rs("twek")=1 rs("ywek")=0 rs("tmon")=1 rs("ymon")=0 rs("wekday")=date() rs.update else rs("sumday")=rs("sumday")+1 '让总点击次数加1 rs.update if month(rs("time"))=month(date()) then rs("tmon")=rs("tmon")+1 rs.update else rs("ymon")=rs("tmon") rs("tmon")=1 rs.update end if if datediff("d",rs("wekday"),date())<=7 then'判断wekday和今天的差是不是大于7， '如果大于说明已经过了一周，则执行下一步,否则让本周点击加1 rs("twek")=rs("twek")+1 rs.update else rs("ywek")=rs("twek") rs("twek")=1 rs("wekday")=date()'如果大于7，则把本周点击赋给上周，把wekday更新为今天，便于下一次统计！ rs.update end if if rs("time")=date() then'如果日期是今天，则让今天的点击加1 rs("tday")=rs("tday")+1 rs.update else rs("yday")=rs("tday")'如果日期不等于今天，则把tday中的数值赋给yday做为昨天的点击次数 rs("tday")=1'将今天的点击赋为0，便于下一次的统计 rs("time")=date()'将数据库中的日期改成当前的日期 rs.update end if end if

%> 今天：<%= rs("tday") %><br> 昨天：<%= rs("yday") %><br> 本周：<%= rs("twek") %><br> 上周：<%= rs("ywek") %><br> 本月：<%= rs("tmon") %><br> 上月：<%= rs("ymon") %><br> 统计：<%= datediff("d",rs("btime"),date()) %>天<br> 总共：<%= rs("sumday") %>

我去试一下．

无根泉你真的好厉害．，我代码没改放进去都可以用．
真是谢谢你啊，我把他收藏了．

无根泉，顺便问一下你
我添加软件的时候有没有必要写入时间．

我把文章加入网站了,作者无根泉. http://caiyakang.xicp.net