asp日期前推一周

使用 DateAdd 函数，函数原形：DateAdd(interval, number, date)

其中参数 interval 的含义如下：

yyyy 年

q 季度

m 月

y 一年的日数

d 日

w 一周的日数

ww 周

h 小时

n 分钟

s 秒

示例：

Dim date1, date2

date1 = Now '获取当前日期

date2 = DateAdd("ww", 1, date1)

若要取出日期部分请用 DateValue 函数。

以下是ASP源码，你把它放到你的abcasp页面中，然后在你需要输出文字的地方输出datestr就行了

<%

sessioncodepage = 936 '设置输出编码

responseCharset = "gb2312" '设置编码格式

dim typestr,datestr : typestr = request("type") '定义变量获取type值,输出文字字符串变量datestr

'-------------方法一，用if语句

if typestr = "today" then

datestr = "今日"

elseif typestr = "nextday" then

datestr = "明日"

elseif typestr = "week" then

datestr = "本周"

elseif typestr = "month" then

datestr = "本月"

elseif typestr = "year" then

datestr = "今年"

else

datestr = "未获取到时间参数或者无效的参数"

end if

'---------------------------------------------------

'-------------方法二，用select case语句

select case typestr

case "today" : datestr = "今日"

case "nextday": datestr = "明日"

case "week" : datestr = "本周"

case "month" : datestr = "本月"

case"year" : datestr = "今年"

case else : datestr = "未获取到时间参数或者无效的参数"

end select

'---------------------------------------------------

responseWrite(datestr) '输出变量，用到你想用到的位置datestr

%>

单日按单日假期算，但51如果不靠近周日，那谁知道国家规定怎么放假呢？

比方日期范围为：4：25-5：1 这个51假期怎么算呢？

如果日期范围不靠近假期边缘就好说了

给你个思路吧：

用数组来保存假期日期和相应的假期数

然后，如果假期日在这个时间段内(假期日期大于等于T1 且假日小于等于T2)，然后假期就加上假期数，这样循环比较完了假期数就是你要的结果了

这还不简单。

和每日访问一样的道理。

我先写每日访问量，等下在给你说怎么改。

if(application("date")=="" or application("date")<date)

{

applicationlock

application("today")=1

application("date")=date //1

applicationunlock

session("isAdd")="qq"

}

else

{

if(session("isAdd")=="")

{

application("today")=application("today")+1

session("isAdd")="qq"

}

}

好了，写完了(如果你想做得更好，你可以添加cookies的验证)。

如果要改周访问量，那你就先算出这周末的日期，把它放到文本里面，到时date(就是这一周的最后一天，你可以使用文件对象来进行 *** 作),到了下周一如果有人访问的话访问量就会刷新，你这时当然要指定下周末的日期了，在1那里放入日期(但是你也要写入文本里面，到时好读取)。

可以使用DayRender事件改变Calendar控件的呈现。例如： protected void Calendar1_DayRender(object sender, DayRenderEventArgs e) { //判断如果当前日期是星期天 if (eDayIsWeekend) { eCellText = 周数; } }

在新闻表中使用一个(时间/日期类型)字段保存时间数据

'以周计算(如以月计算则将'ww'改为'm'即可)

Set rs=Connexecute("Select from [News] where DateDiff('ww',news_date,now())=0 order by news_date desc")

do while not (rseof or rsbof)

'''''

'''''

rsmovenext

loop

Set rs=Nothing

access数据库

select from table where datediff('d',贴子发表日期字段,now())<=7

sql数据库

select from table where datediff(day,贴子发表日期字段,getdate())<=7

以上就是关于asp日期前推一周全部的内容，包括:asp日期前推一周、ASP 高手请进、ASP在一个时间范围内如何自动算出有几天法定节假日等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！