asp excel导入mysql_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)

Rs.update

RsDB.movenext

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 "
"

RsDB.movenext

loop

end if

rs.close

set rs=nothing

set conn=nothing

%>