国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

給你個例子：  
  例子：    
  在"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"是不行的。    
  %>