敬业的IT人 >> 网站建设 >> Web编程 >> Asp >> 判断星期，自动把上周的累计数据归到上周字段，本周初始化

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

敬业的IT人互联网佚名 2008-4-14 18:32:26

以下是代码片段：
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) & "周."
%>

最新文章: 一个简单的网上书城的例子（一）[04-14]; 制作我们自己的Ebay(拍卖系统)(9)[04-14]; 一个简单的网上书城的例子（五）[04-14]; 一个简单的网上书城的例子（四）[04-14]; 一个简单的网上书城的例子（三）[04-14]; ASP 编程中15 个非常有用的例子[04-14]

相关文章