例子：
在"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 ""
  while xlsheet.cells(i,1)<>""
  
  response.write ""
  response.write "  "
  response.write "  "
  response.write "  "
  response.write ""
    i=i+1

  wend
    response.write "

" & xlsheet.Cells(i, 1) & "

" & xlsheet.Cells(i, 2) & "

" & xlsheet.Cells(i, 3) & "

"
set xlsheet=nothing
set xlbook=nothing
xlApp.quit  '千万记住要加这一句，否则每运行一次你的机器里就增加一个excel进程，而且无法释放。我试过"set xlApp=nothing"是不行的。
%>

（出处：飓风网络）