asp从excel导入数据库数据

<%
Dim excelPath, conn, rs, excelApp, excelWorkbook, excelSheet

excelPath = Server.MapPath("data.xlsx")

Set excelApp = CreateObject("Excel.Application")
Set excelWorkbook = excelApp.Workbooks.Open(excelPath)
Set excelSheet = excelWorkbook.Sheets(1)

' 读取数据并插入数据库
Dim strSQL, data
strSQL = "INSERT INTO YourTable (Column1, Column2) VALUES (?, ?)"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "YourConnectionString"

Dim i
i = 1
Do While Not excelSheet.Cells(i, 1).Value = ""
    data = Array(excelSheet.Cells(i, 1).Value, excelSheet.Cells(i, 2).Value)
    Set rs = conn.Execute(strSQL, data)
    i = i + 1
Loop

excelWorkbook.Close False
excelApp.Quit

Set rs = Nothing
Set conn = Nothing
Set excelSheet = Nothing
Set excelWorkbook = Nothing
Set excelApp = Nothing
%>

<%
Dim connStr, sql, conn, cmd, param1, param2

connStr = "Provider=SQLOLEDB;Data Source=YourServer;Initial Catalog=YourDatabase;Integrated Security=SSPI;"
sql = "INSERT INTO YourTable (Column1, Column2) VALUES (?, ?)"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connStr

Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = sql

' 添加参数
Set param1 = cmd.CreateParameter("param1", adVarChar, adParamInput, 50, excelSheet.Cells(i, 1).Value)
cmd.Parameters.Append param1

Set param2 = cmd.CreateParameter("param2", adVarChar, adParamInput, 50, excelSheet.Cells(i, 2).Value)
cmd.Parameters.Append param2

' 执行插入操作
cmd.Execute

conn.Close
Set conn = Nothing
Set cmd = Nothing
%>