aspexcel文件数据上传至数据库

<%@ Language=VBScript %>
<%
    Dim conn, rs, sql, filePath, xls
    Dim fileName, fileExtension

    ' 设置文件路径
    filePath = Server.MapPath("data.xlsx")
    fileName = Mid(filePath, InStrRev(filePath, "\") + 1)
    fileExtension = Mid(fileName, InStrRev(fileName, ".") + 1)

    ' 检查文件扩展名
    If fileExtension = "xlsx" Then
        Set xls = CreateObject("Excel.Application")
        xls.Workbooks.Open filePath
        Set rs = Server.CreateObject("ADODB.Recordset")

        ' 假设Excel文件中的数据在第一个工作表的第一张表中
        sql = "INSERT INTO YourTable (Column1, Column2, Column3) VALUES (?, ?, ?)"
        conn.Open "Provider=SQLOLEDB;Data Source=YourServer;Initial Catalog=YourDatabase;Integrated Security=SSPI;"
        rs.Open sql, conn

        Dim i As Integer
        For i = 1 To xls.Worksheets(1).UsedRange.Rows.Count
            rs.AddNew
            rs("Column1") = xls.Worksheets(1).Cells(i, 1).Value
            rs("Column2") = xls.Worksheets(1).Cells(i, 2).Value
            rs("Column3") = xls.Worksheets(1).Cells(i, 3).Value
            rs.Update
        Next i

        rs.Close
        conn.Close
        xls.Quit
        Set rs = Nothing
        Set xls = Nothing
    Else
        Response.Write "Unsupported file format."
    End If
%>