【正文】 3．用 web打印 用戶在查詢部分輸入查詢條件后，單擊【打印報表】按鈕，用戶所添加的查詢條件將被提交給數(shù)據(jù)處理頁，處理頁用 。sql (?sql=amp。39。amp。 end if if request(select2)全部 then sql=sqlamp。request(LinkmanDuty)amp。 and =39。39。amp。 2．導入 Excul 用戶在查詢部分輸入查詢條件后，單擊【導入 Excul】按鈕，用戶所添加的查詢條件將被提交給數(shù)據(jù)處理頁，處理頁用 select case 判斷隱藏域的值，進而確定怎樣處理，傳值的程序代碼如下： % sql= is not null if request(LinkmanDept)全部 then sql=sqlamp。print_c39。excul39。 圖 25 客戶報表打印頁面的運行結(jié)果 聯(lián)系人報表模塊 1．聯(lián)系報表查詢 聯(lián)系人報表查詢頁面涉及的 HTML 表單元素如表 6 所示。style239。()。show=%=show%amp。39。parent39。p=%=p% name=mainFrame frameborder=no – 23 – /framesetnoframes/noframes /frames 控制頁面代碼如下： % sql=request(sql)39。p=%=p% name=topFrame frameborder=no scrolling=NO noresize frame src=?sql=%=request(sql)%amp?？蚣茼摯a如下： % 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=?sql=%=request(sql)%amp。sql)39。 end if sql=select * from tb_Client where amp。request(search)amp。 like 39。 and amp。 end if if trim(request(search)) then 39。request(SetName)amp。 and SetName=39。 end if if request(SetName)全部 then 39。request(ClientCity)amp。 and ClientCity=39。 end if if request(ClientCity)全部 then 39。request(ClientCountry)amp。 and ClientCountry=39。程序 代碼如下： % sql=id is not null if request(ClientCountry)全部 then39。 圖 24 報表下載頁面的運行結(jié)果 3．用 web打印 用戶在查詢部分輸入查詢條件后，單擊【打印報表】按鈕，用戶添加的查詢條件將被提交給 – 22 – 數(shù)據(jù)處理頁，處理頁用 select case 判斷隱藏域的值，進而確定怎樣處理。當為反饋客戶報表查詢時產(chǎn)生相應字段 a=array(客戶名稱 ,反饋日期 ,是否解決 ,反饋主題 ,反饋內(nèi)容 ,處理結(jié)果 ) – 21 – elseif request(tt)=excul_kc then 39。當為客戶報表查詢時產(chǎn)生相應字段 a=array(公司名稱 ,所在國家 /地區(qū) ,所在城市 ,公司電話 ,公司傳真 ,Email) elseif request(tt)=excul_l then 39。把參數(shù)傳給下載頁面 % 當數(shù)據(jù)處理頁處理完畢之后，會自動轉(zhuǎn)向下載頁，在下載頁中單擊左鍵，直接用 web 打開Excel, 右鍵單擊 “ 下載 ” 選擇 “ 目標另存為 ...”把 Excel保存在相應的路徑下。amp。sql (?sql=amp。%39。%amp。request(searchtype)amp。當關(guān)鍵字不為空時 sql=sqlamp。39。amp?？蛻裘Q不為全部時 sql=sqlamp。39。amp。城市不為全部時 sql=sqlamp。39。amp。國家 /地區(qū)不為全部時 sql=sqlamp。 2．導入 Excel 當用戶在查詢部分輸入條件，并單擊【導入 Excel】按鈕后，用戶添加的查詢條件將被提交給數(shù)據(jù)處理頁，處理頁用 select case 判斷隱藏域的值，進而確定怎樣處理。print_c39。excul39。 1．客戶報表查詢 客戶報表查詢頁面涉及的 HTML 表單元素如表 5 所示。報表管理頁面設計效果如圖 23 所示。request(id)amp。location=39。反饋信息修改成功39。%end if% Submit select 添加按鈕 class=input value= 修 改 onClick=return checks() 在反饋信息修改頁面，當用戶單擊【修改】按鈕后，修改數(shù)據(jù)將被提交到本頁進行處理，數(shù)據(jù)處理程序的代碼如下： % if request(post) then set rs=() sql=select * from tb_Feedback where id=amp。 表 4 反饋信息信息修改頁面涉及的 HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method=post action= post hidden 判斷表單是否提交 value=true FeedbackTitle text 反饋主題 value=%=rsx(FeedbackTitle)% size=30 readonly=true class=in FeedbackFulfill radio 是否完成 value=未完成 %if rsx(FeedbackFulfill)=未完成 then%checked %end if% value=已完成 %if rsx(FeedbackFulfill)=已完成 then%checked%end if% FeedbackDate text 年 value=%=rsx(FeedbackDate)% size=30 readonly=true class=in FeedbackClient select 相關(guān)客戶 value=%=rsc(ClientName)% size=30 readonly=true class=in FeedbackContent textarea 詳細內(nèi)容 cols=88 rows=4 class=table readonly=true FeedbackResult textarea 處理結(jié)果 cols=88 rows=4 class=table %if rsx(FeedbackFulfill)= 已完成 then% readonly=true%else%onfocus=()。 反饋信息頁面設計效果如圖 22 所示。request(day) rs(FeedbackClient)=request(FeedbackClient) rs(FeedbackContent)=request(FeedbackContent) rs(FeedbackResult)=request(FeedbackResult) rs(FeedbackFulfill)=request(FeedbackFulfill) rs(SetTime)=now() rs(SetName)=session(admin_name) () end if % 反饋信息修改 因為反饋信息是客戶的反饋意見所以不得 隨意修改，用戶只可以修改“處理結(jié)果”和“服務完成”兩項信息。request(month)amp。主要用于添加客戶反饋信息的數(shù)據(jù) rs(FeedbackTitle)=request(FeedbackTitle) rs(FeedbackDate)=request(year)amp。 表 3 反饋信息信息添加頁面涉及的 HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method=post action= post hidden 判斷表單是否提交 value=true FeedbackTitle text 反饋主題 class=in size=30 FeedbackFulfill radio 是否完成 value=未完成 value=已完成 year select 年 option value=%=i%%=i%/option month select 月 option value=%=i%%=i%/option day select 日 option value=%=i%%=i%/option FeedbackClient select 相關(guān)客戶 option value=%=rsc(id)% – 17 – %=rsc(ClientName)%/option FeedbackContent textarea 詳細內(nèi)容 cols=88 rows=4 class=table FeedbackResult textarea 處理結(jié)果 cols=88 rows=4 class=table Submit select 添加按鈕 class=input value= 添 加 onClick=return checks() 表單提交之后，添加的數(shù)據(jù)將被提交到本頁進行處理。反饋信息添加頁面的設計效果如圖 21 所示。 圖 20 服務管理頁面的設計效果 反饋信息添 加 反饋信息添加的主要功能是用戶添加客戶的反饋信息。clng(kid(i)) (sqld) next % – 16 – 5 服務管理 服務管理設計的主要功能包括反饋信息的顯示 /查詢、添加、修改和刪除 4個部分。合同信息修改頁面運行結(jié)果如圖 13所示。 – 15 – 圖 12 合同信息添加頁面運行結(jié)果 3．合同信息修改 合同信息修改的主要功能是用戶修改合同信息。 在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面，其 運行結(jié)果如圖 17（上）所示；也可在客戶的詳細信息頁面單擊“新建”，在展示區(qū)中會顯示添加頁面，然后進行合同信息添加。search=%=rsx(id)%amp。 圖 11 合同信息顯示 /查詢頁面運行結(jié)果 也可在查看客戶的詳細信息中，單擊“合同信息”，就會產(chǎn)生此客戶的合同列表，傳參代碼如下： a href=?post=trueamp。39。amp。request(sel)amp。%39。%amp。request(sel)amp。 用戶在查詢部分輸入查詢條件后，單擊【查詢】按鈕，用戶所添加的查詢條件將被提交給本頁，本頁將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進行檢索，并將結(jié)果集通過操作區(qū)輸出到瀏覽器中。用戶 可以通過功能導航進入合同信息管理頁面，頁面設計效果如圖 10 所示。其程序代碼如下： % kid=Split(Request(del),) ‘分解字符串成數(shù)組 (正在刪除 ...) for i=0 to ubound(kid) sqld=delete from tb_Linkman where id=amp。聯(lián)系人信息修改頁面運行結(jié)果如圖 9 所示。 order by id desc sqlc,conn,1,1 (rsc(ClientName)) % – 13 – 3．聯(lián)系人信息修改 聯(lián)系人信息修改的主要功能是用戶修改聯(lián)系人信息，方便用戶和客戶之間的聯(lián)系和溝通。 圖 8 添加聯(lián)系人的頁面運行結(jié)果 也可在客戶的詳細信息中單擊【新建】按鈕，在此添加用戶不用選擇所屬客戶，直接就會生成所屬客戶，