【正文】 當(dāng)用戶(hù)在查詢(xún)部分輸入條件并單擊導(dǎo)入 Excel 按鈕后用戶(hù)添加的查詢(xún)條件將被提交給數(shù)據(jù)處理頁(yè)處理頁(yè)用 select case 判斷隱藏域的值進(jìn)而確定怎樣處理 數(shù)據(jù)處理頁(yè)對(duì)查詢(xún)條件經(jīng)過(guò)處理產(chǎn)生相應(yīng)的 SQL 查詢(xún)語(yǔ)句其代碼如下 sql id is not null if request ClientCountry 全部 then 國(guó)家地區(qū)不為全部時(shí) sql sql and ClientCountry request ClientCountry end if if request ClientCity 全部 then 城市不為全部時(shí) sql sql and ClientCity request ClientCity end if if request SetName 全部 then 客戶(hù)名稱(chēng)不為全部時(shí) sql sql and SetName request SetName end if if trim request search then 當(dāng)關(guān)鍵字不為空時(shí) 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ù)傳給下載頁(yè)面 當(dāng)數(shù)據(jù)處理頁(yè)處理完畢之后會(huì)自動(dòng)轉(zhuǎn)向下載頁(yè)在下載頁(yè)中單擊左鍵直接用 web 打開(kāi) Excel 右鍵單擊下載選擇目標(biāo)另存為 if request tt excul then 當(dāng)為客戶(hù)報(bào)表查詢(xún)時(shí)產(chǎn)生相應(yīng)字段 a array 公司名稱(chēng) 所在國(guó)家地區(qū) 所在城市 公司電話(huà) 公司傳真 Email elseif request tt excul_l then 當(dāng)為聯(lián)系人報(bào)表查詢(xún)時(shí)產(chǎn)生相應(yīng)字段 a array 姓名 客戶(hù)名稱(chēng) 部門(mén) 職務(wù) 電話(huà) 手機(jī)Email elseif request tt excul_k then 當(dāng)為反饋客戶(hù)報(bào)表查詢(xún)時(shí)產(chǎn)生相應(yīng)字段 a array 客戶(hù)名稱(chēng) 反饋日期 是否解決 反饋主題 反饋內(nèi)容 處理結(jié)果 elseif request tt excul_kc then 當(dāng)為庫(kù)存報(bào)表查詢(xún)時(shí)產(chǎn)生相應(yīng)字段 a array 客戶(hù)編號(hào) 客戶(hù)名稱(chēng) 產(chǎn)品數(shù)量 單位 庫(kù)存類(lèi)型 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 報(bào)表下載頁(yè)面的運(yùn)行結(jié)果如圖 24 所示 圖 24 報(bào)表下載頁(yè)面的運(yùn)行結(jié)果 3．用 web 打印 用戶(hù)在查詢(xún)部分輸入查詢(xún)條件后單擊打印報(bào)表按鈕用戶(hù)添加的查詢(xún)條件將被提交給數(shù)據(jù)處理頁(yè)處理頁(yè)用 select case 判斷隱藏域的值進(jìn)而確定怎樣處理 數(shù)據(jù)處理頁(yè)對(duì)查詢(xún)條件經(jīng)過(guò)處理產(chǎn)生相應(yīng)的 SQL 查詢(xún)語(yǔ)句程序代碼如下 sql id is not null if request ClientCountry 全部 then 國(guó)家地區(qū)不為全部時(shí) sql sql and ClientCountry request ClientCountry end if if request ClientCity 全部 then 城市不為全部時(shí) sql sql and ClientCity request ClientCity end if if request SetName 全部 then 客戶(hù)名稱(chēng)不為全部時(shí) sql sql and SetName request SetName end if if trim request search then 當(dāng)關(guān)鍵字不為空時(shí) sql sql and request searchtype like request search end if sql select from tb_Client where sql responseRedirect Table_print_paspsql sql 把參數(shù)傳給打印頁(yè)面 當(dāng)數(shù)據(jù)處理頁(yè)處 理完畢之后會(huì)自動(dòng)轉(zhuǎn)向打印頁(yè)打印頁(yè)是一個(gè)框架集包含三個(gè)頁(yè)面框架頁(yè)代碼如下 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 控制頁(yè)面代碼如下 sql request sql 獲取 sql 語(yǔ)句 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 每頁(yè)顯示 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 頁(yè) next td width 64 height 23 valign middle 總頁(yè)數(shù) page 總條數(shù) tol td width 15 align right a href javascriptpaswindowprint 打印 打印預(yù)覽頁(yè)面代碼如下 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 沒(méi)有找到相關(guān)信息 end if 客戶(hù)報(bào)表打印頁(yè)面運(yùn)行結(jié)果如圖 25 所示 圖 25 客戶(hù)報(bào)表打印頁(yè)面的運(yùn)行結(jié)果 72 聯(lián)系人報(bào)表模塊 1．聯(lián)系報(bào)表查詢(xún) 聯(lián)系人報(bào)表查詢(xún)頁(yè)面涉及的 HTML 表單元素如表 6 所示 表 6 聯(lián)系人報(bào)表查詢(xún)頁(yè)面涉及的 HTML表單元素 名稱(chēng) 類(lèi)型 含義 重要屬性 form1 Form 表單 method post action eeeet hidden 判斷表單如何處理 LinkmanDept select 國(guó)家地區(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 導(dǎo)入Execul class input value 導(dǎo)入 Excul onClick fe excul Submit submit 直接打印 class input value 打印報(bào)表 onClick fe print_c 用戶(hù)可以在報(bào)表管理頁(yè)面中的聯(lián)系人報(bào)表查詢(xún)部分輸入一定的查詢(xún)條件進(jìn)行聯(lián)系人信息的查詢(xún) 2．導(dǎo)入 Excul 用戶(hù)在查詢(xún)部分輸入查詢(xún)條件后單擊導(dǎo)入 Excul 按鈕用戶(hù)所添加的查詢(xún)條件將被提交給數(shù)據(jù)處理頁(yè)處理頁(yè)用 select case 判斷隱藏域的值進(jìn)而確定怎樣處理傳值的程序代碼如下 sql is not null if request LinkmanDept 全部 then sql sql and manDept reque