asp批量写入数据库

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

    ' 数据示例
    data(0) = "John Doe"
    data(1) = "Jane Smith"
    data(2) = "Mike Johnson"
    data(3) = "Emily Brown"

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

    ' 构建SQL语句
    sql = "INSERT INTO Users (Name) VALUES "
    sql = sql & "(" & "'" & data(0) & "'" & "),"
    sql = sql & "(" & "'" & data(1) & "'" & "),"
    sql = sql & "(" & "'" & data(2) & "'" & "),"
    sql = sql & "(" & "'" & data(3) & "'" & ")"

    ' 执行SQL语句
    Set cmd = Server.CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    cmd.CommandText = sql
    cmd.Execute

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