asp将excel导入sql数据库

<%@ Language=VBScript %>
<%
    Dim conn, cmd, rs, excelPath
    Dim strSQL, strConn

    ' 设置Excel文件路径
    excelPath = "C:\path\to\your\file.xlsx"

    ' 设置SQL数据库连接字符串
    strConn = "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;Integrated Security=SSPI;"

    ' 创建ADODB连接对象
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open strConn

    ' 打开Excel文件
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM [Sheet1$]", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & excelPath & ";Extended Properties='Excel 12.0;HDR=YES;'"

    ' 创建SQL插入语句
    strSQL = "INSERT INTO YourTable (Column1, Column2, Column3) VALUES (?, ?, ?)"

    ' 创建ADODB命令对象
    Set cmd = Server.CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    cmd.CommandText = strSQL

    ' 逐行读取Excel数据并插入到SQL数据库
    Do While Not rs.EOF
        cmd.Parameters(0).Value = rs("Column1")
        cmd.Parameters(1).Value = rs("Column2")
        cmd.Parameters(2).Value = rs("Column3")
        cmd.Execute
        rs.MoveNext
    Loop

    ' 关闭连接
    rs.Close
    Set rs = Nothing
    cmd.Execute
    Set cmd = Nothing
    conn.Close
    Set conn = Nothing

    Response.Write "数据导入成功！"
%>