ASP批量插入数据的一个实例

<%
'申明变量
Dim valName
Dim arrName
Dim objConn
Dim 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,",")
arrPassword = split(valPassword,",")

'执行插入数据库的过程
For i = 0 to Ubound(arrName)
 '请自行更改SQL语句
 objConn.execute("insert into mytable(sname) values('"&Trim(arrName(i))&"')")
Next

Response.write("数据插入成功")

'关闭数据库连接
objConn.close
Set objConn = nothing
End If
%>