ASP将Excel导入数据库的方法

示例代码如下（经过验证，可以正确运行）：

<%
dim FileName
FileName="Excel.xls" '取得文件名，来自项目经理的指定，路径固定在某个虚拟路径中
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 then
	response.write "Excel表中无纪录"
else
	set connDB = Server.CreateObject("ADODB.Connection")
	DBPath = Server.MapPath("Excel.mdb")
	'RESPONSE.WRITE DBpath
	connDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
	Set RsDB = Server.CreateObject("ADODB.Recordset")
	SQLDB="Select * from Excel"
	RsDB.open SQLDB,connDB,1,3
	do while not rs.eof '利用循环读出数据
		RsDB.addnew
		RsDB("filename")=rs(0)
		RsDB("id1")=rs(1)
		RsDB("id2")=rs(2)
		RsDB("id3")=rs(3)
		RsDB("id4")=rs(4)
		RsDB.update
		rs.movenext
	loop
	'response.redirect FileName
end if
RsDB.movefirst
if RsDB.eof then
	response.write "数据库中无记录"
else
	do while not RsDB.EOF
		response.write RsDB("filename")&" "
		response.write RsDB("id1")&" "
		response.write RsDB("id2")&" "
		response.write RsDB("id3")&" "
		response.write RsDB("id4")&" "
		response.write "<br>"
		RsDB.movenext
	loop
end if
RSDB.close
set RSDB = nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%>