asp本地excel导入到数据库

<%@ Language=VBScript %>
<%
    Dim conn, cmd, fso, file, sheet, data, i, j
    Dim connectionString, sql

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

    ' 创建数据库连接
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open connectionString

    ' 打开Excel文件
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\path\to\your\file.xlsx", 1)
    sheet = file.ReadAll()
    file.Close

    ' 解析Excel数据
    data = Split(sheet, vbCrLf)
    For i = 0 To UBound(data) - 1
        Dim rowData = Split(data(i), ",")
        sql = "INSERT INTO your_table (column1, column2, column3) VALUES ('" & rowData(0) & "', '" & rowData(1) & "', '" & rowData(2) & "')"
        Set cmd = Server.CreateObject("ADODB.Command")
        cmd.ActiveConnection = conn
        cmd.CommandText = sql
        cmd.Execute
    Next

    ' 关闭数据库连接
    conn.Close
    Set conn = Nothing
%>