<%response.write FormatDateTime(Date, 1)&" "
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 "星期六"
end select%>
