|
test_print_report.asp <html> <head> <meta content="text/html; charset=BIG5" http-equiv="Content-Type"> <title>client use rds produce excel report</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> <table border="5" bgcolor="#ffe4b5" style="HEIGHT: 1px; TOP: 0px" bordercolor="#0000ff"> <tr> <td align="middle" bgcolor="#ffffff" bordercolor="#000080"> <font color="#000080" size="3"> client use rds produce excel report </font> </td> </tr> </table> </div> <div align="left"> <input type="button" value="Query Data" name="query" language="vbscript" onclick="fun_query()" style="HEIGHT: 32px; WIDTH: 90px"> <input type="button" value="Clear Data" name="Clear" language="vbscript" onclick="fun_clear()" style="HEIGHT: 32px; WIDTH: 90px"> <input type="button" value="Excel Report" name="report" language="vbscript" onclick="fun_excel()" style="HEIGHT: 32px; WIDTH: 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 |