test_print_report.asp
<html>
<head>
<meta content = text/html; charset = big5 http-equiv = content-type>
<title> o cliente usa RDS Produce Relatório Excel </ititle>
</head>
<corpo bgcolor = skyblue topmargin = 0 leftMargin = 20 oContextMenu = return false RightMargin = 0 BottomMargin = 0>
<Form Action = test_print_report.asp Método = Nome da postagem = MyForm>
<div align = Center> <Center>
<borda da tabela = 5 bgcolor =#ffe4b5 style = altura: 1px; TOP: 0PX BorderColor =#0000FF>
<tr>
<td align = médio bgcolor =#ffffff borderColor =#000080>
<font color =#000080 tamanho = 3>
O cliente de uso RDS Produce relatório do Excel
</font>
</td>
</tr>
</tabela>
</div>
<div alinhe = esquerda>
<Tipo de entrada = Valor do botão = Nome dos dados da consulta = linguagem de consulta = VBScript onclick = fun_query () style = altura: 32px; Largura: 90px>
<Tipo de entrada = Valor do botão = Nome do Dados Clear = Clear Language = VBScript OnClick = FUN_CLEAR () estilo = altura: 32px; Largura: 90px>
<Tipo de entrada = Valor do botão = Nome do relatório do Excel = Relatório Language = VBScript OnClick = FUN_EXCEL () estilo = altura: 32px; Largura: 90px>
</div>
<div id = addData> </div>
</morm> </fenter>
</body>
</html>
<idioma de script = 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 ColumnallLwidth, 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 = Microsoft Development Ambient; Database = pubs; ID do usuário = SA; senha =;
strsql = selecione * de trabalhos
Definir rs = df.Query (STRCN, StrSQL)
se não Rs.eof então
strrs = <tabela borda = 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 =
outro
msgbox sem dados na tabela!
final se
final sub
Sub fun_clear ()
strrs =
addData.innerhtml = strrs
final sub
subjan_excel ()
set rds = createObject (rds.dataspace)
set df = rds.createObject (rdSserver.datafactory, http: // iscs00074)
strcn = driver = {sql server}; server = iSCS00074; uid = sa; app = Microsoft Development Ambient; Database = pubs; ID do usuário = SA; senha =;
strsql = selecione count (*) como registro de empregos
Definir rs = df.Query (STRCN, StrSQL)
totalpagecnt = rs (recordcnt)
& n