判断星期,自动把上周的累计数据归到上周字段,本周初始化
来源:未知 责任编辑:智问网络 发表时间:2013-11-12 17:19 点击:次
以下是代码片段: 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) & "周." %> |
相关新闻>>
最新推荐更多>>>
- 发表评论
-
- 最新评论 更多>>