程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 在ASP程序中打印Excel表格的新方法

在ASP程序中打印Excel表格的新方法

編輯:關於ASP編程

     在ASP程序中打印Excel報表的新方法
     
    目前,B/S模式(浏覽器/服務器模式)成為企業網上首選的計算模式。由於B/S模式的特殊性,在C/S下相對較易實現的Excel報表打印功能在B/S下卻成為一個難點。本人通過研究寫了一個基於ASP程序的打印Excel報表的程序。本程序的特點是無須任何組件。 
       
    Print.asp 
    ------------------------------------------------

    <html><title>打印Excel報表</title> 
    <% 
    '控制腳本語言 
    response.write"<script language="&"VBScript"&">" 
    %> 
    //*****************本程序由火星工作室提供([email protected])****************** 
    //*******************版權所有 隨意拷貝******************************** 
    function ccprint() 
    Set xlApp = CreateObject("EXCEL.APPLICATION")

    //打開工作表! 
    Set xlBook = xlApp.Workbooks.Open("c:book1.xlt") 
    set xlsheet1 = xlBook.ActiveSheet 
    <% db="zhk.mdb" 
    Set conn = Server.CreateObject("ADODB.Connection") 
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") 
    conn.Open connstr 
    set rsd=server.createobject("adodb.recordset") 
    str="select * from cjb00" 
    rsd.open str,conn 
    ii=1 
    do while not rsd.eof and ii<11 
    %> 
    <%response.write"xlSheet1.cells("&ii+4&",2).value="%>"<%=rsd("姓名")%>" 
    <%response.write"xlSheet1.cells("&ii+4&",3).value="%>"<%=rsd("學號")%>" 
    <% 
    rsd.movenext 
    ii=ii+1 
    loop 
    rsd.close 
    set rsd=nothing 
    %> 
    xlSheet1.Application.Visible = True 
    end function 
    //*****************本程序由火星工作室提供****************** 
    <% 
    response.write"</script>" 
    %>


    <html><title>打印Excel報表</title> 
    <body> 
    <center> 
    <h2><font color=red>學生表(Demo)</font></h2> 
    <p>&nbsp;</p> 
    <form name="fmp" method="post" action=""> 
    <% 
    db="zhk.mdb" 
    Set conn = Server.CreateObject("ADODB.Connection") 
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") 
    conn.Open connstr 
    set rsd=server.createobject("adodb.recordset") 
    str="select * from cjb00" 
    rsd.open str,conn 
    %> 
    <table width="396" height="58" border="1" bordercolor="#00FF00" bgcolor=lightyellow> 
    <tr bgcolor=deepskyblue> 
    <th><b>姓名</b></th> 
    <th><b>學號</b></th> 
    </tr> 
    <% 
    do while not rsd.eof 
    %> 
    <tr align=center> 
    <td> <%=rsd("姓名")%> 
    </td> 
    <td> <%=rsd("學號")%> 
    </td> 
    </tr> 
    <% 
    rsd.MoveNext 
    loop 
    %> 
    <% rsd.close 
    set rsd=nothing 
    conn.close 
    set cnn=nothing %> 
    </table> 
    <p> 
    <input name="Submit2" type="button" onclick="ccprint()" onDblClick="ccprint()" value="打印"> 
    <br> 
    </p> 
    </form> 
    </center> 
    </body> 
    </html>

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved