test_print_report.asp
<html>
<голова>
<Meta Content = text/html; charset = big5 http-equiv = content-type>
<title> клиент использует rds refact excel report </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 = высота: 1px; Верх: 0px bordercolor =#0000ff>
<tr>
<td align = middle bgcolor =#ffffff bordercolor =#000080>
<font color =#000080 size = 3>
Клиентский использование RDS производит отчет Excel
</font>
</td>
</tr>
</table>
</div>
<div Align = Left>
<input type = кнопка значения = Query Data name = Query Language = VBScript onClick = fun_query () Style = высота: 32px; Ширина: 90px>
<input type = значение кнопки = clear data name = clear language = vbscript onclick = fun_clear () style = height: 32px; Ширина: 90px>
<input type = значение кнопки = excel name name = ryport = vbscript onclick = fun_excel () стиль = высота: 32px; Ширина: 90px>
</div>
<div id = addData> </div>
</form> </center>
</body>
</html>
<script language = 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 COLLENALLWIDTH, COBLENTAWIDTH, COLMANBWIDTH, COLMANCWIDTH, COLMANDWIDTH
Sub Fun_Query ()
Установить rds = createObject (rds.dataspace)
Установите df = rds.createObject (rdsserver.datafactory, http: // iscs00074)
strcn = driver = {sql server}; server = iscs00074; uid = sa; app = среда разработки Microsoft; Database = pubs; пользователь идентификатор = sa; пароль =;
strsql = select * с заданий
Установите 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 Нет данных в таблице!
конец, если
Конец суб
sub fun_clear ()
strrs =
adddata.innerhtml = strrs
Конец суб
sub fun_excel ()
Установить rds = createObject (rds.dataspace)
Установите df = rds.createObject (rdsserver.datafactory, http: // iscs00074)
strcn = driver = {sql server}; server = iscs00074; uid = sa; app = среда разработки Microsoft; Database = pubs; пользователь идентификатор = sa; пароль =;
strsql = select count (*) как recordcnt с заданий
Установите rs = df.query (strcn, strsql)
totalPageCnt = rs (recordcnt)
& n