asp批量提交数据库

<%@ Language=VBScript %>
<%
    Dim conn, cmd, sql
    Dim data(10) As String

    ' 假设data数组中存储了要插入的数据
    data(0) = "John Doe"
    data(1) = "Jane Smith"
    ' ... 其他数据

    ' 建立数据库连接
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_db;Integrated Security=SSPI;"

    ' 开始事务
    conn.BeginTrans

    ' 构建批量插入的SQL语句
    sql = "INSERT INTO Users (Name) VALUES (?)"
    Set cmd = Server.CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    cmd.CommandText = sql

    ' 循环插入数据
    For i = 0 To UBound(data)
        cmd.Parameters(0).Value = data(i)
        cmd.Execute
    Next

    ' 提交事务
    conn.CommitTrans

    ' 关闭连接
    cmd.ActiveConnection.Close
    Set cmd = Nothing
    Set conn = Nothing
%>