资源描述:
《用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