用asp实现远程客户打印excel表格

用asp实现远程客户打印excel表格

ID:1916340

大小:39.00 KB

页数:7页

时间:2017-11-13

用asp实现远程客户打印excel表格_第1页
用asp实现远程客户打印excel表格_第2页
用asp实现远程客户打印excel表格_第3页
用asp实现远程客户打印excel表格_第4页
用asp实现远程客户打印excel表格_第5页
资源描述:

《用asp实现远程客户打印excel表格》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、ASP网站远程客户实现EXCEL打印功能在进行ASP网站开发时,有时需在客户端调用MSSQL数据库的数据进行打印,若调用数据量小,可以通过在客户端运用FileSystemObject生成文件对象的方法实现打印,这里不再赘述。若需调用大量数据,可在客户端脚本中实例化RDS.DataSpace(RemoteDataService)对象,并采用远程提供程序通过ASP网站访问MSSQL数据库(设置成只能通过RDSDefaultHandler或自定义商业对象才能访问数据库,可保证数据库的安全),再在客户端实例化EXCEL.APPLICATION对象,把数据集中的数据写入EXCEL中,

2、再进行保存或打印。代码如下:<html><head><METAcontent="text/html;charset=gb2312"http-equiv=Content-Type><title>客户端电子表格打印</title></head><bodybgColor=skybluetopMargin=5leftMargin="20"oncontextmenu="returnfalse"rightMargin=0bottomMargin="0"><divalign="center"><center><tableborder="1"bgcolor="#ffe4b5"style="

3、HEIGHT:1px;TOP:0px"bordercolor="#0000ff"><tr><tdalign="middle"bgcolor="#ffffff"bordercolor="#000080"><fontcolor="#000080"size="3">客户端电子表格打印</font></td></tr></table></div><formname="myform"><DIValign=left><inputtype="button"value="ExcelReport"name="report"language="vbscript"onclick="fun_exc

4、el()"style="HEIGHT:32px;WIDTH:90px"></div></form></body></html><scriptlanguage="vbscript">subfun_excel()Dimrds,rs,dfdimstrCn,strSQL,StrRsDimxlApp,xlBook,xlSheet1setrds=CreateObject("RDS.DataSpace")Setdf=rds.CreateObject("RDSServer.DataFactory","http://192.168.0.1")'192.168.0.1为WEB服务器IP地址st

5、rcn="provider=msremote;remoteserver=http://192.168.0.1;handler=msdfmap.handler;datasource=pubsdatabase;"'192.168.0.1为WEB服务器IP地址strsql="getalljobs"Setrs=df.Query(strCn,strSQL)SetxlApp=CreateObject("EXCEL.APPLICATION")'注意不是:Server.CreateObject("EXCEL.APPLICATION")SetxlBook=xlApp.Workbooks.Ad

6、dSetxlSheet1=xlBook.Worksheets(1)xlSheet1.cells(1,1).value="职务表"xlSheet1.range("A1:D1").mergexlSheet1.cells(2,1).value="job_id"xlSheet1.cells(2,2).value="job_desc"xlSheet1.cells(2,3).value="max_lvl"xlSheet1.cells(2,4).value="min_lvl"cnt=3dowhilenotrs.eofxlSheet1.cells(cnt,1).value=rs("job_

7、id")xlSheet1.cells(cnt,2).value=rs("job_desc")xlSheet1.cells(cnt,3).value=rs("max_lvl")xlSheet1.cells(cnt,4).value=rs("min_lvl")rs.movenextcnt=cint(cnt)+1loopxlSheet1.Application.Visible=Trueendsub</script>  也可以实例化RDSDataControl,只需把以上部分代码进行修改:setrds=CreateObje

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。