序号字段不为空
注意：excel起始行是1而不是为0

<%@language=VBscript%>
<%

SetxlApp=server.CreateObject('Excel.Application')

strsource='c:excelbook1.xls'

Setxlbook=xlApp.Workbooks.Open(strsource)
Setxlsheet=xlbook.Worksheets(1)

i=1
response.write'<tablecellpadding=0cellspacing=0border=1width=500>'
whilexlsheet.cells(i,1)<>''

response.write'<tr>'
response.write'<tdheight=20align=centerwidth=100>'&xlsheet.Cells(i,1)&'</td>'
response.write'<tdheight=20align=centerwidth=200>'&xlsheet.Cells(i,2)&'</td>'
response.write'<tdheight=20align=centerwidth=200>'&xlsheet.Cells(i,3)&'</td>'
response.write'</tr>'
i=i+1

wend
response.write'</table>'
setxlsheet=nothing
setxlbook=nothing
xlApp.quit'千万记住要加这一句，否则每运行一次你的机器里就增加一个excel进程，而且无法释放。我试过'set
xlApp=nothing'是不行的。
%>