亚洲中文久久精品无码1_亚洲中文字幕久久无码_中文字幕精品亚洲无线码一区_国产亚洲欧美日韩亚洲中文色

　　<%
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
%>