笨朱先行

在ASP查询中，仿照CNZZ统计实现今天、昨天、最近7天、最近30天、本月、上一月、下一月以及输入时间段查询的ASP处理以及SQL语句。
此资料是经过http://www.f6n.net的站长joe整理得来，转载请注明出处！
演示地址：http://www.f6n.net/examples/aspdate/
======================以下为相关资料开始=====================
首先定义开始日期sdate，结束日期edate，以及格式化日期函数
thetime为数据库中，我们要统计的日期型字段
<% dim sdate,edate Public Function FormatDate(DateAndTime, para)   On Error Resume Next   Dim y, m, d, h, mi, s, strDateTime   FormatDate = DateAndTime   If Not IsNumeric(para) Then Exit Function   If Not IsDate(DateAndTime) Then Exit Function   y = CStr(year(DateAndTime))   m = CStr(Month(DateAndTime))   If Len(m) = 1 Then m = "0" & m   d = CStr(Day(DateAndTime))   If Len(d) = 1 Then d = "0" & d   h = CStr(Hour(DateAndTime))   If Len(h) = 1 Then h = "0" & h   mi = CStr(Minute(DateAndTime))   If Len(mi) = 1 Then mi = "0" & mi   s = CStr(Second(DateAndTime))   If Len(s) = 1 Then s = "0" & s   Select Case para   Case "1"   strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s   Case "2"   strDateTime = y & "-" & m & "-" & d   Case "3"   strDateTime = y & "/" & m & "/" & d   Case "4"   strDateTime = y & "年" & m & "月" & d & "日"   Case "5"   strDateTime = m & "-" & d   Case "6"   strDateTime = m & "/" & d   Case "7"   strDateTime = m & "月" & d & "日"   Case "8"   strDateTime = y & "年" & m & "月"   Case "9"   strDateTime = y & "-" & m   Case "10"   strDateTime = y & "/" & m   Case Else   strDateTime = DateAndTime   End Select   FormatDate = strDateTime End Function %>

1、处理今日
代码：
  datesql=" and DateDiff('d',thetime,'"&FormatDate(now(),2)&"')=0"'今日的SQL语句，day差为0   sdate=FormatDate(now(),2)  '今日开始日期   edate=sdate  '今日结束日期，和开始日期是一样的

2、处理昨日
代码：
  datesql=" and DateDiff('d',thetime,'"&FormatDate(now(),2)&"')=1"'昨日SQL语句，day差为1   sdate=FormatDate(DateAdd("d",-1,now()),2)'昨日开始日期=今日日期-1天   edate=sdate'昨日结束日期和开始日期相同


3、最近7日
代码：
  sdate=FormatDate(DateAdd("d",-6,now()),2)'开始日期，从今日起，7天，差值为6，day-6   edate=FormatDate(now(),2)'结束日期=今日   datesql=" and thetime between #"&DateAdd("d",-1,sdate)&"# and #"&DateAdd("d",1,edate)&"#"'sql语句，between不包含首尾日期，所以开始day-1,结束day+1

4、最近30日
代码：
  sdate=FormatDate(DateAdd("d",-29,now()),2)'开始日期，从今日起，30天，差值为29，day-29   edate=FormatDate(now(),2)'结束日期=今日   datesql=" and thetime between #"&DateAdd("d",-1,sdate)&"# and #"&DateAdd("d",1,edate)&"#"'sql语句，between不包含首尾日期，所以开始day-1,结束day+1


5、本月
代码：
  sdate=FormatDate(now(),9)&"-01"'得到本月第一天1号   edate=FormatDate(now(),9)&Cdate(FormatDate(now(),9)&"-01")-Cdate(FormatDate(DateAdd("m",1,now()),9)&"-01")'算出本月最后一天，本月第一天-下月第一天=本月最后一天   datesql=" and thetime between #"&DateAdd("d",-1,sdate)&"# and #"&DateAdd("d",1,edate)&"#"'sql语句，between不包含首尾日期，所以开始day-1,结束day+1



6、上一月，下一月
传递了一个m参数，m=-1说明上一月，m=-2说明前二月，m=0说明本月
tdate，临时日期变量
代码：
  m=trim(request.QueryString("m"))'取m值   if isnumeric(m) then'判断是否有效数字   'm是有效数字进行如下操作     m=cint(m)将其转换     tdate=FormatDate(DateAdd("m",m,now()),9)'将前N或者后N月计算，并赋值临时日期变量     sdate=tdate&"-01"'得到前N月或后N月1号     edate=tdate&Cdate(tdate&"-01")-Cdate(FormatDate(DateAdd("m",1,cdate(tdate)),9)&"-01")'通过月初1号-下月1号得出前N月或后N月最后一天     datesql=" and thetime between #"&DateAdd("d",-1,sdate)&"# and #"&DateAdd("d",1,edate)&"#"'sql语句，between不包含首尾日期，所以开始day-1,结束day+1   else   'm不是有效数字，默认为本月     m=0     sdate=FormatDate(now(),9)&"-01"     edate=FormatDate(now(),9)&Cdate(FormatDate(now(),9)&"-01")-Cdate(FormatDate(DateAdd("m",1,now()),9)&"-01")     datesql=" and thetime between #"&DateAdd("d",-1,sdate)&"# and #"&DateAdd("d",1,edate)&"#"   end if

7、输入日期时间段
  sdate=trim(request.QueryString("sdate"))'读取输入的开始日期   if isdate(sdate) then'判断是否有效日期     sdate=FormatDate(sdate,2)'对有效日期进行格式化   else     sdate=FormatDate(now(),2)'不是有效日期，默认当前日期   end if   edate=trim(request.QueryString("edate"))'读取输入的结束日期   if isdate(edate) then'判断日期是否有效     edate=FormatDate(edate,2)'对有效日期进行格式化   else     edate=FormatDate(now(),2)'不是有效日期，默认当前日期，并进行格式化   end if      if cdate(sdate)>cdate(edate) then'如果开始日期大于结束日期，交换两个位置     tdate=edate     edate=sdate     sdate=tdate   end if   datesql=" and thetime between #"&DateAdd("d",-1,sdate)&"# and #"&DateAdd("d",1,edate)&"#"'SQL语句处理

此资料是经过http://www.f6n.net的站长joe整理得来，转载请注明出处！
演示地址：http://www.f6n.net/examples/aspdate/