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

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

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




主站蜘蛛池模板: 亚洲aa | 日本xxxxxx片免费播放18 | 亚洲成av人影院 | 色姣姣狠狠撩综合网 | 偷窥综合网 | 天堂tv| 色综合 成人 | 亚洲淫片 | 天美蜜桃精东乌鸦果冻麻豆 | 午夜影视体验区 | 色综合色综合色综合色综合网 | 一级毛片女学护士 | 天天天天天天干 | 窝窝午夜色视频国产精品东北 | 欧美亚洲图区 | 啪啪噜噜 | 亚洲精品免费观看 | 日本一区二区三区免费高清在线 | 日本男女网站 | 又大又硬又粗又爽免费 | 青青草香蕉 | 亚洲欧洲精品视频在线观看 | 婷婷久久综合 | 亚洲国产精品一区二区久久hs | 色综合久久88 | 色欧美片视频在线观看 | 天堂资源在线中文 | 手机在线观看亚洲国产精品 | 亚州免费一级毛片 | 日本高清观看视频 | 日本在线视频网站www色下载 | 日韩射吧| 日本亚洲一区二区三区 | 自拍视频在线看 | 一级做α爰片久久毛片 | 四虎影院在线视频 | 午夜激情视频专区在线观看网站大全 | 日本高清网 | 欧美一区视频在线 | 亚洲狼网站狼狼鲁亚洲下载 | 天堂网在线最新版www中文网 |