首页 爱情文章 亲情文章 友情文章 生活随笔 校园文章 经典文章 人生哲理 励志文章 搞笑文章 心情日记
  • 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
    •
    当前位置: 山茶花美文网 > 新闻阅读 > 正文

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

    时间：2020-05-28来源：山茶花美文网 本文已影响 人 山茶花美文网手机站

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

    目前，B/S模式（浏览器/服务器模式）成为企业网上首选的计算模式。由于B/S模式的特殊性，在C/S下相对较易实现的Excel报表打印功能在B/S下却成为一个难点。本人通过研究写了一个基于ASP程序的打印Excel报表的程序。本程序的特点是无须任何组件。

    Print.asp
    ------------------------------------------------

    <html><title>打印Excel报表</title>
    <%
    "控制脚本语言
    response.write"<script language="&"VBScript"&">"
    %>
    //*****************本程序由火星工作室提供(andy2001p@)******************
    //*******************版权所有 随意拷贝********************************
    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> </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>

    • 在ASP程序中打印Excel表格的新方法|设计程序打印表格 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全

    最新文章

    热点文章

    推荐访问

    军训远足心得体会 军训爬山心得体会 大学军训徒步拉练感想 军训徒步作文 军训徒步10公里感想 军训徒步心得体会 5分钟演讲中秋节节日 中秋一分钟演讲 中秋节演讲稿4分钟 中秋节演讲稿一分钟 中秋节演讲稿五分钟 3-5分钟 中秋节短篇演讲稿 中秋节演讲稿两分钟 中秋节的演讲稿3分钟 关于中秋节的演讲稿三分钟 孩子体验军训的心得 参加孩子军训活动的感受与收获 家长对孩子军训后的收获和感悟 小孩军训的收获与感悟 学生军训的收获与感悟 孩子军训成长过程家长感悟 孩子军训感悟 孩子军训心得体会 孩子军训的收获与感悟 兵役前训练心得体会 部队当兵的心得 新兵役前教育训练心得体会 预备役军训心得体会 新兵军训感悟

    本文在ASP程序中打印Excel表格的新方法|设计程序打印表格由山茶花美文网整理提供，版权归原作者、原出处所有。

    Copyright © 山茶花美文网 All Rights Reserved.