test_print_report.asp
<html>
<head>
<meta content = text/html ؛ charset = big5 http-equiv = content-type>
<title> عميل استخدام RDS Product 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> <centre>
<جدول الحدود = 5 bgColor =#ffe4b5 النمط = الارتفاع: 1px ؛ أعلى: 0px bordercolor =#0000ff>
<tr>
<td align = middle bgcolor =#ffffff borderColor =#000080>
<font color =#000080 size = 3>
استخدام العميل RDS Product Excel Report
</font>
</td>
</r>
</table>
</div>
<div align = left>
<نوع الإدخال = قيمة زر = اسم بيانات الاستعلام = لغة الاستعلام = vbscript onClick = fun_query () style = الارتفاع: 32px ؛ العرض: 90 بكسل>
<type type = button value = clear data name = clear language = vbscript onClick = fun_clear () style = height: 32px ؛ العرض: 90 بكسل>
<type type = button value = excel report name = report language = vbscript onClick = fun_excel () style = height: 32px ؛ العرض: 90 بكسل>
</div>
<div id = addData> </viv>
</form> </center>
</body>
</html>
<لغة البرنامج النصي = vbscript>
RDS DIM ، RS ، DF
قاتمة strsql ، strrs ، strcn ، rowcnt
Dim XLAPP ، XLBOOK ، XLSHEET1 ، XLMODULE ، XLPAGESEP
قاتمة 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 = driver = {sql server} ؛ server = iscs00074 ؛ uid = sa ؛ app = Microsoft Development Environment ؛ database = pubs ؛ user id = sa ؛ password = ؛
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> 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)
set df = rds.createObject (rdsserver.datafactory ، http: // iscs00074)
strcn = driver = {sql server} ؛ server = iscs00074 ؛ uid = sa ؛ app = Microsoft Development Environment ؛ database = pubs ؛ user id = sa ؛ password = ؛
strsql = حدد العد (*) كـ RecordCnt من الوظائف
تعيين rs = df.query (strcn ، strsql)
TotalPageCnt = RS (RecordCNT)
& ن