ASP:读取Excel并导入到access数据库中

将Excel数据导入到access数据库中

<%
'读取Excel并导入到access数据库中
set Connn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("XXX.xls")+";Extended Properties='Excel 8.0;HDR=yes;IMEX=1'"
Connn.Open strConn
sql="SELECT * FROM [表19$]"'Excel中的表命
rs.Open sql,Connn,1,1
if not rs.eof then
Do While Not rs.EOF
 rs.move x
 response.Write rs("姓名")&":"&rs("手机号")&"<br>"'读取Excel中的字段
     '打开access数据库中存入的表
    set rss=server.CreateObject("adodb.recordset")
    sqls="select * from Booking where id=0"
    rss.open sqls,conn,1,3
    rss.addnew
        rss("name")=rs("姓名")
        rss("tele")=rs("手机号")
    rss.update
    rss.close
    set rss=nothing
Rs.MoveNext
Loop    
end if
rs.Close
Connn.Close
set rs = Nothing
set Connn = Nothing
%>