ASP关于“本周热门/近期排行”的代码
作者:wang 日期:2009-10-13
上一星期(七天之内):
select * from art where [now] between dateadd("ww",-1,now()) and now()
上一星期(上周一至周日):
select * from art where [now] between dateadd("d",-Weekday(Now())-5,now()) and dateadd("d",-Weekday(Now())+1,now())
上一月(上月的今天至今天):
select * from art where [now] between dateadd("m",-1,now()) and now()
上一月(1号至最后一天):
select * from art where [now] between dateserial(year(now),month(now())-1,1) and dateserial(year(now),month(now()),1-1)
'先得到今天是星期几
cweek = WeekDay(now())
sql = "select * from 表 where id > 0"
select case cweek
case 1 '星期天 本周第一天
sql = sql & " and cdate between '" & formartdatetime(now(),2) & " 00:00' and '" & formartdatetime(now(),2) & " 23:59')"
case 2 '星期一
sql = sql & " and cdate between '" & formartdatetime(now()-1,2) & " 00:00' and '" & formartdatetime(now(),2) & " 23:59')"
case 3 '星期二
sql = sql & " and cdate between '" & formartdatetime(now()-2,2) & " 00:00' and '" & formartdatetime(now(),2) & " 23:59')"
...............
case 7 '星期六
sql = sql & " and cdate between '" & formartdatetime(now()-6,2) & " 00:00' and '" & formartdatetime(now(),2) & " 23:59')"
end select
sql = sql & " order by cdate desc"
'以上语句均为MSSQL语句
select * from art where [now] between dateadd("ww",-1,now()) and now()
上一星期(上周一至周日):
select * from art where [now] between dateadd("d",-Weekday(Now())-5,now()) and dateadd("d",-Weekday(Now())+1,now())
上一月(上月的今天至今天):
select * from art where [now] between dateadd("m",-1,now()) and now()
上一月(1号至最后一天):
select * from art where [now] between dateserial(year(now),month(now())-1,1) and dateserial(year(now),month(now()),1-1)
'先得到今天是星期几
cweek = WeekDay(now())
sql = "select * from 表 where id > 0"
select case cweek
case 1 '星期天 本周第一天
sql = sql & " and cdate between '" & formartdatetime(now(),2) & " 00:00' and '" & formartdatetime(now(),2) & " 23:59')"
case 2 '星期一
sql = sql & " and cdate between '" & formartdatetime(now()-1,2) & " 00:00' and '" & formartdatetime(now(),2) & " 23:59')"
case 3 '星期二
sql = sql & " and cdate between '" & formartdatetime(now()-2,2) & " 00:00' and '" & formartdatetime(now(),2) & " 23:59')"
...............
case 7 '星期六
sql = sql & " and cdate between '" & formartdatetime(now()-6,2) & " 00:00' and '" & formartdatetime(now(),2) & " 23:59')"
end select
sql = sql & " order by cdate desc"
'以上语句均为MSSQL语句
评论: 0 | 引用: 0 | 查看次数: 2319
发表评论