[转载] ASP将EXCEL数据导入ACCESS

<%

'下面连接到student.xls表sheet1$

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

conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath("student.xls")



SQL1="select * from [sheet1$]"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open SQL1, conn, 3, 3



'下面连接到whole.mdb表table

curDir = Server.MapPath("../data/whole.mdb")

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir

Set rs1 = Server.CreateObject("ADODB.Recordset")

Set rs1.ActiveConnection = conn1

rs1.Source = "select * from table"

rs1.CursorType = 3 ' adOpenKeyset

rs1.LockType = 3 'adLockOptimistic

rs1.Open

Do While Not rs.Eof

rs1.AddNew

rs1(0)=j

for i=0 to rs.Fields.Count-1

rs1(i)=Trim(rs(i))

Next

rs1.Update

rs.MoveNext

j=j+1

Loop



rs.Close

rs1.Close

conn.Close

conn1.Close

Set rs=nothing

Set conn=nothing

%>