<!--#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编辑过]