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

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

使用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操作的方法。請稍候。:)




主站蜘蛛池模板: 日日天天夜夜 | 视频在线日韩 | 青青草精品在线视频 | 日本视频播放免费线上观看 | 日韩欧美在线视频观看 | 午夜看片 | 亚洲成a人片在线观看www | 日韩乱码视频 | 日韩精品a在线视频 | 青草社区在线观看 | 伊人久久大香线蕉综合影 | 在线你懂得 | 夜间视频在线观看 | 天天摸日日摸人人看 | 日本一区二区三区国产 | 亚洲精品一二三四区 | 亚洲香蕉综合在人在线视看 | 一级黄色片免费播放 | 四虎影视成人永久在线播放 | 天天拍天天射 | 全黄一级裸片视频免费 | 亚洲国产www | 日韩毛片在线播放 | 天天爽视频 | 伊人影院综合网 | 亚洲欧美国产另类 | 小明永久成人一区二区 | 四虎在线永久精品高清 | 亚洲精品日韩专区在线观看 | 欧美一级做a爰片免费 | 日日夜夜狠狠 | 色网站在线| 三上悠亚久久国产 | 四虎欧美永久在线精品免费 | 青青久精品观看视频最新 | 亚洲欧美手机在线观看 | 亚洲97i蜜桃网 | 窝窝女人体国产午夜视频 | 亚洲www在线 | 青榴视频在线 | 日本不卡网|