test_print_report.asp
<html>
<head>
<Meta content = text/html; charset = big5 http-equiv = content-type>
<Title>クライアントの使用RDSプロデュースExcelレポート</title>
</head>
<body bgcolor = skyblue topmargin = 0 leftmargin = 20 oncontextmenu = return false rightmargin = 0 bottommargin = 0>
<form action = test_print_report.asp method = post name = myform>
<div align = center> <center>
<テーブルボーダー= 5 bgcolor =＃ffe4b5 style = height：1px;上：0px bordercolor =＃0000ff>
<tr>
<td align = middle bgcolor =＃ffffff bordercolor =＃000080>
<font color =＃000080サイズ= 3>
クライアントはRDSを使用してExcelレポートを作成します
</font>
</td>
</tr>
</table>
</div>
<div align = left>
<入力タイプ=ボタン値=クエリデータ名= query言語= vbscript onclick = fun_query（）style = height：32px;幅：90px>
<入力タイプ=ボタン値= clearデータname = clear language = vbscript onclick = fun_clear（）style = height：32px;幅：90px>
<入力タイプ=ボタン値= excelレポート名=レポート言語= vbscript onclick = fun_excel（）style = height：32px;幅：90px>
</div>
<div id = adddata> </div>
</form> </center>
</body>
</html>
<スクリプト言語= vbscript>
DIM RDS、RS、DF
dim strsql、strrs、strcn、rowcnt
dim xlapp、xlbook、xlsheet1、xlmodule、xlpagesetup
dim 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（rdserver.datafactory、http：// iscs00074）をset
strcn = driver = {sql server}; server = iscs00074; uid = sa; app = microsoft開発環境;データベース= pubs; user id = sa; password =;
strsql = select * from jobs
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> min_lvl </td> </tr> <tr> <td> + rs.getString（,, </td> <td>、</td> </tr> <tr> <td>、） + </td> </tr> </table>
adddata.innerhtml = strrs
strrs =
それ以外
MSGBOXテーブルにデータがありません！
ifを終了します
End Sub
sub fun_clear（）
strrs =
adddata.innerhtml = strrs
End Sub
sub fun_excel（）
rds = createObject（rds.dataspace）set
df = rds.createobject（rdsserver.datafactory、http：// iscs00074）をset
strcn = driver = {sql server}; server = iscs00074; uid = sa; app = microsoft開発環境;データベース= pubs; user id = sa; password =;
strsql = select count（*）は、ジョブからrecordcntとしてcount（*）を選択します
rs = df.query（strcn、strsql）を設定します
totalpagecnt = rs（recordcnt）
＆n