页面中的表格怎么才能导出一个真的.XLS的Excel的文件，请大家帮忙！

<!--#include file="Inc/conn.asp"-->
<table border="1" cellpadding="3" cellspacing="1">
  <tr style="font-weight:bold;" align="center">
    <td>单号</td>
    <td>仓库</td>
    <td>经手人</td>
    <td>日期</td>
    <td>商品编号</td>
    <td>商品名称</td>
    <td>规格型号</td>
    <td>大类</td>
    <td>小类</td>
    <td>单位</td>
    <td>产地</td>
    <td>成本价</td>
    <td>零售价</td>
    <td>商品条码</td>
    <td>商品仓库</td>
    <td>库存数量</td>
    <td>盘点数量</td>
    <td>备注</td>
  </tr>
<%
  dim Number
  Number=request("Number")
  sql="select * from Inventory_SmallClass where Inventory_Number = '"&Number&"' order by ID asc"
  set rs=server.CreateObject("adodb.recordset")
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
  response.Write("<table width=100% border=0>")
  response.Write("<tr>")
  response.Write("<td style=font-size:13px;color:#FF0000 height=100>对不起，没有找到您需要的记录！</td>")
  response.Write("</tr>")
  response.Write("</table>")
  else
  do while not rs.eof

 
  sqlt="select * from Inventory_BigClass where Inventory_Number = '"&rs("Inventory_Number")&"'"
  set rst=server.CreateObject("adodb.recordset")
  rst.open sqlt,conn,1,1
  %>
  <tr>
    <td><%=rst("Inventory_Number")%></td>
    <td><%=rst("Warehouse")%></td>
    <td><%=rst("Head")%></td>
    <td><%=rst("Date")%></td>
   
    <td><%=rs("Coding")%></td>
    <td><%=rs("Name")%></td>
    <td><%=rs("Specification")%></td>
    <td><%=rs("BigClass")%></td>
    <td><%=rs("SmallClass")%></td>
    <td><%=rs("Unit")%></td>
    <td><%=rs("Origin")%></td>
    <td><%=rs("Cost")%></td>
    <td><%=rs("Retail")%></td>
    <td><%=rs("Barcode")%></td>
    <td><%=rs("Warehouse")%></td>
    <td><%=rs("Currently_Quantity")%></td>
    <td><%=rs("Inventory_Quantity")%></td>
    <td><%=rs("Remarks")%></td>
  </tr>
<%
  rs.movenext
  loop
  end if
  Response.ContentType="application/vnd.ms-excel"
  Response.AddHeader "content-disposition","attachment filename=订单表.xls"
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  %>
</table>