<% Response.Write year(date)&"年"&month(date)&"月"%> <% Response.Write day(date)%> <% 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%>
