asp导入excel到数据库

<%@ Language=VBScript %>
<%
    Dim conn, cmd, rs, filePath, sql
    filePath = "C:\path\to\your\file.xlsx"
    
    ' 创建连接字符串
    Dim connectionString
    connectionString = "Provider=SQLOLEDB;Data Source=yourServerName;Initial Catalog=yourDatabaseName;Integrated Security=SSPI;"
    
    ' 创建连接对象
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open connectionString
    
    ' 创建命令对象
    Set cmd = Server.CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    cmd.CommandType = adCmdText
    
    ' 构建SQL语句
    sql = "INSERT INTO YourTable (Column1, Column2, Column3) VALUES (?, ?, ?)"
    cmd.CommandText = sql
    
    ' 打开Excel文件
    Dim excelConn, excelRs
    Set excelConn = Server.CreateObject("ADODB.Connection")
    excelConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath & ";Extended Properties=""Excel 12.0;HDR=YES;"";"
    
    ' 读取Excel数据
    Set excelRs = Server.CreateObject("ADODB.Recordset")
    excelRs.Open "SELECT * FROM [Sheet1$]", excelConn
    
    ' 循环插入数据
    Do While Not excelRs.EOF
        cmd.Parameters(0).Value = excelRs("Column1")
        cmd.Parameters(1).Value = excelRs("Column2")
        cmd.Parameters(2).Value = excelRs("Column3")
        cmd.Execute
        excelRs.MoveNext
    Loop
    
    ' 关闭连接
    excelRs.Close
    excelConn.Close
    conn.Close
    
    Set excelRs = Nothing
    Set excelConn = Nothing
    Set cmd = Nothing
    Set conn = Nothing
    
    Response.Write "数据导入成功！"
%>