asp 函数 自动中文输出星期几

<%
function weekday_name(riqi)

daytime=weekday(riqi)
select case  daytime
      case 1
   weekday_name="星期日"
   case 2
   weekday_name="星期一"
   case 3
   weekday_name="星期二"
   case 4
   weekday_name="星期三"
   case 5
   weekday_name="星期四"
   case 6
   weekday_name="星期五"
   case 7
   weekday_name="星期六"
   case else
   weekday_name=""
end select
end function

'response.Write weekday_name(now)
%> 

2007年07月31

发现一句能直接输出来的方法

<%Response.Write "今天是"&Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日 "&WeekDayName(WeekDay(Date))%>