欧美高清一区二区三区欧美-欧美高清一区二区三区-欧美高清一区二区三-欧美高清一区二区-99在线观看免费-99在线观看精品视频

　　<%
Dim Week,WeekName
Week=WeekDay(Date())
if Week=1 then
WeekName="星期日"
end if
if Week=2 then
WeekName="星期一"
end if
if Week=3 then
WeekName="星期二"
end if
if Week=4 then
WeekName="星期三"
end if
if Week=5 then
WeekName="星期四"
end if
if Week=6 then
WeekName="星期五"
end if
if Week=7 then
WeekName="星期六"
end if

Response.write WeekName
%>