折叠ASP/Visual Basic Code复制内容到剪贴板
- <%
- '//hittime 日期型：获得上次访问时间
- '//hits 数字型：获得总浏览量
- '//hitsday 数字型：获得今天浏览量
- '//hitsweeks 数字型：获得本周浏览量
- '//hitmonths 数字型：获得本月浏览量
- '数据库中 添加这5个字段。
- set rs1=server.CreateObject("adodb.recordset")
- rs1.open "select * from qwbmnewssss where id=26",conn,1,3
- if rs1.eof and rs1.bof then
- response.write "erry"
- else
- hittime = rs1("hittime") '获得上次访问时间
- dim dayNow,monthNow,weeknow
- dayNow = day(date()) '现在几号
- monthNow = month(date()) '现在几月
- weekNow = weekday(date()) '现在星期几 0为星期天
- rs1("hits") = rs1("hits") + 1 '总浏览次数 + 1
- if datediff("d",hittime,now()) = 0 then '比较最后访问日期与现在的时间 天数
- rs1("hitsday") = rs1("hitsday") + 1 '今天的浏览量 + 1
- else
- rs1("hitsday") = 1 '今天的浏览量 = 1
- end if
- if monthNow = month(hittime) then
- rs1("hitmonths") = rs1("hitmonths") + 1 '本月的浏览量 + 1
- else
- rs1("hitmonths") = 1 '本月的浏览量 + 1
- end if
- if datediff("d",hittime,now()) > 6 then '在处理星期的期的时候有一个问题，如果上一个时间是星期五，下一次访问是下个星期的星期二，记录还是叠加。
- rs1("hitsweeks") = 1
- else
- if weekNow <> 1 then
- rs1("hitsweeks") = rs1("hitsweeks") + 1
- else
- weekNowss = weekday(hittime) '上次访问的星期几
- if weekNow = weekNowss then
- rs1("hitsweeks") = rs1("hitsweeks") + 1
- else
- rs1("hitsweeks") = 1
- end if
- end if
- end if
- rs1("hittime") = now() '更新最后的访问题意
- rs1.update
- %>
- 时间比较：<%=datediff("d",hittime,now())%><br />
- 当前时间：<%=now()%><br />
- 最后点击时间：<%=hittime%><br />
- 当前天：<%=dayNow%><br />
- 当前月：<%=monthNow%><br />
- 当前周：<%=weekNow%><br />
- 总共浏览量：<%=rs1("hits")%><br />
- 今天访问量：<%=rs1("hitsday")%><br />
- 星期访问量：<%=rs1("hitsweeks")%><br />
- 当月访问量：<%=rs1("hitmonths")%><br />
- <%
- end if
- rs1.close
- set rs1=nothing
- %>