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
   
        

        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  
循环本身就有问题,这样循环50次肯定导入50次第一行
        rs.open sql,conn,1,3                  
            Do until execrs.eof
                rs.addnew               
                    for t=0 to 10                  
                    rs(t+1)=excrs(t)            
                    next
                    rs("time")=now()
               
                rs.update
                excrs.movenext
            loop
        rs.close
        set rs=nothing

这样的话总是导入很多行空记录，怎么控制？要不我也不会用for来做了！

        rs.open sql,conn,1,3                  
            Do until execrs.eof
               if excrs(0)<>Empty and excrs(0)<>"" Then
                  rs.addnew               
                  for t=0 to 10                  
                      rs(t+1)=excrs(t)            
                   next
                   rs("time")=now()
                   rs.update
                end if
                excrs.movenext
            loop
        rs.close
        set rs=nothing
加个判断是否是空行是空行不执行添加代码。

谢谢了，解决了！