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