Today=Date()

NowYear=Year(Today)
NowMonth=Month(Today)

NowDay=Day(Today)

Document.write NowYear&"年"&NowMonth&"月"&NowDay&"日"
Document.write "  "
If WeekDay(Today)="1" then
Document.write "星期天"
end if
If WeekDay(Today)="2" then
Document.write "星期一"
end if
If WeekDay(Today)="3" then
Document.write "星期二"
end if
If WeekDay(Today)="4" then
Document.write "星期三"
end if
If WeekDay(Today)="5" then
Document.write "星期四"
end if
If WeekDay(Today)="6" then
Document.write "星期五"
end if
If WeekDay(Today)="7" then
Document.write "星期六"
end if