asp/Visual Basic代码
- <%
- ‘–判断星期，自动把上周的累计数据归到上周字段，本周初始化
- Dim Np,Lp,Lh
- ‘– Lp为上次访问时间
- Np = "108"
- Lp = "0"
- Lh = "2007-9-15 10:27:15"
- ‘–如果两个时间相差不足一周，则计入本周累计
- If DateDiff("Ww", Lh, Now) <= 0 Then
- Response.Write "Np = " & Np+1 & "<br>"
- Response.Write "Lp = " & Lp
- ‘–如果两个时间相差正好一周，则写入上周，本周初始化为1
- ElseIf DateDiff("Ww", Lh, Now) = 1 Then
- Response.Write "Np = 1 <br>"
- Response.Write "Lp = " & Np
- ‘–如果两个时间相差大于一周，则上周清为0，本周初始化为1
- Else
- Response.Write "Np = 1 <br>"
- Response.Write "Lp = 0"
- End If
- Response.Write "<br><br>距上次访问相差" & DateDiff("Ww", Lh, Now) & "周."
- %>
版权所有，转载请注明出处。
转载自 <a href="http://www.yanghengfei.com/archives/79/" title="[ASP]判断星期，自动把上周的累计数据归到上周字段，本周初始化" rel="bookmark">[ASP]判断星期，自动把上周的累计数据归到上周字段，本周初始化 | 星外飞客 </a>
我简单说几句