页面中的表格怎么才能导出一个真的.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呢?