程序代码：

<%
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)
%>