Set excconn=Server.CreateObject("ADODB.Connection")
      excStrConn= "Driver={Microsoft Excel Driver (*.xls)};DBQ="& request("file")
    excconn.Open  excStrConn
     '查询excel语句   
   
     Set excrs = Server.CreateObject("ADODB.Recordset")     
     excSql="select * from [080927$]"     
    excrs.Open excSql,excconn,2,2
                     
        set rs=server.createObject("ADODB.Recordset")         
       if request("xq")="first1" then
            sql="select * from  first1 "
      
        end if
      
        rs.open sql,conn,1,3                 
            for i=1 to 50
                rs.addnew               
                    for t=0 to 10                  
                    rs(t+1)=excrs(t)           
                    next
                    rs("time")=now()
            
                rs.update
            next
        rs.close
        set rs=nothing   
      
    excrs.close
    set excts=nothing
   
    excconn.close
    set excconn=nothing   
    conn.close
    set conn=nothing