新微赢技术网

标题: 有人帮我吗 [打印本页]

作者: ⿴°愛丶°牠 时间: 2010-1-7 03:59
标题: 有人帮我吗
　　　　　　　  <% 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 %> 小弟想要得到日周月的点击数，但是一直实现不了，请各位高手帮帮忙．

作者: 为爱种菜！ 时间: 2010-1-7 03:59
各位老大,来帮我看一下.

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

作者: liu 时间: 2010-1-7 03:59
一加红色的就会出现错误

作者: 下眩月 时间: 2010-3-7 09:05
经过你的指点我还是没找到在哪 ~~~

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)