<%
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%>
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%>
面朝大海,春暖花开!