for i=1 to recCnt '记录数目 bzr=trim(request.form("bzr")(i)) classa=trim(request.form("classa")(i)) F="否" ' F 表示晚间管理
F=request.form("F")(i) select case F case 1 F="是" case else F="否" end select
nd=left(classa,1) if nd="1" then nianduan="高一" elseif nd="2" then nianduan="高二" else nianduan="高三" end if sql = "select * from gbook where week='"&week&"' and weekday='"&weekdaya&"' and term='"&term&"' and nianduan='"&nianduan&"' and bzr='"&bzr&"' and (flag1=1 or flag2=1) " Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open sql,conn,3,2 if not rs.bof then Rs("F")=F rs("flagf")=1 Rs("username3")=username rs.update