test_print_report.asp
<Html>
<head>
<meta konten = teks/html; charset = BIG5 http-equiV = tipe konten>
<title> Klien menggunakan RDS menghasilkan laporan Excel </iteme>
</head>
<body bgcolor = skyblue topmargin = 0 leftmargin = 20 oncontextMenu = return false rightmargin = 0 bottommargin = 0>
<Form Action = test_print_report.asp Metode = Posting Nama = myForm>
<Div Align = Center> <Tenter>
<tabel border = 5 bgcolor =#ffe4b5 style = tinggi: 1px; TOP: 0PX BORTERCOLOR =#0000FF>
<tr>
<td align = bgcolor tengah =#ffffff bordercolor =#000080>
<font color =#000080 size = 3>
Klien menggunakan RDS menghasilkan laporan Excel
</font>
</td>
</tr>
</boable>
</div>
<Div Align = Left>
<input type = nilai tombol = nama data kueri = bahasa kueri = vbscript onclick = fun_query () style = tinggi: 32px; Lebar: 90px>
<input type = nilai tombol = jernih nama data = clear bahasa = vbscript onclick = fun_clear () style = tinggi: 32px; Lebar: 90px>
<input type = value tombol = nama laporan excel = bahasa laporan = vbscript onclick = fun_excel () style = tinggi: 32px; Lebar: 90px>
</div>
<Div ID = AddData> </div>
</form> </penter>
</body>
</html>
<bahasa skrip = vbscript>
red rds, rs, df
redup strsql, strrs, strcn, rowcnt
Dim Xlapp, XLBook, XLSheet1, XLModule, XLPAGESETUP
redup headrowcnt, titlerowcnt, contentrowcnt, footrowcnt
redup pagerowcnt, pageno, totalpagecnt, contentRownoWcnt
Dim ColumnAllWidth, Columnawidth, Columnbwidth, ColumncWidth, ColumndWidth
sub fun_query ()
Set RDS = CreateObject (RDS.DATASPACE)
Set DF = RDS.CreateObject (RDSServer.DataFactory, http: // iSCS00074)
strcn = driver = {sql server}; server = iScs00074; uid = SA; app = lingkungan pengembangan microsoft; basis data = pubs; id pengguna = SA; kata sandi =;
strsql = pilih * dari pekerjaan
Set RS = df.query (strcn, strsql)
Jika tidak rs.eof maka
strrs = <tabel 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> </able>
addData.innerhtml = strrs
strrs =
kalau tidak
MSGBOX TIDAK DATA DI TABEL!
akhiri jika
akhir sub
sub fun_clear ()
strrs =
addData.innerhtml = strrs
akhir sub
sub fun_excel ()
Set RDS = CreateObject (RDS.DATASPACE)
Set DF = RDS.CreateObject (RDSServer.DataFactory, http: // iSCS00074)
strcn = driver = {sql server}; server = iScs00074; uid = SA; app = lingkungan pengembangan microsoft; basis data = pubs; id pengguna = SA; kata sandi =;
strsql = pilih count (*) sebagai rekaman dari pekerjaan
Set RS = df.query (strcn, strsql)
TotalPageCnt = RS (RecordCnt)
&N