【正文】 request(LinkmanDuty)amp。39。傳 值程序代碼如下： % sql= is not null if request(LinkmanDept)全部 then sql=sqlamp。 end if sql=SELECT , , , FROM INNER JOIN ON = where amp。 and =39。amp。request(LinkmanDept)amp。 用戶可以在報(bào)表管理頁(yè) 面中的聯(lián)系人報(bào)表查詢部分，輸入一定的查詢條件，進(jìn)行聯(lián)系人信息的查詢。 表 6 聯(lián)系人報(bào)表查詢頁(yè)面涉及的 HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method=post action= eeeet hidden 判斷表單如何處理 LinkmanDept select 國(guó)家 /地區(qū) option value=%=rsg(ClientCountry)% %=rsg(ClientCountry)%/option LinkmanDuty select 城市 option value=%=rsc(ClientCity)% %=rsc(ClientCity)%/option select2 select 創(chuàng)建者 option value=%=rss(SetName)% – 26 – %=rss(SetName)%/option Submit submit 導(dǎo)入 Execul class=input value= 導(dǎo)入 Excul onClick==39。打印 /a/td /form /tr /table 打印預(yù)覽頁(yè)面代碼如下： % sql=request(sql) if request(sql)= then sql=session(sql) end if session(sql)=sql show=request(show) set rs=() sql=session(sql) sql,conn,1,1 % % if not then tol= =show maxpage= requestpage=clng(request(p)) if requestpage= or requestpage=0 then requestpage=1 end if if requestpagemaxpage then requestpage=maxpage end if if requestpage1 then (requestpage1)* end if for i=1 to and not % tr align=center td height=30%=rs(ClientName)%/td td%=rs(ClientCountry)%/td td%=rs(ClientCity)%/td – 25 – td%=rs(ClientTel)%/td td%=rs(ClientFax)%/td td%=rs(ClientEmail)%/td /tr % if then exit for next else (span class=39。,this,0) %for i=1 to maxpage% option value=?p=%=i%amp。獲取 sql語句 if sql= then sql=session(sql) end if session(sql)=sql show=request(show) set rs=() sql=sql sql,conn,1,1 if not then tol= =show maxpage= requestpage=clng(request(p)) else maxpage=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(39。show=%=show%amp。sql (?sql=amp。%amp。當(dāng)關(guān)鍵字不為空時(shí) sql=sqlamp。amp。39。城市不為全部時(shí) sql=sqlamp。amp。 數(shù)據(jù)處理頁(yè)對(duì)查詢條件經(jīng)過處理，產(chǎn)生相應(yīng)的 SQL 查詢語句。當(dāng)為聯(lián)系人報(bào)表查詢時(shí)產(chǎn)生相應(yīng)字段 a=array(姓名 ,客戶名稱 ,部門 ,職務(wù) ,電話 ,手機(jī) ,Email) elseif request(tt)=excul_k then 39。tt=excul)39。 end if sql=select ClientName,ClientCountry,ClientCity,ClientTel,ClientFax,ClientEmail from tb_Client where amp。 like 39。 end if if trim(request(search)) then 39。 and SetName=39。request(ClientCity)amp。 end if if request(ClientCity)全部 then 39。 and ClientCountry=39。 用戶可以在報(bào)表管理頁(yè)面中的客戶報(bào)表查詢部分，輸入查詢條件，進(jìn)行客戶信息的查詢。 表 5 客戶報(bào)表查詢頁(yè)面涉及的 HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method=post action= eeeet Hidden 判斷表單如何處理 ClientCountry Select 國(guó)家 /地區(qū) option value=%=rsg(ClientCountry)% %=rsg(ClientCountry)%/option ClientCity Select 城市 option value=%=rsc(ClientCity)% %=rsc(ClientCity)%/option SetName Select 創(chuàng)建者 option value=%=rss(SetName)% %=rss(SetName)%/option – 20 – searchtype 類別 option value=ClientName公司名稱/option ?? option value=ClientAddress公司地址 /option Submit submit 導(dǎo)入 Execul class=input value= 導(dǎo)入 Excul onClick==39。/script) end if % – 19 – 7 報(bào)表管理 報(bào)表管理的主要功能是打印各種類型的報(bào)表，包括客戶報(bào)表打印、聯(lián)系人報(bào)表打印、反饋報(bào)表打印和庫(kù)存報(bào)表打印 4 個(gè)部分。)。 onmouseover=()。當(dāng)服務(wù)完成選項(xiàng)，選中“已完成”時(shí)，那么任何信息都不可以修改，也就是說只有在服務(wù)“未完成”的情況下才能修改“處理結(jié)果”。amp。 圖 21 反饋信息添加頁(yè)面的設(shè)計(jì)效果 反饋信息添加頁(yè)面涉及的 HTML 表單元素如表 3 所示。用戶可以通過功能導(dǎo)航進(jìn)入服務(wù)管理頁(yè)面，頁(yè)面設(shè)計(jì)效果如圖 20 所示。 在顯示合同詳細(xì)信息頁(yè)面，用戶可以更改其合同的信息。dd=dd 合同信息 /a 2．合同信息添加 合同信息添加的主要功能是用戶添加客戶的合同信息。 order by id desc sql,conn,1,1 end if else’ 默認(rèn)狀態(tài)下顯示的合同信息 set rs=() sql=select * from tb_Pact order by id desc sql,conn,1,1 end if % 合同信息顯示 /查詢頁(yè)面運(yùn)行結(jié)果如圖 11 所示。=39。request(search)amp。 合同信息查詢程序代碼如下： % – 14 – if request(post) then if request(tiao)=模糊查詢 then‘模糊查詢合同信息 set rs=() sql=select * from tb_Pact where amp。clng(kid(i)) ‘刪除指定的記錄 (sqld) next % 合同信息管理 合同信息管理設(shè)計(jì)主要包括顯示 /查詢、添加、修改和刪除合同信息 4個(gè)部分。 在顯示聯(lián)系人詳細(xì)信息頁(yè)面，用戶可以更改其聯(lián)系人的信息。添加 /a) end if% 添加聯(lián)系人頁(yè)面的運(yùn)行結(jié)果如圖 8 所示。其代碼如下： % set rsc=() sqlc=select * from tb_Client order by id desc sqlc,conn,1,1 if not then % select name=LinkmanClient id=LinkmanClient % for i=1 to and not % option value=%=rsc(id)%%=rsc(ClientName)%/option % next% /select % else (沒有客戶信息，請(qǐng) a href=39。search=%=rsx(id)%amp。39。request(sel)amp。%amp。 用戶在查詢部分輸入條件后，單擊【查詢】按鈕，用戶添加的查詢條件將被提交給本頁(yè)，本頁(yè)則將根據(jù)用戶提交的表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，并將結(jié)果集通過操作區(qū)輸出到瀏覽器中。javascript:(1)39。request(p)) end if else (script language=javascriptalert(39。刪除客戶反饋信息 (sqlp) sqlp=delete from tb_Product where ProductProvider=amp。刪除客戶的聯(lián)系人信息 (sqll) sqlp=delete from tb_Pact where PactClient=amp。驗(yàn)證是否有刪除客戶信息的權(quán)限 if request(del) then kid=Split(Request(del),) ‘分解字符串成數(shù)組 for i=0 to ubound(kid) sqld=delete from tb_Client where id=amp。當(dāng)用戶單擊【修改】按鈕后，修改的數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理。 } ?? //中間過程不詳細(xì)介紹，因?yàn)閷?shí)現(xiàn)方法類似 else if(==) { alert(需求周期不能為空 )。 onMouseOver=HLItem(this) onMouseOut=Re(this) 客戶信息顯示 /查詢頁(yè)面的運(yùn)行結(jié)果如圖 4 所示： 圖 4 客戶信息查詢頁(yè)面的運(yùn)行結(jié)果 2．客戶信息添加 客戶信息添加的主要功能是用于用戶添加客戶信息。 } function Re(obj)//鼠標(biāo)移開 { = } /script 其調(diào)用的代碼如下： tr align=center bgcolor=%=bg% style=cursor:hand onClick=(39。 target=39。). = 39。在接收頁(yè)碼的值大于最大頁(yè)碼時(shí)，使其等于最大頁(yè)碼 requestpage=maxpage end if if requestpage1 then 39。總記錄數(shù) =15 39。request(search)amp。 order by id desc sql,conn,1,1 else ‘條件輸入為精確查詢時(shí)獲得相應(yīng)的記錄集 set rs=() sql=s