< % ' ' idate为标准日期格式 ' itype为0时表示英文星期几,否则为中文 Function showweek() function showweek(idate,itype)if itype <> 0 then itype = 1end ifdim inum,ndayinum = 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 selectelse 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 selectend ifshowweek = ndayend function % > < %idate = now()response.write showweek(idate, 1 )% > 输入指定的日期,计算当天为星期几的函数,可以泛用于需要统计一周点击排名等相似的场合。