<%
dim i
dim datestrat
i=4
datestart = "2014-2-23" '第一天值班开始日期
redim job(i-1)
job(0) = "值班领导：甲"
job(1) = "值班领导：乙"
job(2) = "值班领导：丙"
job(3) = "值班领导：丁"

Response.write date() &" 今日值班:"&job((date()-cdate(datestart)) mod i)
%>

如何才能在上午8:00在开始换班呢，现在系统是默认每天0:00正式执行

if hour(now()) >= 8 then
   zhi = (date()-cdate(datestart)) mod i)

else
   zhi = (date()-cdate(datestart)) mod i) - 1
end if
Response.write date() &" 今日值班:"&job(zhi)

'至于 zhi 的变化，你自己加条件判断

谢谢版主！