test_print_report.asp
<html>
<헤드>
<meta content = text/html; charset = big5 http-equiv = content-type>
<title> 클라이언트 사용 RDS는 Excel 보고서를 생성합니다 </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 스타일 = 높이 : 1px; 상단 : 0px bordercolor =#0000ff>
<tr>
<td elign = 중간 bgcolor =#ffffff bordercolor =#000080>
<font color =#000080 크기 = 3>
클라이언트 사용 RDS는 Excel 보고서를 생성합니다
</font>
</td>
</tr>
</테이블>
</div>
<div align = 왼쪽>
<입력 유형 = 버튼 값 = 쿼리 데이터 이름 = 쿼리 언어 = vbscript onclick = fun_query () 스타일 = 높이 : 32px; 너비 : 90px>
<입력 유형 = 버튼 값 = 클리어 데이터 이름 = 클리어 언어 = vbscript onclick = fun_clear () 스타일 = 높이 : 32px; 너비 : 90px>
<입력 유형 = 버튼 값 = 엑셀 보고서 이름 = 보고서 언어 = 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 ColumnAllWidth, CalformalBwidth, 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 = microsoft 개발 환경; database = pubs; 사용자 id = sa; password =;
strsql = jobs에서 선택 *을 선택하십시오
set rs = df.query (strcn, strsql)
그렇지 않다면 그렇다면
strrs = <table border = 1> <td> <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> <td> <td>,) + </td> </tr> </table>
addData.innerhtml = strrs
strrs =
또 다른
Msgbox 테이블에 데이터가 없습니다!
끝 If
종료 서브
sub fun_clear ()
strrs =
addData.innerhtml = strrs
종료 서브
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 = microsoft 개발 환경; database = pubs; 사용자 id = sa; password =;
strsql = jobs에서 recordcnt로 count (*)를 선택하십시오
set rs = df.query (strcn, strsql)
Totalpagecnt = rs (recordcnt)
&N