【正文】 分輸入條件并單擊導入 Excel 按鈕后用戶添加的查詢條件將被提交給數(shù)據(jù)處理頁處理頁用 select case 判斷隱藏域的值進而確定怎樣處理 數(shù)據(jù)處理頁對查詢條件經(jīng)過處理產(chǎn)生相應的 SQL 查詢語句其代碼如下 sql id is not null if request ClientCountry 全部 then 國家地區(qū)不為全部時 sql sql and ClientCountry request ClientCountry end if if request ClientCity 全部 then 城市不為全部時 sql sql and ClientCity request ClientCity end if if request SetName 全部 then 客戶名稱不為全部時 sql sql and SetName request SetName end if if trim request search then 當關(guān)鍵字不為空時 sql sql and request searchtype like request search end if sql select ClientNameClientCountryClientCityClientTelClientFaxClientEmail from tb_Client where sql responseRedirect Table_print_Cdaspsql sqltt excul 把參數(shù)傳給下載頁面 當數(shù)據(jù)處理頁處理完畢之后會自動轉(zhuǎn)向下載頁在下載頁中單擊左鍵直接用 web 打開 Excel 右鍵單擊下載選擇目標另存為 if request tt excul then 當為客戶報表查詢時產(chǎn)生相應字段 a array 公司名稱 所在國家地區(qū) 所在城市 公司電話 公司傳真 Email elseif request tt excul_l then 當為聯(lián)系人報表查詢時產(chǎn)生相應字段 a array 姓名 客戶名稱 部門 職務 電話 手機Email elseif request tt excul_k then 當為反饋客戶報表查詢時產(chǎn)生相應字段 a array 客戶名稱 反饋日期 是否解決 反饋主題 反饋內(nèi)容 處理結(jié)果 elseif request tt excul_kc then 當為庫存報表查詢時產(chǎn)生相應字段 a array 客戶編號 客戶名稱 產(chǎn)品數(shù)量 單位 庫存類型 end if responseContentType applicationvndmsexcel set rs connexecute request sql table width 100 border 1 cellspacing 0 for i 0 to t1 td align center a i next do while not rseof for i 0 to t1 td align center class table rs i next rsmovenext loop rsclose 報表下載頁面的運行結(jié)果如圖 24 所示 圖 24 報表下載頁面的運行結(jié)果 3．用 web 打印 用戶在查詢部分輸入查詢條件后單擊打印報表按鈕用戶添加的查詢條件將被提交給數(shù)據(jù)處理頁處理頁用 select case 判斷隱藏域的值進而確定怎樣處理 數(shù)據(jù)處理頁對查詢條件經(jīng)過處理產(chǎn)生相應的 SQL 查詢語句程序代碼如下 sql id is not null if request ClientCountry 全部 then 國家地區(qū)不為全部時 sql sql and ClientCountry request ClientCountry end if if request ClientCity 全部 then 城市不為全部時 sql sql and ClientCity request ClientCity end if if request SetName 全部 then 客戶名稱不為全部時 sql sql and SetName request SetName end if if trim request search then 當關(guān)鍵字不為空時 sql sql and request searchtype like request search end if sql select from tb_Client where sql responseRedirect Table_print_paspsql sql 把參數(shù)傳給打印頁面 當數(shù)據(jù)處理頁處 理完畢之后會自動轉(zhuǎn)向打印頁打印頁是一個框架集包含三個頁面框架頁代碼如下 sql request sql if sql then sql session sql end if session sql sql show request show if show then show 15 end if p request p if p or p 0 then p 1 end if frameset rows 42 framespacing 0 frameborder NO border 0 frame src Table_print_topaspsql request sql show show p p name topFrame frameborder no scrolling NO noresize frame src Table_printaspsql request sql show show p p name mainFrame frameborder no 控制頁面代碼如下 sql request sql 獲取 sql 語句 if sql then sql session sql end if session sql sql show request show set rs serverCreateObject adodbrecordset sql sql rsopen sqlconn11 if not rseof then tol rsrecordcount rspagesize show page rspagecount requestpage clng request p else page 0 tol 0 show 0 end if table width 649 border 0 align center tr valign middle form name form1 td width 14 valign middle select name menu1 onChange MM_jumpMenu parentthis0 for i 1 to 200 option value Table_print_paspshow i if i int show then selected end if 每頁顯示 i 條記錄 next form name form2 td width 7 valign middle select name menu3 onChange MM_jumpMenu parentmainFramethis0 for i 1 to page option value Table_printaspp i show show sql request sql 第 i 頁 next td width 64 height 23 valign middle 總頁數(shù) page 總條數(shù) tol td width 15 align right a href javascriptpaswindowprint 打印 打印預覽頁面代碼如下 sql request sql if request sql then sql session sql end if session sql sql show request show set rs serverCreateObject adodbrecordset sql session sql rsopen sqlconn11 if not rseof then tol rsrecordcount rspagesize show page rspagecount requestpage clng request p if requestpage or requestpage 0 then requestpage 1 end if if requestpage page then requestpage page end if if requestpage 1 then rsmove requestpage1 rspagesize end if for i 1 to rspagesize and not rseof tr align center td height 30 rs ClientName rs ClientCountry rs ClientCity rs ClientTel rs ClientFax rs ClientEmail rsmovenext if rseof then exit for next else responseWrite span class style2 沒有找到相關(guān)信息 end if 客戶報表打印頁面運行結(jié)果如圖 25 所示 圖 25 客戶報表打印頁面的運行結(jié)果 72 聯(lián)系人報表模塊 1．聯(lián)系報表查詢 聯(lián)系人報表查詢頁面涉及的 HTML 表單元素如表 6 所示 表 6 聯(lián)系人報表查詢頁面涉及的 HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method post action eeeet hidden 判斷表單如何處理 LinkmanDept select 國家地區(qū) option value rsg ClientCountry rsg ClientCountry LinkmanDuty select 城市 option value rsc ClientCity rsc ClientCity select2 select 創(chuàng)建者 option value rss SetName rss SetName option Submit submit 導入Execul class input value 導入 Excul onClick fe excul Submit submit 直接打印 class input value 打印報表 onClick fe print_c 用戶可以在報表管理頁面中的聯(lián)系人報表查詢部分輸入一定的查詢條件進行聯(lián)系人信息的查詢 2．導入 Excul 用戶在查詢部分輸入查詢條件后單擊導入 Excul 按鈕用戶所添加的查詢條件將被提交給數(shù)據(jù)處理頁處理頁用 select case 判斷隱藏域的值進而確定怎樣處理傳值的程序代碼如下 sql is not null if request LinkmanDept 全部 then sql sql and manDept r