function cweekday(dt)
	select case dt
	case 1
		str="天"
	case 2
		str="一"
	case 3
		str="二"
	case 4
		str="三"
	case 5
		str="四"
	case 6
		str="五"
	case 7
		str="六"
	end select
	cweekday=str
end function

dt=now
dt=year(dt)&"年"&month(dt)&"月"&day(dt)&"日 星期"&cweekday(weekday(dt))
document.write dt