<%




strsource=request.form("pathf")
Set xlApp = server.CreateObject("Excel.Application")

Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(2) '工作表
  
  
  for i=152 to 172   '起始行和结束行
   k=4               '从第K列开始A=1 B=2 C=3。。。。
   t1=xlsheet.Cells(i, k)
   t2=xlsheet.Cells(i, k+1)
   t3=xlsheet.Cells(i, k+2)  
   t4=xlsheet.Cells(i, k+3)
   t5=xlsheet.Cells(i, k+4)
   t6=xlsheet.Cells(i, k+5)
   t7=xlsheet.Cells(i, k+6)
   t8=xlsheet.Cells(i, K+7)
   t9=xlsheet.Cells(i, k+8)
   t10=xlsheet.Cells(i, k+9)
   t11=xlsheet.Cells(i, k+10)
   t12=xlsheet.Cells(i, k+11)
   't13=xlsheet.Cells(i, 14)
   't14=xlsheet.Cells(i, 15)


  set adda=server.CreateObject("adodb.connection")
adda.open"provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("webdatabase/yangtian.mdb")

adda.execute("insert into double_poles(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12) values ('"&t1&"','"&t2&"','"&t3&"','"&t4&"','"&t5&"','"&t6&"','"&t7&"','"&t8&"','"&t9&"','"&t10&"','"&t11&"','"&t12&"')")
 
next

set xlsheet=nothing
set xlbook=nothing
set xlApp=nothing

response.write "<script language='javascript'>window.alert(' double_poles')</script>"
adda.close()
    set adda=nothing
    
%>


代码，调用几次就多出几个，每手动打开一个excel文件再关闭 可以关掉一个进程
如果set xlApp=nothing 改为xlApp.quit 手动打开excel文件后文件立刻自动关闭，任务管理器的进程也没有关闭
请教原因。。。
代码需要如何修改/乞赐教