示例代碼如下（經(jīng)過驗(yàn)證，可以正確運(yùn)行）：

<% dim FileName FileName="Excel.xls" '取得文件名，來自項(xiàng)目經(jīng)理的指定，路徑固定在某個(gè)虛擬路徑中 Dim conn, rs set conn=CreateObject("ADODB.connection") conn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _ "DriverId=790;" & _ "Dbq=" & Server.mappath(""&FileName&"") & ";" & _ "DefaultDir=G:/"set rs=createobject("ADODB.recordset") rs.Open "Select * From [Sheet1$]",conn, 2, 2 if rs.eof thenresponse.write "Excel表中無紀(jì)錄" elseset connDB = Server.CreateObject("ADODB.Connection")DBPath = Server.MapPath("Excel.mdb")'RESPONSE.WRITE DBpathconnDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPathSet RsDB = Server.CreateObject("ADODB.Recordset")SQLDB="Select * from Excel"RsDB.open SQLDB,connDB,1,3do while not rs.eof '利用循環(huán)讀出數(shù)據(jù)RsDB.addnewRsDB("filename")=rs(0)RsDB("id1")=rs(1)RsDB("id2")=rs(2)RsDB("id3")=rs(3)RsDB("id4")=rs(4)RsDB.updaters.movenextloop'response.redirect FileName end if RsDB.movefirst if RsDB.eof thenresponse.write "數(shù)據(jù)庫中無記錄" elsedo while not RsDB.EOFresponse.write RsDB("filename")&" "response.write RsDB("id1")&" "response.write RsDB("id2")&" "response.write RsDB("id3")&" "response.write RsDB("id4")&" "response.write "<br>"RsDB.movenextloop end if RSDB.close set RSDB = nothing rs.close set rs=nothing conn.close set conn=nothing %>

總結(jié)

以上是生活随笔為你收集整理的ASP将Excel导入数据库的方法的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。