給你個(gè)例子看看先
在進(jìn)行ASP網(wǎng)站開(kāi)發(fā)時(shí)，有時(shí)需在客戶(hù)端調用MSSQL數據庫的數據進(jìn)行打印，若調用數據量小，可以通過(guò)在客戶(hù)端運用FileSystemObject生成文件對象的方法實(shí)現打印，這里不再贅述。若需調用大量數據，可在客戶(hù)端腳本中實(shí)例化RDS.DataSpace（Remote Data Service）對象,并采用遠程提供程序通過(guò)ASP網(wǎng)站訪(fǎng)問(wèn)MSSQL數據庫（設置成只能通過(guò)RDS Default Handler或自定義商業(yè)對象才能訪(fǎng)問(wèn)數據庫，可保證數據庫的安全），再在客戶(hù)端實(shí)例化EXCEL.APPLICATION對象，把數據集中的數據寫(xiě)入EXCEL中，再進(jìn)行保存或打印。代碼如下：
<html>
<head>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<title>客戶(hù)端電子表格打印</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">
客戶(hù)端電子表格打印
</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服務(wù)器IP地址
strcn="provider=ms remote;remote server=http://192.168.0.1;handler=msdfmap.handler;data source=pubsdatabase;" '192.168.0.1 為WEB服務(wù)器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 ="職務(wù)表"
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>
如果錯誤是檢查權限時(shí)Server.CreateObject 的調用失敗。對此對象的訪(fǎng)問(wèn)被拒,有可能是沒(méi)權限.那就
因為IIS沒(méi)有權限調用Excel的緣故。
運行dcomcnfg.exe，配置Excel的“安全性”->默認訪(fǎng)問(wèn)權限，默認啟動(dòng)權限，默認配置權限為“自定義”，并在可訪(fǎng)問(wèn)用戶(hù)中添加上IIS的賬號就OK啦
