ASP如何把多行数据同时添加到数据库，表单时一样的，为了不一个一个的提交啊！

Question

<%
If Action = "Save" Then
Tel = CheckSql(Trim(Request.Form("Tel")))
body = CheckSql(Trim(Request.Form("body")))
'---------------------------
Set Rs = Conn.Execute("Select * From ["&dodeTable&"] where Tel='"&Tel&"'")
If Not Rs.Eof Then ClMsg "不允许重复电话！","MemberNote.asp"
'---------------------------
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open "Select * From [dode_MemberNote]",Conn,1,3
Rs.AddNew
Rs("MemberID") = Int(Session("MemberID"))
Rs("ItemName") = ItemName
Rs("body") = body
Rs("UserName") = Trim(Request.Form("UserName"))
Rs("ItemName") = Trim(Request.Form("ItemName"))
Rs("Sex") = Trim(Request.Form("Sex"))
Rs("Tel") = Trim(Request.Form("Tel"))
Rs("Add") = Trim(Request.Form("Add"))
Rs("Url") = Request.ServerVariables("Url")
If isVerify = 0 Then
Rs("ItemRec") = 1
Else
Rs("ItemRec") = 0
End If

Rs.Update
for i=1 to 10
next
Rs.Close : Set Rs=Nothing
WriteMsg("发布成功,点击查看！")
Response.Redirect "MemberNote.asp"
Rs.Close:Set Rs=Nothing
'------------------------------------------------
End If
%>
<form name='Gbookform' id='Gbookform' action='?Action=Save' method='post' onSubmit='return CheckGbook();'>
<div class="member_table_data">
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td>姓名</td><td><input name="UserName" type="text" class="data_input" /></td>
<td>性别</td><td><input name="Sex" type="text" class="data_input_short" /></td>
<td>年龄</td><td><input name="Add" type="text" class="data_input_short" /></td>
<td>电话</td><td><input name="Tel" type="text" class="data_input" /></td>
<td>客户来源</td><td><input name="ItemName" type="text" class="data_input_long" /></td>
<td>购买意向</td><td><input name="body" type="text" class="data_input_long" /></td>
</tr>
</table>

<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td>姓名</td><td><input name="UserName" type="text" class="data_input" /></td>
<td>性别</td><td><input name="Sex" type="text" class="data_input_short" /></td>
<td>年龄</td><td><input name="Add" type="text" class="data_input_short" /></td>
<td>电话</td><td><input name="Tel" type="text" class="data_input" /></td>
<td>客户来源</td><td><input name="ItemName" type="text" class="data_input_long" /></td>
<td>购买意向</td><td><input name="body" type="text" class="data_input_long" /></td>
</tr>
</table>
<div class="right">备注：会员上传出现电话号码相同的客户的将不能提交</div>
<div class="center"><input type="submit" class="black_button" value="提 交" /></div>
</div><!-- member_table_porfile -->
</form>

Answer 1

利用Request.Form集合本身的属性就可以完成批量录入：
For i = 1 To Request.Form("UserName").Count
Rs.AddNew
。。。。。。
Rs("UserName") = Trim(Request.Form("UserName")(i))
。。。。。。
Rs.Update
Next

Answer 2

提交了以后,把REQUEST获取的值用逗号一分割, FOR 循环写进去就好了