浏览 | 提交新的代码片段 | 创建代码包

ASP直接调用EXCEL数据的例子（不用ODBC）
类型: Sample Code (HOWTO)	类别: Other
许可证: GNU General Public License	语言: Other Language
描述: ASP直接调用EXCEL数据（不用ODBC）

该代码片段的版本系列:

片段ID	下载版本	提交时间	提交人	删除
4742	1.0	2003-10-19 22:16	cbd001

点击"下载版本"来下载该代码片段.

最新版本的代码片段: 1.0

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


		

提交新版本

如果您修改了一个代码片段并且觉得很应该让别人共享,您可以把这作为这个代码片段的最新版本提交上来.