📄 利用asp制作execl报表方法（一）.htm
字号:
<TR>
<TD height=1></TD></TR>
<TR bgColor=#ffcc00>
<TD align=right height=23 width=355>
<CENTER></CENTER>
<P align=center>中国动感资源交流，网络动感资源荟萃</P></TD>
<TD align=middle>
<P align=center><A href="http://www.moonet.com/edu/">教育网</A>
英文版</P></TD></TR></TBODY></TABLE>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753></TD>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#297dff colSpan=2 height=20><FONT color=#ceffff> →
<A href="http://www.aspsky.net/article/index.asp?classid=2"><FONT
color=#ceffff>ASP技术</FONT></A> >> <A
href="http://www.aspsky.net/article/index.asp?classid=2&Nclassid=2"><FONT
color=#ceffff>ASP应用</FONT></A> >>
《利用ASP制作EXECL报表方法（一）》</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD align=middle class=p4
colSpan=2><B>利用ASP制作EXECL报表方法（一）</B></FONT><BR>2001-2-5 动网先锋
</TD></TR>
<TR>
<TD class=p4 colSpan=2>
<BLOCKQUOTE><BR>很多时候我们需要把表格形式的数据转换成EXECL的形式呈现在用户面前，其中有好几个方法可以做到一点，我将介绍一种利用ASP完成的方法，该方法允许服务器动态地创建EXECL报表而且不用占用任何服务器空间。该方法还允许多个用户同时收到该数据。但是该方法至少需要EXECL
97的支持。<BR>废话少说，要完成这个工作最重要的是要告诉浏览器HTTP头，就用如下代码：
<P></P>
<P><% <BR>Response.ContentType =
"application/vnd.ms-excel"<BR>%></P>
<P>下面来看一个例子，假设现在有如下形式的数据：<BR>flavor qty_baked qty_eaten qty_sold
price<BR>Boston 24 2 10 0.5<BR>Jelly 24 1 12 0.5<BR>Strawberry 36
1 15 0.5<BR>Chocolate 24 2 6 0.75<BR>Maple 12 1 6 0.75</P>
<P>客户要求用EXECL的形式表现出来，并且希望其中能加上其他一些计算汇总</P>
<P>用如下代码：<BR>……<BR><% <BR>Response.ContentType =
"application/vnd.ms-excel"</P>
<P>set
conntemp=server.createobject("adodb.connection")<BR>cnpath="DBQ="
&
server.mappath("/stevesmith/data/timesheet.mdb")<BR>conntemp.Open
"DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath<BR>set
RS=conntemp.execute("select * from donut")<BR>%><BR><TABLE
BORDER=1><BR><TR><BR><% <BR>'
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<BR>' % Loop through Fields Names
and print out the Field Names<BR>'
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<BR>j = 2 'row counter<BR>For i =
0 to RS.Fields.Count - 1 <BR>%><BR><TD><B><% =
RS(i).Name %></B></TD><BR><% Next
%><BR><TD><B>On Hand
(calculated)</B></TD><BR><TD><B>Gross
(calculated)</B></TD><BR></TR><BR><% <BR>'
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<BR>' % Loop through rows,
displaying each field<BR>' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<BR>Do
While Not RS.EOF <BR>%><BR><TR><BR><% For i = 0 to
RS.Fields.Count - 1<BR>%><BR><TD VALIGN=TOP><% = RS(i)
%></TD><BR><% Next
%><BR><TD>=b<%=j%>-c<%=j%>-d<%=j%></TD><BR><TD>=d<%=j%>*e<%=j%></TD><BR></TR><BR><%<BR>RS.MoveNext<BR>j
= j + 1<BR>Loop<BR>' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<BR>' % Make
sure to close the Result Set and the Connection object<BR>'
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<BR>RS.Close<BR>%><BR><TR
BGCOLOR=RED><BR><TD>Totals</TD><BR><TD>=SUM(B2:B6)</TD><BR><TD>=SUM(C2:C6)</TD><BR><TD>=SUM(D2:D6)</TD><BR><TD>n/a</TD><BR><TD>=SUM(F2:F6)</TD><BR><TD>=SUM(G2:G6)</TD><BR></TABLE><BR>……<BR>这样我们就实现了目的，用户可以在浏览器窗口就打开它进行简单操作，也可以保存到硬盘上进行其他操作。我还将介绍一种利用filesystemobject操作的方法。请稍候。：）<BR><BR><BR></P></BLOCKQUOTE></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<BLOCKQUOTE>原作者：东方蜘蛛<BR>来 源：chinaasp<BR>共有2629位读者阅读过此文<BR>【<A
href="http://bbs.aspsky.net/list.asp?boardid=1">发表评论</A>】
</BLOCKQUOTE></TD>
<TD class=p4 vAlign=top width="50%">
<P>
<LI><FONT color=#0772b1>上篇文章</FONT>：<A
href="http://www.aspsky.net/article/list.asp?id=1589">较长text型数据无法在Asp页面中取出的解决办法</A>
<BR>
<LI><FONT color=#0772b1>下篇文章</FONT>：<A
href="http://www.aspsky.net/article/list.asp?id=1591">利用ASP制作EXECL报表方法（二）</A>
</LI></TD></TR>
<TR>
<TD bgColor=#297dff class=p4 height=20 width="50%"><FONT
color=#ceffff> → 本周热门</FONT></TD>
<TD bgColor=#297dff class=p4 width="50%"><FONT color=#ceffff> →
相关文章</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<LI><A href="http://www.aspsky.net/article/list.asp?id=1510"
target=_top title="SQL Server 7.0 入门（一）">SQL Server 7.0
入门（...</A>[<FONT color=red>7239</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1540"
target=_top title=PHP4实际应用经验篇(1)>PHP4实际应用经验篇(1)</A>[<FONT
color=red>7135</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1536"
target=_top
title=无组件文件上传代码实例（支持多文件上传及文件和input域混合上传）>无组件文件上传代码实例（支持多文件上...</A>[<FONT
color=red>6029</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2557"
target=_top title=树型结构在ASP中的简单解决>树型结构在ASP中的简单解决</A>[<FONT
color=red>5757</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1545"
target=_top title=PHP4实际应用经验篇(6)>PHP4实际应用经验篇(6)</A>[<FONT
color=red>5599</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2563"
target=_top title=一个老个写的无组件上传>一个老个写的无组件上传</A>[<FONT
color=red>5014</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1542"
target=_top title=PHP4实际应用经验篇(3)>PHP4实际应用经验篇(3)</A>[<FONT
color=red>4731</FONT>]<BR></LI></TD>
<TD class=p4 vAlign=top width="50%">
<LI><A
href="http://www.aspsky.net/article/list.asp?id=1873">如何用asp把sql
server數據轉化為execl文件</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=1591">利用ASP制作EXECL报表方法（二）</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=1590">利用ASP制作EXECL报表方法（一）</A><BR></LI></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR></TBODY></TABLE>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD bgColor=#297dff height=1><SPACER type="block"
width="1"></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle height=30></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<P align=center><A
href="http://www.aspsky.net/produce/index.asp">客户服务</A> -- <A
href="http://www.aspsky.net/aspads.asp">广告合作</A> -- <A
href="http://www.aspsky.net/about.asp">关于本站</A> -- <A
href="http://www.aspsky.net/tell.asp">联系方法</A><BR><BR>动网先锋版权所有 <FONT
face=Verdana, size=1 Arial, Helvetica, sans-serif>Copyright ©
2000-2001 <B>AspSky<FONT color=#cc0000>.Net</FONT></B>, All Rights
Reserved .</FONT>
</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></CENTER></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -