ASP直接调用EXCEL数据的例子（不用ODBC）

例子：
在"c:\excel\book1.xls"存在一个EXCEL表book1.xsl,表的结构如下：
1 序号 名称 金额
2 1 张三 100
3 2 李四 200
4 3 王五 300

序号字段不为空
注意：excel 起始行是1而不是为0

1@language=vbscript 

 1   
 2  
 3Set xlApp = server.CreateObject("Excel.Application")   
 4  
 5strsource = "c:\excel\book1.xls"   
 6  
 7Set xlbook = xlApp.Workbooks.Open(strsource)   
 8Set xlsheet = xlbook.Worksheets(1)   
 9  
10i=1   
11response.write "

<table border="1" cellpadding="0" cellspacing="0" width="500">"
while xlsheet.cells(i,1)&lt;&gt;""

response.write "<tr>"
response.write " <td align="center" height="20" width="100">" &amp; xlsheet.Cells(i, 1) &amp; "</td>"
response.write " <td align="center" height="20" width="200">" &amp; xlsheet.Cells(i, 2) &amp; "</td>"
response.write " <td align="center" height="20" width="200">" &amp; xlsheet.Cells(i, 3) &amp; "</td>"
response.write "</tr>"
i=i+1

wend
response.write "</table>

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