<style>
.eHead {background:#dddddd;border:1px #000000 solid;width:100px;text-align:center;padding:3px auto 1px 3px;}
.eBody {border:1px #eeeeee solid;width:100px;padding:3px auto 1px 3px;}
</style>
<table style="border:0px;border-collapse: collapse;" cellpadding="0" cellspacing="0">
<%
dim ExclePath: ExcelPath=server.mappath("exc.xls")
Dim ExExp :set ExExp=createobject("Excel.Application")
Dim ExWork :Set ExWork = ExExp.Workbooks.Open(ExcelPath) '打开excel表格
Dim ExShem :Set ExShem = ExWork.Sheets(1)
'工作表1
cCount=ExShem.UsedRange.Columns.Count '有效列数
rCount=ExShem.UsedRange.Rows.Count
'有效行数
'输出头(如果你的第1行是表头的话)
response.write "<tr>"
for i=1 to cCount
response.write "<td class=""eHead"">" & ExShem.Cells(1, i) & "</td>"
next
response.write "</tr>"&vbcrlf
'输出记录
for j=2 to rCount
response.write "<tr>"
For i = 1 To cCount
response.write "<td class=""eBody"">" & ExShem.Cells(j, i) & "</td>"
next
response.write "</tr>"&vbcrlf
Next
ExWork.close() '一定要调用此方法
ExExp.Quit()
'一定要调用此方法
set ExExp=nothing
set ExWork=nothing
set ExShem=nothing
%>
</table>
具体代码看附件吧