| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 778 人关注过本帖
标题:用复选框写入时数组越界怎么解决啊。
取消只看楼主 加入收藏
annywen
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-9-13
收藏
 问题点数:0 回复次数:0 
用复选框写入时数组越界怎么解决啊。
用复选框写入时数组越界怎么解决啊。大家帮我看看啊。
周次 星期 学期
班级 班主任 晚间管理


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

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

搜索更多相关主题的帖子: OPTION 复选框 越界 TABLE 
2006-04-06 10:29
快速回复:用复选框写入时数组越界怎么解决啊。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016069 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved