asp批量添加数据:

add.asp

------------------------------------------------------------------------------------

<table>
<form method="post" action="save.asp">
 <tr align="center">
  <Td>用户名</Td>
  <Td>密码</Td>
 </tr>
 <tr>
  <Td><input type="text" name="username"></Td>
  <Td><input type="text" name="pwd"></Td>
 </tr>
 <tr>
  <Td><input type="text" name="username"></Td>
  <Td><input type="text" name="pwd"></Td>
 </tr>
 <tr>
  <Td><input type="text" name="username"></Td>
  <Td><input type="text" name="pwd"></Td>
 </tr>
 <tr>
   <td colspan="2" align="center"><input name="submit" type="submit" value="添加"></td>
 </tr>
 </form>
</table>

------------------------------------------------------------------------------------

save.asp

------------------------------------------------------------------------------------

<%

username=request("username")
pwd=request("pwd")

username1=split(username,",")
pwd1=split(pwd,",")

for i = 0 to ubound(username1)

if trim(username1(i))<>"" then

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from user",conn,1,3
rs.AddNew
rs("username")=trim(username1(i))
rs("pwd")=trim(pwd1(i))
rs.Update
rs.Close
set rs=nothing

end if

next

%>

------------------------------------------------------------------------------------