金色童年欢迎您,今天是<%=date()%>
<%dim week
week=weekday(date())
select case week
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 "星期六"
end select
%>