开发学院 WEB开发 ASP 判断星期，自动把上周的累计数据归到上周字段，本... 阅读

判断星期，自动把上周的累计数据归到上周字段，本周初始化

　2007-10-29 16:08:30　来源：WEB开发网　　　

核心提示：以下是代码片段：ASP/Visual Basic代码<% '--判断星期，自动把上周的累计数据归到上周字段，判断星期，自动把上周的累计数据归到上周字段，本周初始化，本周初始化 Dim Np,Lp,Lh '-- Lp为上次访问时间 Np = "108" Lp = &quo

以下是代码片段：
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 & " "　
　 Response.Write "Lp = " & Lp　
'--如果两个时间相差正好一周，则写入上周，本周初始化为1　
ElseIf DateDiff("Ww", Lh, Now) = 1 Then　
　 Response.Write "Np = 1 "　
　 Response.Write "Lp = " & Np　
'--如果两个时间相差大于一周，则上周清为0，本周初始化为1　
Else　
　 Response.Write "Np = 1 "　
　 Response.Write "Lp = 0"　　
End If　
　
Response.Write " 距上次访问相差" & DateDiff("Ww", Lh, Now) & "周."　
%>