用asp讀取xls資料並秀出來

<%
path=request("path")

Set cn_xls = Server.CreateObject("ADODB.Connection")
cn_xls.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;DBQ="& path

Set rs = Server.CreateObject("ADODB.Recordset")
SqlStr = "SELECT * FROM [Sheet1$]"

rs.Open SqlStr,cn_xls,3,1
%>
<center>
<table border="1">
 <tr>
  <%for i=0 to rs.Fields.Count-1%>
  <td bgcolor="#0099FF"><%=rs(i).Name%></td>
  <%next%>
 </tr>
 <%do while Not rs.EOF%>
 <tr>
  <%for i=0 to rs.Fields.Count-1%><td><%=rs(i)%></td><%next%>
 </tr>
<%
  rs.MoveNext
 Loop
%>
</table>
</center>