如何直接调用Excel数据？
<%@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>"