今天是：<%=year(now())%>年<%=month(now())%>月<%=day(now())%>日 <% 
select case Weekday(Date) 
case "1" 
response.write"星期日" 
case "2" 
response.write"星期一" 
case "3" 
response.write"星期二" 
case "4" 
response.write"星期三" 
case "5" 
response.write"星期四" 
case "6" 
response.write"星期五" 
case "7" 
response.write"星期六" 
case else 
response.write"很抱歉！我也不知道是星期几" 
end select 
%>