test_print_report.asp
<html>
<頭>
<meta content = text/html; charset = big5 http-equiv = content-type>
<title>客戶使用RDS CADURE EXCEL報告</Title>
</head>
<body bgcolor = skyblue topmargin = 0 leftmargin = 20 oncontextmenu =返回false false rightmargin = 0 bottommargin = 0> 0>
<form action = test_print_report.asp方法= post name = myform>
<div align =中心> <center>
<table border = 5 bgcolor =＃ffe4b5樣式=高度：1px;頂部：0px BorderColor =＃0000FF>
<tr>
<td align =中間bgcolor =＃ffffff bordercolor =＃000080>
<font color =＃000080 size = 3>
客戶使用RDS生產Excel報告
</font>
</td>
</tr>
</table>
</div>
<div align =左>
<input type = button value =查詢數據名稱= query語言= vbscript onclick = fun_query（）樣式=高度：32px;寬度：90px>
<input type = button value = clear data name = clear語言= vbscript onclick = fun_clear（）樣式=高度：32px;寬度：90px>
<input type = button value = excel報告名稱=報告語言= vbscript onclick = fun_excel（）樣式=高度：32px;寬度：90px>
</div>
<div id = adddata> </div>
</form> </center>
</body>
</html>
<腳本語言= vbscript>
DIM RDS，RS，DF
昏暗的strsql，strrs，strcn，rowcnt
DIM XLAPP，XLBOOK，XLSHEET1，XLMODULE，XLPAGESETUP
昏暗的headrowcnt，titlerowcnt，contentrowcnt，footrowcnt
Dim Pagerowcnt，Pageno，TotalPageCnt，ContentRownOwcnt
dim columnAllWidth，columnawidth，columnBwidth，columnCwidth，columnDwidth
sub fun_query（）
設置rds = createObject（rds.dataspace）
set df = rds.createobject（rdsserver.datafactory，http：// iscs00074）
strcn =驅動程序= {sql server}; server = iscs00074; uid = sa; app = microsoft開發環境; database = pubs; user id = sa; passwork =;
strsql =從工作中選擇 *
設置rs = df.query（strcn，strsql）
如果不是rs.eof，則
strrs = <table border = 1> <tr> <td> job_id </td> <td> job_desc </td> <td> max_lvl </td> <td> <td> <td> min_lvl </td> < /td> </tr> </tr> <tr> <td> + rs.getString（,, </td> <td>，</td> </td> </tr> <tr> <td> ，） + </td> </td> </tr> </table>
adddata.innerhtml = strr
strrs =
別的
sgbox表中沒有數據！
如果結束
結束子
sub fun_clear（）
strrs =
adddata.innerhtml = strr
結束子
sub fun_excel（）
設置rds = createObject（rds.dataspace）
set df = rds.createobject（rdsserver.datafactory，http：// iscs00074）
strcn =驅動程序= {sql server}; server = iscs00074; uid = sa; app = microsoft開發環境; database = pubs; user id = sa; passwork =;
strsql =從作業中選擇計數（*）為recordcnt
設置rs = df.query（strcn，strsql）
TotalPageCnt = RS（RecordCnt）
＆n