asp批量写入数据库代码怎么写

通过换行的方式来判断记录数，你必须得找出数据的分隔符然后得出数组，用for循环就可以了。

文本框中的换行符大概是<BR>,或者 \r 或者 \n

要看你的具体情况来判别到底是那一个

str="

张三

李四

赵五

刘六

杨七

潘八

"

arr = Split(str,"\r")

For i = 0 To UBound(arr)

set rs=server.CreateObject ("adodb.recordset")

sql="insert into 表 (name) values (arr (i))"

conn.execute sql

Next

大概就是这么个写法了。

只要提交jbxx_id这个字段的数据吗？ 可以这样写：

显示程序加上表单：

<form name="form1" action="add.asp" method="post">

<table width="95%" border="0" align="center" cellspacing="1">

<%

dim rs2,sql2,id

set rs2=server.createobject("adodb.recordset")

sql2="select * from xinxi order by id asc"

rs2.open sql2,conn,1,1

do while not rs2.eof

id=cdbl(rs2("jbxx_id"))

%>

<tr>

<td width="4%" height="20" align="center" valign="middle">·</td>

<td width="23%"><input name="renshu" type="text" id="renshu" value="<%=rs2("renshu")%>" /></td>

<td width="14%"></td>

<td width="18%"><%=rs2("shijian")%></td>

</tr>

<%

rs2.movenext

loop

%>

</table>

<input type="submit" name="submit" value="批量提交">

</form>

添加程序add.asp：

数据库连接代码略去...

<%

dim rs2,sql2,id

set rs2=server.createobject("adodb.recordset")

sql2="select * from newtable" '这里的newtable改成新表名

rs2.open sql2,conn,1,3

rs2.addnew

for i=1 to request.form("renshu").count

rs2("jbxx_id")=request.form("renshu")(i)

rs2.update

next

rs2.close

%>

数据库关闭代码略去...

---