如何直接调用Excel数据？-ASP教程,数据库相关

<%@language=vbscript %>

<%

set exlapp = server.createobject("excel.application")

strsource = "e:\excel\sample.xls"

数据库位置

set exlstock = exlapp.workstocks.open(strsource)

set exlsheet = exlstock.worksheets(1)

i=1

response.write "<table cellpadding=0 cellspacing=0 border=1 width=500>"

while exlsheet.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 xlstock=nothing

xlapp.quit

%>