今日值班：
<script type=text/javascript>
function jinrizhiban(){
//把需要排班的姓名按照排班顺序写在下面一行里面就可以
var pers=new Array('张三','李四','同志1','同志2','同志3','同志4','同志5','同志6');
//调整下面的调整因子，能控制启用程序的那天由谁值班，以后都能自动更新显示
var ctrl_param=1;
var now=new Date();
var days=parseInt(now.getTime()/24/3600/1000);
return pers[(days+ctrl_param) % pers.length];
}
document.write(jinrizhiban());
</script>

特别说明：只想用JS。

FRAME不用。

应用是什么？ 什么效果？

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

http://www.netton.cn/content.asp?id=2288

早就放网上了

很简单