页面中的表格怎么才能导出一个真的.XLS的Excel的文件，请大家帮忙！
我的页面代码：
Excel.rar
(1.28 KB)
代码如下：
程序代码：<!--#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>使用Response.ContentType="application/vnd.ms-excel"是可以将页面以excel的方式保存，但是发现不是真正的.XLS文件，因为不支持再导入到数据库中。
请问怎么才能保存为一个支持导入数据库的.XLS的Excel呢？
