当我复选框全部都打勾的时候，不会出现越界，但只要有一条记录是不选择的，就变成数组越界了。数据写入方法:

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

else '如果没有找到就新写一条记录

Rs.addnew
Rs("username3")=username
Rs("term")=term
Rs("month")=montha
Rs("week")=week
Rs("weekday")=weekdaya
Rs("nianduan")=nianduan
Rs("classa")=classa
Rs("bzr")=bzr
Rs("F")=F
rs("flagf")=1
Rs("addtime")=now

Rs.update
end if
Rs.close
set Rs = nothing
next

conn.close
set conn = nothing
Response.redirect "index.asp"
Response.End