<%
sub datetime
dat=int(datediff("d",dateserial(2007,2,28),now) mod 7)
response.Write(formatdatetime(now,1))&"nbsp;"
select case dat
case 0
response.Write"星期天"
case 1
response.write"星期一"
case 2
response.write"星期二"
case 3
response.write"星期三"
case 4
response.write"星期四"
case 5
response.write"星期五"
case 6
response.write"星期六"
end select
end sub
%>
<%call datetime%>

为什么显示的 星期不是当前的星期呢 比如三月一日 是周四 但这里显示的是周天？？？
如果我把dat=int(datediff("d",dateserial(2007,2,28),now) mod 7)
改为dat=int(datediff("d",dateserial(2000,8,27),now) mod 7)
显示就正确

你没明白原理……

你就用dat=int(datediff("d",dateserial(2000,8,27),now) mod 7)吧，这是对的。


2000，8，27 是星期天。
这个程序是判断

今天“2007，3，1”跟“2000，8，27”相差N天
N除以7，得到一个余数。
如果这个余数等于0，那么今天就是星期天
如果这个余数等于3，那么今天就是星期三

一切都是以2000，8，27日为标准做判断的。如果你改了这个用作对比的日期，后面的对比结果也需要改

[此贴子已经被作者于2007-3-1 15:44:28编辑过]

你不象是才学两个星期asp的人.

谢谢夸奖

我学两个星期ASP是真的，主要是各种命令和语法不会用。
用的是速成教材，我只看了VB这一章和内置的那几个对象的一章。所以知识显得比较残缺。

我的专业是数学，也学过C语言，所以编程的思路还是有的。

[此贴子已经被作者于2007-3-1 15:56:18编辑过]