time.asp

fdafaf af

<%
dim out_year
out_year=year(now())
'输出当前的月数
dim out_month
out_month=month(now())
'输出今天是星期几，注意一个星期的第一天是星期天哦，呵呵
dim out_day
out_day=day(now())

dim strweek(7)
strweek(1)="星期日"
strweek(2)="星期一"
strweek(3)="星期二"
strweek(4)="星期三"
strweek(5)="星期四"
strweek(6)="星期五"
strweek(7)="星期六"

dim out_weekday
select case weekday(now())
case 1
	out_weekday=strweek(1)
case 2
	out_weekday=strweek(2)
case 3
	out_weekday=strweek(3)
case 4
	out_weekday=strweek(4)
case 5
	out_weekday=strweek(5)
case 6
	out_weekday=strweek(6)
case 7
	out_weekday=strweek(7)
end select
%>