本文介绍在ASP项目中如何将数据库中的数据导出为Excel文件的具体实现方式。
以一个订单管理系统为例，我们可以在订单信息展示页面增加“导出到Excel”按钮，并通过后端代码实现数据的导出功能。
具体操作中，需创建一个名为Excel.asp的页面来处理导出逻辑。该页面连接数据库，查询订单记录，并将结果以表格形式输出，同时设置响应头使其自动被浏览器识别为Excel文件。
示例代码如下（Excel.asp）：
<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment;filename=OrderExport.xls"
' 连接数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_db;User ID=your_user;Password=your_pass;"
' 查询订单数据
sql = "SELECT OrderID, CustomerName, OrderDate, Amount FROM Orders ORDER BY OrderDate DESC"
Set rs = conn.Execute(sql)
%>
<table border="1">
<tr>
<th>订单编号</th>
<th>客户姓名</th>
<th>下单日期</th>
<th>金额</th>
</tr>
<%
Do While Not rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("OrderID") & "</td>"
Response.Write "<td>" & rs("CustomerName") & "</td>"
Response.Write "<td>" & rs("OrderDate") & "</td>"
Response.Write "<td>" & FormatCurrency(rs("Amount")) & "</td>"
Response.Write "</tr>"
rs.MoveNext
Loop
%>
</table>
<%
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>最终导出效果如下图所示：
导出的Excel文件可直接用Microsoft Excel打开，数据排版清晰，便于用户进行后续分析或存档。
