<%''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)%> 输入指定的日期,计算当天为星期几的函数,可以泛用于需要统计一周点击排名等相似的场合。