asp批量修改数据,只对文本型,整型等字段有效,文本字段不能包含 , 号

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & Server.MapPath("test.mdb")

if request("action")="edit" then

 testid=request("testid")
 title=request("title")
 bh=request("bh")

 testid1=split(testid,",")
 title1=split(title,",")
 bh1=split(bh,",")

 for i = 0 to ubound(testid1)

  set rs=server.CreateObject("adodb.recordset")
  rs.open "select * from test where testid="&testid1(i),conn,1,3
  rs("title")=trim(title1(i))
  rs("bh")=trim(bh1(i))
  rs.Update
  rs.Close
  set rs=nothing

 next

end if

%>     

<form method="post" action="?action=edit">

      
<table>
  <tr>
    <td>ID</td>
    <td>字段一</td>
    <td>字段二</td>
  </tr>
<%

sql="select * from [test]"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then

else

  do while not rs.eof

%>

  <tr>
    <td><input type="hidden" name="testid" value="<%=rs("testid")%>"><%=rs("testid")%></td>
    <td><input type="text" name="title" value="<%=rs("title")%>"></td>
    <td><input type="text" name="bh" value="<%=rs("bh")%>"></td>
  </tr>

<%
 
  rs.movenext
  loop
 
end if
rs.close
set rs = nothing
conn.close
set conn = nothing

%>

<tr>
  <td colspan="3" align="center"><input name="submit" type="submit" value="修改"></td>
</tr>

</table>

</form>