判断星期,自动把上周的累计数据归到上周字段,本周初始化
爱你还是爱美,忍影堂,短信广告公司
以下是代码片段:
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) & "周."
%>
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
网友评论