test_print_report.asp
<html>
<kopf>
<meta content = text/html; charSet = big5 http-äquiv = content-type>
<title> Client -Nutzung RDS Produce Excel Report </title>
</head>
<Body Bgcolor = SkyBlue Topmargin = 0 linksmargin = 20 oncontextMenu = return false rightmargin = 0 bottommargin = 0>
<form action = test_print_report.asp methode = post name = myForm>
<Div Align = Center> <center>
<Table Border = 5 bgcolor =#ffe4b5 style = Höhe: 1px; Oben: 0px borderColor =#0000ff>
<tr>
<td Align = Middle Bgcolor =#ffffff borderColor =#000080>
<font color =#000080 size = 3>
Client -Nutzung RDS erstellen Excel -Bericht
</font>
</td>
</tr>
</table>
</div>
<dival align = links>
<Eingabe type = button value = query data name = query langing = vbscript onclick = fun_query () style = height: 32px; Breite: 90px>
<Eingabe type = button value = clear data name = clear Language = vbScript Onclick = Fun_clear () style = Höhe: 32px; Breite: 90px>
<Eingabe type = button value = excel report name = report Language = vbscript onclick = fun_excel () style = Höhe: 32px; Breite: 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 ColumnallWidth, Columnawidth, Columnbwidth, Columncwidth, ColumndWidth
sub fun_query ()
Setzen Sie RDS = CreateObject (RDS.Dataspace)
Setzen Sie df = rds.createObject (rdServer.datafactory, http: // iscs00074)
Strcn = Driver = {SQL Server}; Server = ISCS00074; uid = sa; app = microsoft Development -Umgebung; Datenbank = Pubs; Benutzer -ID = SA; Passwort =;
STRSQL = SELECT * aus Jobs
Setzen Sie rs = df.query (STRCN, STRSQL)
wenn nicht rs.eof dann
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 =
anders
msgbox Keine Daten in der Tabelle!
Ende wenn
Ende sub
sub fun_clear ()
Strrs =
adddata.innerhtml = strrs
Ende sub
sub fun_excel ()
Setzen Sie RDS = CreateObject (RDS.Dataspace)
Setzen Sie df = rds.createObject (rdServer.datafactory, http: // iscs00074)
Strcn = Driver = {SQL Server}; Server = ISCS00074; uid = sa; app = microsoft Development -Umgebung; Datenbank = Pubs; Benutzer -ID = SA; Passwort =;
STRSQL = Wählen Sie Count (*) als Aufzeichnung aus Jobs aus
Setzen Sie rs = df.query (STRCN, STRSQL)
TotalPagecnt = rs (recordCnt)
&N