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