日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

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