如何实现批量录入数据库？？？急！！！

在一个textarea 里输入 一行一行的文字，把每行文字做作为一条记录插入数据库。


比如 ：

张三
李四
黄五
钱六

数据库里就直接插入四条记录，怎么实现，谢谢！

先用字符串函数把你输入的文字拆分开了，重新组合成你需要的格式，然后在分别保存到数据库里面。

<%
t = Trim(Request.Form("textarea_name"))
a = Split(t, VBCrLf) '或VbLf
Set oConn = CreateObject("ADODB.Connection")
oConn.Open "xxxxxxxx"
sSQL = "SELECT * FROM tbl WHERE 1=0"
Set oRS = CreateObject("ADODB.RecordSet")
oRS.CursorLocation = 3
oRS.Open sSQL, oConn, 1, 4
For i = 0 To UBound(a)
  oRS.AddNew
  oRS("xxx").value = a(i)
Next
oRS.UpdateBatch
oRS.Close
oRS = Nothing
oConn.Close
Set oConn = Nothing
%>