asp页面中的checkbox循环读取并插入数据库里的思路
选取多个checkbox删除的语句是：
delete from Table where ID in request.form("ID")
如果是一个form表单，里面有一些输入框，另外有一个checkbox有很多选择框，选中checkbox的checked之后，我要把选中的值和其他一些表单里的信息写到数据库里，怎么操作呢？
思路如下：假设a.asp 有一个
<input type="checkbox" name="id" value="变量ID">
这里ID值不同，大概有几十个选项吧。
form到b.asp里，
那么b.asp里首先要做的是a.asp里选中了多少个id为checkbox为checked状态。
语法如下：
Count=request.form("id").count
假设计算出来Count为35，则说明有35个name为id的checkbox选中的，也就是说插入数据库里需要写入35条数据，循环如下：
for i=1 to Count
ID=request.form("id")(i)
这里是sql的普通插入语句，上面的ID为当选中的记录为i时，读取第i的条件时，id变量值
next
还有一种方法大致相同只不过得到循环次数的方法不同，简单介绍一下
我有很多个checkbox在表单里面，name的名字都一样，希望能多选，然后写进数据库。
然后我想了一下，决定循环读取
dim sql,project_id,expert_name,expert_nameStr
project_id=request.form("project_id")
expert_nameStr=request.form("expert_name")
expert_nameStr=split(expert_nameStr,",") ''split函数将得到的字符创以逗号为分割对象将expert_nameStr分开
for i=0 to ubound(expert_nameStr) '''ubound函数得到分开后的字符串的最大数
expert_name=expert_nameStr(i)
Set Rs = server.createobject("ADODB.Recordset")
sql="select * from pingfen where pingfen_project_id="&project_id
rs.open sql,conn,1,3
if rs.eof then
sql="insert into pingfen (pingfen_project_id,pingfen_expert_name) values ('"&project_id&"','"&expert_name&"')"
conn.execute(sql)
else
rs("pingfen_expert_name")=expert_name
sql="update pingfen set pingfen_expert_name='"&expert_name&"'where pingfen_project_id="&project_id
conn.execute(sql)
end if
Next
Call AlertAndJump("操作成功！","../admin/fenpeizhuanjia.asp","smile")
delete from Table where ID in request.form("ID")
如果是一个form表单，里面有一些输入框，另外有一个checkbox有很多选择框，选中checkbox的checked之后，我要把选中的值和其他一些表单里的信息写到数据库里，怎么操作呢？
思路如下：假设a.asp 有一个
<input type="checkbox" name="id" value="变量ID">
这里ID值不同，大概有几十个选项吧。
form到b.asp里，
那么b.asp里首先要做的是a.asp里选中了多少个id为checkbox为checked状态。
语法如下：
Count=request.form("id").count
假设计算出来Count为35，则说明有35个name为id的checkbox选中的，也就是说插入数据库里需要写入35条数据，循环如下：
for i=1 to Count
ID=request.form("id")(i)
这里是sql的普通插入语句，上面的ID为当选中的记录为i时，读取第i的条件时，id变量值
next
还有一种方法大致相同只不过得到循环次数的方法不同，简单介绍一下
我有很多个checkbox在表单里面，name的名字都一样，希望能多选，然后写进数据库。
然后我想了一下，决定循环读取
dim sql,project_id,expert_name,expert_nameStr
project_id=request.form("project_id")
expert_nameStr=request.form("expert_name")
expert_nameStr=split(expert_nameStr,",") ''split函数将得到的字符创以逗号为分割对象将expert_nameStr分开
for i=0 to ubound(expert_nameStr) '''ubound函数得到分开后的字符串的最大数
expert_name=expert_nameStr(i)
Set Rs = server.createobject("ADODB.Recordset")
sql="select * from pingfen where pingfen_project_id="&project_id
rs.open sql,conn,1,3
if rs.eof then
sql="insert into pingfen (pingfen_project_id,pingfen_expert_name) values ('"&project_id&"','"&expert_name&"')"
conn.execute(sql)
else
rs("pingfen_expert_name")=expert_name
sql="update pingfen set pingfen_expert_name='"&expert_name&"'where pingfen_project_id="&project_id
conn.execute(sql)
end if
Next
Call AlertAndJump("操作成功！","../admin/fenpeizhuanjia.asp","smile")
