asp 控制Execel

给你个例子：  
  例子：    
  在"c:\excel\book1.xls"存在一个EXCEL表book1.xsl,表的结构如下：    
  1   序号   名称   金额    
  2   1   张三   100    
  3   2   李四   200    
  4   3   王五   300    
  　    
   
  序号字段不为空    
  注意：excel   起始行是1而不是为0    
   
  <%@language=vbscript   %>    
  <%    
   
  Set   xlApp   =   server.CreateObject("Excel.Application")    
   
  strsource   =   "c:\excel\book1.xls"    
   
  Set   xlbook   =   xlApp.Workbooks.Open(strsource)    
  Set   xlsheet   =   xlbook.Worksheets(1)    
   
  i=1    
  response.write   "<table   cellpadding=0   cellspacing=0   border=1   width=500>"    
  while   xlsheet.cells(i,1)<>""    
   
  response.write   "<tr>"    
  response.write   "   <td   height=20   align=center   width=100>"   &   xlsheet.Cells(i,   1)   &   "</td>"    
  response.write   "   <td   height=20   align=center   width=200>"   &   xlsheet.Cells(i,   2)   &   "</td>"    
  response.write   "   <td   height=20   align=center   width=200>"   &   xlsheet.Cells(i,   3)   &   "</td>"    
  response.write   "</tr>"    
  i=i+1    
   
  wend    
  response.write   "</table>"    
  set   xlsheet=nothing    
  set   xlbook=nothing    
  xlApp.quit   '千万记住要加这一句，否则每运行一次你的机器里就增加一个excel进程，而且无法释放。我试过"set    
  xlApp=nothing"是不行的。    
  %>