快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

利用ASP制作EXECL报表方式(一)

很多时候我们需要把表格形式的数据转变成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操作的方式。请稍候。:)
返回类别: 教程
上一教程: 用EASYMAILOBJECT组件处理EXCHANGE邮件源代码(2)
下一教程: 正则表达式在网页处理中的应用四则

您可以阅读与"利用ASP制作EXECL报表方式(一)"相关的教程:
· 利用ASP制作EXECL报表方式(二)
· 利用ASP生成EXECL文档
· 利用ASP和ACCESS数据库制作局域网网上答题系统
· ASP制作多用户版计数器
· 为你的ASP程序制作一个编译组件(下)
    微笑服务 优质保证 索取样品