aspexcel上传数据库中

<%@ Language=VBScript %>
<%
Dim conn, rs, xls, sheetName, i, j
Dim filePath, sql

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

' 连接Access数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"

' 打开Excel文件
Set xls = Server.CreateObject("Excel.Application")
xls.Workbooks.Open filePath
sheetName = xls.Worksheets(1).Name

' 构建插入数据的SQL语句
sql = "INSERT INTO YourTable (Column1, Column2, Column3) VALUES (?, ?, ?)"

' 创建记录集对象
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 3

' 循环读取Excel数据并插入到数据库
For i = 1 To xls.Worksheets(sheetName).UsedRange.Rows.Count
    For j = 1 To xls.Worksheets(sheetName).UsedRange.Columns.Count
        rs.AddNew
        rs.Fields(j - 1).Value = xls.Worksheets(sheetName).Cells(i, j).Value
    Next
    rs.Update
Next

' 关闭连接和对象
rs.Close
xls.Quit
Set rs = Nothing
Set xls = Nothing
conn.Close
Set conn = Nothing

Response.Write "数据上传成功！"
%>