复选框多值插入数据库的代码之终结版解决！置顶！！！！

刚开始和大家写的代码一样是这样，但是只能获取到一个值到数据库
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了！