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

核心提示：例子：在"c:\Excel\book1.xls"存在一个EXCEL表book1.xsl,表的结构如下：1序号名称金额21张三10032李四20043王五300序号字段不为空注意：excel 起始行是1而不是为0 <%@language=vbscript %><%Set xlApp

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