http://community.csdn.net/Expert/TopicView.asp?id=3293827

解决方案 »

  1.   

    wjm="contact.xls"
    Set conn1=Server.CreateObject("ADODB.Connection")
    StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_
    "DriverId=790; DBQ="& Server.MapPath(""&wjm&"")
    conn1.Open StrConn
    Set Rs1 = Server.CreateObject("ADODB.Recordset") 
    Sql1="select * from [contact$]"
    rs1.Open Sql1,conn1,2,3
    if rs1.eof=false then
    do while not rs1.eof
    set rs=server.CreateObject("adodb.recordset")
    sql="select * from contact"
    rs.open sql,conn,2,3
    set rs2=server.CreateObject("adodb.recordset")
    sql2="select * from contact"
    rs2.open sql2,conn,2,3rs.addnew
    for i=0 to rs2.fields.count-1
    rs(""&rs2.fields(i).name&"")=rs1(i)
    nextrs.update
    rs1.movenext
    loopend ifresponse.Write("OK")%>
      

  2.   

    这样啊,现在我把excel的数据做成了txt的,我记得在txt直接load进去就可以了,可是我不知道在哪l里写这个load命令……