六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

使用ASP制作EXECL報表方法(一)

[摘要]很多時候我們需要把表格形式的數據轉換成EXECL的形式呈現在用戶面前,其中有好幾個方法可以做到一點,我將介紹一種利用ASP完成的方法,該方法允許服務器動態地創建EXECL報表而且不用占用任何服務器空間。該方法還允許多個用戶同時收到該數據。但是該方法至少需要EXECL 97的支持。 廢話少說,要...
很多時候我們需要把表格形式的數據轉換成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操作的方法。請稍候。:)




主站蜘蛛池模板: 视频日韩 | 亚洲一区免费看 | 日韩伦理视频在线观看 | 亚洲国产成人久久综合一区 | 日本免费一二三区 | 日本一区二区三区四区无限 | 午夜无遮挡怕怕怕免费视频 | 日本一区二区三区视频在线 | 污污的视频在线免费观看 | 天狼影院伦理片在线bd观看 | 色香蕉色香蕉在线视频 | 亚洲黄色在线网站 | 在线免费公开视频 | 日韩午夜伦 | 日本一区二区在线播放 | 欧美视频一区二区三区 | 日本在线日本中文字幕日本在线视频播放 | 日韩欧美三级视频 | 欧美综合图区亚洲综合图区 | 图片区欧美色图 | 天天天天色 | 天天黄视频 | 一级片久久| 亚洲精品欧美在线 | 亚洲 欧洲 日产 韩国在线 | 五月天婷婷基地 | 天堂在线影院 | 日韩视频免费观看 | 天天夜夜骑 | 在线播放高清国语自产拍免费 | 亚洲好看站 | 亚洲免费视| 亚洲tv精品一区二区三区 | 天天干天天干天天干天天 | 欧美丝袜一区二区三区 | 天天做天天爰夜夜爽 | 天天看片中文字幕 | 日日爱影院| 日韩欧美精品在线视频 | 色婷婷激婷婷深爱五月老司机 | 午夜国产精品久久久久 |