[p]<%@language=vbscript %>[br]<%[/p] [p]set xlapp = server.createobject("excel.application")[/p] [p]strsource = "c:\excel\stock1.xls"[br]' 数据库位置[br]set xlstock = xlapp.workstocks.open(strsource)[br]set xlsheet = xlstock.worksheets(1)[/p] [p] i=1[br] response.write ""[br] while xlsheet.cells(i,1)<>""[br] [br] response.write ""[br] response.write " " [br] response.write " " [br] response.write " "[br] response.write ""[br] i=i+1[/p] [p] wend[br] response.write "

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

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

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

"[br]set xlsheet=nothing[br]set xlstock=nothing[br]xlapp.quit [br]%> [/p]