Question

ASP新增多条记录问题

<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" value="a" checked>
<input type="radio" name="check_4" value="b">
<input type="radio" name="check_4" value="c">
<input type="text" name="info_4">

<input type="hidden" name="uid" value="u_7">
<input type="radio" name="check_7" value="a" checked>
<input type="radio" name="check_7" value="b">
<input type="radio" name="check_7" value="c">
<input type="text" name="info_7">

要求添加到数据库后为

.id uid check info
-----------------------------
自动 1 a dddd
自动 2 b hhhh
自动 4 c dddd
自动 7 b eeee

请问用ASP语句怎么实现？？
.
所有input都在同一个form中，一次提交上去的~

请给出详细代码，并作简单注释~~

Answer 1

这个代码,不限于以上四组数据,只要按以上标准格式,同一个表单有几组都可进行处理

<%
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) & "组数据"
else
response.write "无数据"
end if
%>

Answer 2

你最好把你的代码稍微改下，一下就是我改过的，就是name改下，容易循环读出，你是1，2，4，7我改成1，2，3，4
<input type="hidden" name="uid_1" 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_2" 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_3" value="u_4">
<input type="radio" name="check_3" value="a" checked>
<input type="radio" name="check_3" value="b">
<input type="radio" name="check_3" value="c">
<input type="text" name="info_3">

<input type="hidden" name="uid_4" value="u_7">
<input type="radio" name="check_4" value="a" checked>
<input type="radio" name="check_4" value="b">
<input type="radio" name="check_4" value="c">
<input type="text" name="info_4">
<%
if request.form.count>0 then
for i=1 to 4
uid_&i=request.form("uid_"&i)
check_&i=request.form("check_"&i)
info_&i=request.form("info_"&i)
next
end if
%>
<%
'数据库的链接我记没写了 我想你会把。下面是循环添加记录。
Set Rs=Server.Createobject("adodb.recordset")
sql="select * from [表]"
rs.open sql,conn,1,3
for i=1 to 4
rs.addnew
rs("uid")=uid_&i
rs("check")=check_&i
rs("info")=info_&i
rs.upload
next
response.write("添加成功。")
rs.close
%>

Answer 3

按顺序执行就可以。

conn.execute("insert into(....")
conn.execute("insert into(....")
conn.execute("insert into(....")
conn.execute("insert into(....")