UC知道ASP新增多条记录问题
来源：百度知道 编辑：UC知道 时间：2024/06/24 10:12:23
<input type="hidden" name="uid" value="u_1">
<input type="radio" name="check_1" value="a" checked>
<input type="radio" name="check_1" value="b">
<input type="radio" name="check_1" value="c">
<input type="text" name="info_1">
<input type="hidden" name="uid" value="u_2">
<input type="radio" name="check_2" value="a" checked>
<input type="radio" name="check_2" value="b">
<input type="radio" name="check_2" value="c">
<input type="text" name="info_2">
<input type="hidden" name="uid" value="u_4">
<input type="radio" name="check_4" valu
<input type="radio" name="check_1" value="a" checked>
<input type="radio" name="check_1" value="b">
<input type="radio" name="check_1" value="c">
<input type="text" name="info_1">
<input type="hidden" name="uid" value="u_2">
<input type="radio" name="check_2" value="a" checked>
<input type="radio" name="check_2" value="b">
<input type="radio" name="check_2" value="c">
<input type="text" name="info_2">
<input type="hidden" name="uid" value="u_4">
<input type="radio" name="check_4" valu
这个代码,不限于以上四组数据,只要按以上标准格式,同一个表单有几组都可进行处理
<%
dim conn
idlst=ucase(trim(request.form("uid")))
idlst=replace(idlst,"U_","") '将UID列表处理成数字列表
idlst=replace(idlst," ","") '去掉空格
if idlst<>"" then
vdata=split(idlst,",") '将列表分解成数组
set conn=server.createobject("ADODB.CONNECTION")
conn.open "数据库连接串" '打开数据库，需要根据连接的数据库类型写
for l=lbound(vdata) to ubound(vdata)
chk=request.form("check_" & vdata(l)) '获取相关UID的CHECK
data=request.form("info_" & vdata(l)) '获取相关UID的INFO
strsql="INSERT 数据表(uid,check,info) values(" & vdata(l) & ",'" & chk & "','" & data & "')"
conn.execute strsql '添加到数据库
next
conn.close
set conn=nothing
response.write "共添加" & cstr(ubound(vdata)+1)