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

大概就是这么个写法了。

首先是连接到数据库

其次是对数据的 *** 作

最后是关闭数据库

具体例子网上很多这里我就转一个别人的：

sqlstr="select * from message" ---- >(message为数据库中的一个数据表，即你要显示的

数据所存放的数据表)

rs.open sqlstr,conn,1,3 ---- >(表示打开数据库的方式) rs.addnew 新增加一条记录

rs("name")="xx" 将xx的值传给name字段 rs.update 刷新数据库

------------------------------------------------------ rs.close

conn.close 这几句是用来关闭数据库 set rs=nothing set conn=nothing

------------------------------------------------------- % >

.<4 >删除一条记录

删除数据库记录主要用到rs.delete,rs.update

<!--#include file=conn.asp-- >(包含conn.asp用来打开bbs\db1\目录下的user.mdb数据 库) <%

dim name name="xx"

set rs=server.CreateObject("adodb.recordset") (建立recordset对象)

sqlstr="select * from message" ---- >(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)

rs.open sqlstr,conn,1,3 ---- >(表示打开数据库的方式) ------------------------------------------------------- while not rs.eof

if rs.("name")=name then rs.delete

rs.update 查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删 除，

else 否则继续查询,直到指针到末尾为止 rs.movenext emd if wend

------------------------------------------------------ ------------------------------------------------------ rs.close

conn.close 这几句是用来关闭数据库 set rs=nothing set conn=nothing

------------------------------------------------------- % >

http://wenku.baidu.com/link?url=vya_shXfg3kgqbPvq-SfsIoAV7qZaf9XY2RsOQOCpwrt1Pr1yHMFKtQYnCgu8ExK0H-9LsgXWUpQ7FmEuN_a95gWD0cChMqPneQFyaHVgMK

---