ASP網站遠程客戶實現EXCEL打印功能

在進行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; : 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＞