在进行ASP网站开发时，有时需在客户端调用MSSQL数据库的数据进行打印，若调用数据量小，可以通过在客户端运用FileSystemObject生成文件对象的方法实现打印，这里不再赘述。若需调用大量数据，可在客户端脚本中实例化RDS。DataSpace（Remote Data Service）对象,并采用远程提供程序通过ASP网站访问MSSQL数据库（设置成只能通过RDS Default Handler或自定义商业对象才能访问数据库，可保证数据库的安全），再在客户端实例化EXCEL。
APPLICATION对象，把数据集中的数据写入EXCEL中，再进行保存或打印。代码如下： ＜html＞ ＜head＞ ＜META content="text/html; charset=gb2312" http-equiv=Content-Type＞ ＜title＞客户端电子表格打印＜/title＞ ＜/head＞ ＜body bgColor=skyblue topMargin=5 leftMargin="20" oncontextmenu="return false" rightMargin=0 bottomMargin="0"＞ ＜div align="center"＞＜center＞ ＜table border="1" bgcolor="#ffe4b5" style="HEIGHT: 1px; TOP: 0px" bordercolor="#0000ff"＞ ＜tr＞ ＜td align="middle" bgcolor="#ffffff" bordercolor="#000080"＞ ＜font color="#000080" size="3"＞ 客户端电子表格打印 ＜/font＞ ＜/td＞ ＜/tr＞ ＜/table＞ ＜/div＞ ＜form name="myform"＞ ＜DIV align=left＞ ＜input type="button" value="Excel Report" name="report" language="vbscript" onclick="fun_excel（）" style="HEIGHT: 32px; WIDTH: 90px"＞ ＜/div＞ ＜/form＞ ＜/body＞ ＜/html＞ ＜script language="vbscript"＞ sub fun_excel（） Dim rds,rs,df dim strCn,strSQL,StrRs Dim xlApp, xlBook, xlSheet1 set rds = CreateObject（"RDS。
DataSpace"） Set df = rds。CreateObject（"RDSServer。DataFactory","http://192。168。0。1"） '192。168。0。1 为WEB服务器IP地址 strcn="provider=ms remote;remote server=http://192。
168。0。1;handler=msdfmap。handler;data source=pubsdatabase;" '192。168。0。1 为WEB服务器IP地址 strsql= "getalljobs" Set rs = df。Query（strCn, strSQL） Set xlApp = CreateObject（"EXCEL。
APPLICATION"） '注意不是：Server。CreateObject（"EXCEL。APPLICATION"） Set xlBook = xlApp。Workbooks。Add Set xlSheet1 = xlBook。Worksheets（1） xlSheet1。
cells（1,1）。value ="职务表" xlSheet1。range（"A1:D1"）。merge xlSheet1。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 =3 do while not rs。eof xlSheet1。cells（cnt,1）。value = rs（"job_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。
movenext cnt = cint（cnt） + 1 loop xlSheet1。Application。Visible = True end sub ＜/script＞ 以上是我对于这个问题的解答，希望能够帮到大家。
答： 详情>>
答：（1)三级安全教育。 (2) 转场安全教育。 (3) 变换工种安全教育。 (4) 特种作业安全教育。 (5) 班前安全活动交底。 (6) 季节性施工安全教育。 ...详情>>
答：●创建了一套卓有成效的人才培养、培训、上岗的措施、方法和经验详情>>
答：目前只要取得教师资格证，就是长期有效的，没有时间限制的。 不清楚您说的什么教育学和教育心理学的成绩，如果是在申请时考试的成绩，一般最长保留2年，直到取得教师资格...详情>>
