作者在 2014-04-22 11:26:21 发布以下内容
刚开始和大家写的代码一样是这样,但是只能获取到一个值到数据库
dim cname,i
cname=request.Form("cname")
cnames=split(cname,",")
set rs=server.CreateObject("adodb.recordset")
sql="select * from info"
rs.open sql,conn,1,3
rs.addnew
for i=0 to ubound(cnames)
rs("cname")=cnames(i)
rs.close
next
set rs=nothing
<td><input class="form_checkbox" name="c_name" type="checkbox" value="752" /></td>
<td>上海国际大酒店钢结构项目</td>
<td><input class="form_checkbox" name="c_name" type="checkbox" value="753" /></td>
<td>上海国际大酒店钢结构项目</td>
<td><input class="form_checkbox" name="c_name" type="checkbox" value="754" /></td>
<td>上海国际大酒店钢结构项目</td>
<td><input class="form_checkbox" name="c_name" type="checkbox" value="755" /></td>
<td>上海国际大酒店钢结构项目</td>
<td><input class="form_checkbox" name="c_name" type="checkbox" value="756" /></td>
<td>上海国际大酒店钢结构项目</td>
<td><input class="form_checkbox" name="c_name" type="checkbox" value="757" /></td>
<td>上海国际大酒店钢结构项目</td>
这样写只能把一个id存到字段里面
改良后的代码为
Dim str_select
str_select = CStr(request.Form("cname"))
Set rs = ado_query_modify("select * from info")
rs.addnew
'插入数据库代码
rs("cname") = str_select
CStr 这里用到这个函数
大家参照我的这个修改就ok了!
dim cname,i
cname=request.Form("cname")
cnames=split(cname,",")
set rs=server.CreateObject("adodb.recordset")
sql="select * from info"
rs.open sql,conn,1,3
rs.addnew
for i=0 to ubound(cnames)
rs("cname")=cnames(i)
rs.close
next
set rs=nothing
<td><input class="form_checkbox" name="c_name" type="checkbox" value="752" /></td>
<td>上海国际大酒店钢结构项目</td>
<td><input class="form_checkbox" name="c_name" type="checkbox" value="753" /></td>
<td>上海国际大酒店钢结构项目</td>
<td><input class="form_checkbox" name="c_name" type="checkbox" value="754" /></td>
<td>上海国际大酒店钢结构项目</td>
<td><input class="form_checkbox" name="c_name" type="checkbox" value="755" /></td>
<td>上海国际大酒店钢结构项目</td>
<td><input class="form_checkbox" name="c_name" type="checkbox" value="756" /></td>
<td>上海国际大酒店钢结构项目</td>
<td><input class="form_checkbox" name="c_name" type="checkbox" value="757" /></td>
<td>上海国际大酒店钢结构项目</td>
这样写只能把一个id存到字段里面
改良后的代码为
Dim str_select
str_select = CStr(request.Form("cname"))
Set rs = ado_query_modify("select * from info")
rs.addnew
'插入数据库代码
rs("cname") = str_select
CStr 这里用到这个函数
大家参照我的这个修改就ok了!