asp下实现批量插入数据的方法

```vbscript

<%

Dim valName, arrName, objConn, connStr

If Request.Form("mySubmit") = "确定" Then

'建立数据库连接

Set objConn = Server.CreateObject("ADODB.connection")

connStr = "PROVIDER=SQLOLEDB;Server=(local);DATABASE=test;UID=sa;PWD=123456;"

objConn.Open connStr

'获取用户输入值

valName = Cstr(Request.Form("myName"))

arrName = Split(valName, ",")

For i = 0 To UBound(arrName)

objConn.Execute("insert into mytable(sname) values('" & Trim(arrName(i)) & "')")

Next

'关闭数据库连接

objConn.Close

Set objConn = Nothing

End If

%>

```

```html