<%@language=vbscript %>
<%

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

strsource = "c:\excel\stock1.xls"
' 数据库位置
set xlstock = xlapp.workstocks.open(strsource)
set xlsheet = xlstock.worksheets(1)

i=1
response.write ""
while xlsheet.cells(i,1)<>""

response.write ""
response.write " "
response.write " "
response.write " "
response.write ""
i=i+1

wend
response.write "

" & xlsheet.cells(i, 1) & "

" & xlsheet.cells(i, 2) & "

" & xlsheet.cells(i, 3) & "

"
set xlsheet=nothing
set xlstock=nothing
xlapp.quit
%>