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