ASP如何用复选框添加多条数据入表格内?
ASP如何用复选框添加多条数据入表格内?我复选框的values是“姓名”这个字段的值每一行信息有姓名性别专业这些组成每一个复选框就代表一行我想实现选择多个复选框然后添加就...
ASP如何用复选框添加多条数据入表格内?
我复选框的values是“姓名”这个字段的值
每一行信息有姓名性别专业这些组成
每一个复选框就代表一行
我想实现选择多个复选框然后添加就添加多条信息
但是目前我的语句只能实现单选,多选就插入不成功
复选框的ID是checked
dim rscho,strcho
set rscho=server.CreateObject("ADODB.Recordset")
rscho.open "select * from ChoosedExpert",con,1,3
rscho.AddNew
rscho("项目编号")=session("XMBH")
rscho("姓名")=trim(request.form("checked"))
rscho.update
response.Write"<script language=""VBscript"">msgbox""抽取成功""</script>"
这条测试语句的话只能把多条姓名插入到一个字段中
dim rscho,strcho1,strcho2
set rscho=server.CreateObject("ADODB.Recordset")
strcho1="insert into ChoosedExpert(项目编号,姓名,性别,所在行业,所属专业,最高学历,职称) select '"&session("XMBH")&"',姓名,性别,所在行业,所属专业,最高学历,职称 from Expert where 姓名='"&Request.Form("checked")&"'"
rscho.open strcho,con
response.Write"<script language=""VBscript"">msgbox""抽取成功""</script>"
response.Write"<script>window.location=""ChooseExpert.asp""</script>"
这条测试语句的话 ,如果单选就插入成功,多选就不行 展开
我复选框的values是“姓名”这个字段的值
每一行信息有姓名性别专业这些组成
每一个复选框就代表一行
我想实现选择多个复选框然后添加就添加多条信息
但是目前我的语句只能实现单选,多选就插入不成功
复选框的ID是checked
dim rscho,strcho
set rscho=server.CreateObject("ADODB.Recordset")
rscho.open "select * from ChoosedExpert",con,1,3
rscho.AddNew
rscho("项目编号")=session("XMBH")
rscho("姓名")=trim(request.form("checked"))
rscho.update
response.Write"<script language=""VBscript"">msgbox""抽取成功""</script>"
这条测试语句的话只能把多条姓名插入到一个字段中
dim rscho,strcho1,strcho2
set rscho=server.CreateObject("ADODB.Recordset")
strcho1="insert into ChoosedExpert(项目编号,姓名,性别,所在行业,所属专业,最高学历,职称) select '"&session("XMBH")&"',姓名,性别,所在行业,所属专业,最高学历,职称 from Expert where 姓名='"&Request.Form("checked")&"'"
rscho.open strcho,con
response.Write"<script language=""VBscript"">msgbox""抽取成功""</script>"
response.Write"<script>window.location=""ChooseExpert.asp""</script>"
这条测试语句的话 ,如果单选就插入成功,多选就不行 展开
2个回答
展开全部
rscho.AddNew
rscho("项目编号")=session("XMBH")
rscho("姓名")=trim(request.form("checked"))
rscho.update
以上几行修改为:
For i=1 to request("checked").count
rscho.AddNew
rscho("项目编号")=session("XMBH")
rscho("姓名")=trim(request("checked")(i))
rscho.update
Next
rscho("项目编号")=session("XMBH")
rscho("姓名")=trim(request.form("checked"))
rscho.update
以上几行修改为:
For i=1 to request("checked").count
rscho.AddNew
rscho("项目编号")=session("XMBH")
rscho("姓名")=trim(request("checked")(i))
rscho.update
Next
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询