Example Code:
<%
Dim intDay
intDay = weekDay(Now())
function WeekDayName (intDay)
select case intDay
case 1
WeekDayName = "Sun."
case 2
WeekDayName = "Mon."
case 3
WeekDayName = "Tue."
case 4
WeekDayName = "Wed."
case 5
WeekDayName = "Thu."
case 6
WeekDayName = "Fri."
case 7
WeekDayName = "Sat."
end select
end function
%>
if intDay=1 then
WeekDayName1 = "Sun."
elseif intDay=2 then
WeekDayName1 = "Mon."
elseif intDay=3 then
WeekDayName1 = "Tue."
elseif intDay=4 then
WeekDayName1 = "Wen"
elseif intDay=5 then
WeekDayName1 = "Thu."
elseif intDay=6 then
WeekDayName1="Fri."
elseif intDay=7 then
WeekDayName1 = "Sat."
end if
<%
Dim intDay
intDay = Day(Now())
function WeekDayName (intDay)
select case intDay
case 1
WeekDayName = "周日"
case 2
WeekDayName = "周一"
case 3
WeekDayName = "周二"
case 4
WeekDayName = "周三"
case 5
WeekDayName = "周四"
case 6
WeekDayName = "周五"
case 7
WeekDayName = "周六"
end select
end function
%>
| 
