<%
a=date()
w=weekday(a)
select case w
case 1
s="日"
case 2
s="一"
case 3
s="二"
case 4
s="三"
case 5
s="四"
case 6
s="五"
case 7
s="六"
end select
response.Write("今天星期"&s)
%>