91网首页-91网页版-91网在线观看-91网站免费观看-91网站永久视频-91网站在线播放

[p]<%@language=vbscript %>[br]<%[/p]
[p]set xlapp = server.createobject("excel.application")[/p]
[p]strsource = "c:\excel\stock1.xls"[br]' 數(shù)據(jù)庫位置[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]