网页制作.求个代码。关于排值班表的问题

来源：百度知道 编辑：UC知道 时间：2024/06/05 16:07:55
有4个班，每天轮流值班，只想在网页一角上显示每天哪几个人值班就行了。4个班轮流显示。求个能满足的代码``谢谢。
不好意思，本人是个编程白痴```
给个复制过来直接可以运行的，不然我不知道怎么改。。
好的可以再加分。

1班:A1 B1 C1 D1,2班:A2 B2 C2 D2,3班:A3 B3 C3 D3,4班:A4 B4 C4 D4

Dim SJC,CZI
SJC=DateDiff("d",date,"2007-1-1")
CZI=SJC Mod 4
if CZI=1 THEN
'1班值班，显示A1 B1 C1 D1即可
ELSEIF CZI=2 THEN
'2班值班，显示A2 B2 C2 D2即可
ELSEIF CZI=3 THEN
'3班值班，显示A3 B3 C3 D3即可
ELSEIF CZI=0 THEN
'4班值班，显示A4 B4 C4 D4即可
END IF

先建个表,2个字段,一个存人名,一个存时间
要代码可以给你做一个,不过你的建个表给我,我没ACCESS

表里包含班级名称和姓名加ID就足够了代码也很少的