dim dd,mm,yy
dd=cstr(day(date))
mm=cstr(Month(date))
yy=cstr(year(date))
ww=weekday(date)
select case ww
case 1
 ww="星期天"
case 2
 ww="星期一"
case 3
 ww="星期二"
case 4
 ww="星期三"
case 5
 ww="星期四"
case 6
 ww="星期五"
case 7
 ww="星期六"
end select
if len(mm)=1 then
mm="0"+mm
end if
document.writeln(yy+"年"+mm+"月"+dd+"日 ")
document.writeln(ww)