在asp程序中打印excel报表的新方法
目前,b/s模式(浏览器/服务器模式)成为企业网上首选的计算模式。由于b/s模式的特殊性,在c/s下相对较易实现的excel报表打印功能在b/s下却成为一个难点。本人通过研究写了一个基于asp程序的打印excel报表的程序。本程序的特点是无须任何组件。
print.asp
------------------------------------------------
<%
'控制脚本语言
response.write
%>
//*****************本程序由火星工作室提供()******************
//*******************版权所有 随意拷贝********************************
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.writexlsheet1.cells(&ii+4&,2).value=%><%=rsd(姓名)%>
<%response.writexlsheet1.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
%>
更多信息请查看IT技术专栏