判断星期，自动把上周的累计数据归到上周字段，本周初始化
2018-09-06 10:43
阅读：642
以下是代码片段：
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) 周.
%>
下一篇：ASP实现加法验证码
评论
亲，登录后才可以留言！