<%
dim tdays,tdas,myday,tweek
tdays=now()s
tdas=formatdatetime(tdays,vblongdate)
myday=day(tdays)
select case Weekday(tdays)
case "1"
tweek="星期日"
case "2"
tweek="星期一"
case "3"
tweek="星期二"
case "4"
tweek="星期三"
case "5"
tweek="星期四"
case "6"
tweek="星期五"
case "7"
tweek="星期六"
case else
response.write "难道有传说中的星期八"
end select
%>