show.asp代码如下： <% dim i dim k '多少组 dim datestrat i=5 k=12 '四组 datestart = "2009-5-1" '第一天值班开始日期 redim job(i-1) redim work(k-1) job(0) = "闫涛" job(1) = "赵庆波" job(2) = "张帆" job(3) = "刘军" job(4) = "薛建新" work(0) = "闫涛" work(1) = "赵庆波" work(2) = "张帆" work(3) = "刘军" work(4) = "薛建新" work(5) = "杨广" work(6) = "谢寅平" work(7) = "曲忠勇" work(8) = "李晓辉" work(9) = "张秀" work(10) = "扬海涛" work(11) = "杨宝成" Response.write " 今日值班领导:"&job((date()-cdate(datestart)) mod i) Response.write " 值班员:"&work((date()-cdate(datestart)) mod k) Response.write " 明日值班领导:"&job((date()+1-cdate(datestart)) mod i) Response.write " 值班员:"&work((date()+1-cdate(datestart)) mod k) %>

特别说明：只想用JS。

FRAME不用。

显示：今日值班领导：****，值班员：***。明日值班领导：***，值班员：***。

ASP的文件名是SHOW.ASP

<%
dim i
dim k '多少组
dim datestrat
i=5
k=12 '四组
datestart = "2009-5-1" '第一天值班开始日期
redim job(i-1)
redim work(k-1)
job(0) = "闫涛"
job(1) = "赵庆波"
job(2) = "张帆"
job(3) = "刘军"
job(4) = "薛建新"

work(0) = "闫涛"
work(1) = "赵庆波"
work(2) = "张帆"
work(3) = "刘军"
work(4) = "薛建新"
work(5) = "杨广"
work(6) = "谢寅平"
work(7) = "曲忠勇"
work(8) = "李晓辉"
work(9) = "张秀"
work(10) = "扬海涛"
work(11) = "杨宝成"
Response.write " 今日值班领导:"&job((date()-cdate(datestart)) mod i)
Response.write " 值班员:"&work((date()-cdate(datestart)) mod k)
Response.write " 明日值班领导:"&job((date()+1-cdate(datestart)) mod i)
Response.write " 值班员:"&work((date()+1-cdate(datestart)) mod k)
%>