利用ASP制作EXECL报表方法（一）

来源：Linuxdby.com 作者：Webmaster 时间：2007-04-23 点击： [收藏] [投稿]

很多时候我们需要把表格形式的数据转换成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><% = RS(i).Name %></TD>
 <% Next %>
 <TD>On Hand (calculated)</TD>
 <TD>Gross (calculated)</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>

如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一篇：用ASP实现电子贺卡下一篇：CDONTS发电子邮件例子

【文章评论】【收藏本文】【推荐好友】【打印本文】【我要投稿】【论坛讨论】

更多相关文章

·Windows 2000 安全性技术概述--3

·Windows 2000 安全性技术概述--2

·Windows 2000 安全性技术概述--1

·ActiveX技术综述（二）

·ActiveX技术综述（一）

·动态网页技术--CGI:ASP:JSP:PHP(4)