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 = ส่งคืน rightmargin false = 0 botommargin = 0>
<form action = test_print_report.asp method = post name = myform>
<div align = center> <enter>
<table border = 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 = ซ้าย>
<ประเภทอินพุต = ค่าปุ่ม = ชื่อข้อมูลแบบสอบถาม = ภาษาคิวรี = VBScript onClick = fun_query () style = ความสูง: 32px; ความกว้าง: 90px>
<ประเภทอินพุต = ค่าปุ่ม = ล้างชื่อข้อมูล = ภาษาเคลียร์ = vbscript onClick = fun_clear () style = ความสูง: 32px; ความกว้าง: 90px>
<ประเภทอินพุต = ค่าปุ่ม = excel report name = report language = vbscript onclick = fun_excel () style = ความสูง: 32px; ความกว้าง: 90px>
</div>
<div id = addData> </div>
</form> </enter>
</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)
ตั้งค่า df = rds.createObject (rdsserver.datafactory, http: // iscs00074)
strcn = driver = {sql server}; server = iScs00074; uid = sa; app = สภาพแวดล้อมการพัฒนา Microsoft; database = pubs; ID ผู้ใช้ = SA; รหัสผ่าน =;
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)
ตั้งค่า df = rds.createObject (rdsserver.datafactory, http: // iscs00074)
strcn = driver = {sql server}; server = iScs00074; uid = sa; app = สภาพแวดล้อมการพัฒนา Microsoft; database = pubs; ID ผู้ใช้ = SA; รหัสผ่าน =;
strsql = select count (*) เป็น recordcnt จากงาน
ตั้งค่า rs = df.Query (strcn, strsql)
TotalPagecnt = Rs (Recordcnt)
& n