转换日期为星期几函数

<%
''idate为标准日期格式
'itype为0时表示英文星期几,否则为中文

Function showweek()function showweek(idate,itype)

if itype <> 0 then 
itype = 1
end if

dim inum,nday

inum = weekday(idate)

if itype = 0 then 

select case inum 
case 1 
nday = "Sunday" 
case 2 
nday = "Monday" 
case 3 
nday = "Tuesday" 
case 4 
nday = "Wednesday" 
case 5 
nday = "Thursday" 
case 6 
nday = "Friday" 
case 7 
nday = "Saturday" 

end select

else 

select case inum 

case 1 
nday = "星期天" 
case 2 
nday = "星期一" 
case 3 
nday = "星期二" 
case 4 
nday = "星期三" 
case 5 
nday = "星期四" 
case 6 
nday = "星期五" 
case 7 
nday = "星期六" 

end select

end if

showweek = nday

end function
%>

<%
idate=now()
response.write showweek(idate,1)
%>

输入指定的日期，计算当天为星期几的函数，可以泛用于需要统计一周点击排名等相似的场合。