废话少说,要完成这个工作最重要的是要告诉浏览器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")
%>
<%
" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
" % Loop through Fields Names and print out the Field Names
" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
j = 2 "row counter
For i = 0 to RS.Fields.Count - 1
%>
<% = RS(i).Name %>
<% Next %>
On Hand (calculated)
Gross (calculated)
<%
" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
" % Loop through rows, displaying each field
" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Do While Not RS.EOF
%>
<% For i = 0 to RS.Fields.Count - 1
%>
<% = RS(i) %>
<% Next %>
=b<%=j%>-c<%=j%>-d<%=j%>
=d<%=j%>*e<%=j%>
http://m.bbyears.com/asp/4174.html
推荐访问: