IDC资讯中心
很多时候我们需要把表格形式的数据转换成execl的形式呈现在用户面前，其中有好几个方法可以做到一点，我将介绍一种利用asp完成的方法，该方法允许服务器动态地创建execl报表而且不用占用任何服务器空间。该方法还允许多个用户同时收到该数据。但是该方法至少需要execl 97的支持。
废话少说，要完成这个工作最重要的是要告诉浏览器http头，就用如下代码：
<%
response.contenttype = "application/vnd.ms-excel"
%>
下面来看一个例子，假设现在有如下形式的数据：
flavor qty_baked qty_eaten qty_sold price
boston 24 2 10 0.5
jelly 24 1 12 0.5
strawberry 36 1 15 0.5
chocolate 24 2 6 0.75
maple 12 1 6 0.75
客户要求用execl的形式表现出来，并且希望其中能加上其他一些计算汇总
用如下代码：
……
<%
response.contenttype = "application/vnd.ms-excel"
set conntemp=server.createobject("adodb.connection")
cnpath="dbq=" & server.mappath("/stevesmith/data/timesheet.mdb")
conntemp.open "driver={microsoft access driver (*.mdb)}; " & cnpath
set rs=conntemp.execute("select * from donut")
%>
<table border=1>
<tr>
<%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% loop through fields names and print out the field names
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
j = 2 row counter
for i = 0 to rs.fields.count – 1
%>
<td><b><% = rs(i).name %></b></td>
<% next %>
<td><b>on hand (calculated)</b></td>
<td><b>gross (calculated)</b></td>
</tr>
<%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% loop through rows, displaying each field
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
do while not rs.eof
%>
<tr>
<% for i = 0 to rs.fields.count – 1
%>
<td valign=top><% = rs(i) %></td>
<% next %>
<td>=b<%=j%>-c<%=j%>-d<%=j%></td>
<td>=d<%=j%>*e<%=j%></td>
</tr>
<%
rs.movenext
j = j + 1
loop
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% make sure to close the result set and the connection object
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
rs.close
%>
<tr bgcolor=red>
<td>totals</td>
<td>=sum(b2:b6)</td>
<td>=sum(c2:c6)</td>
<td>=sum(d2:d6)</td>
<td>n/a</td>
<td>=sum(f2:f6)</td>
<td>=sum(g2:g6)</td>
</table>
……
这样我们就实现了目的，用户可以在浏览器窗口就打开它进行简单操作，也可以保存到硬盘上进行其他操作。我还将介绍一种利用filesystemobject操作的方法。请稍候。：）
