【正文】 t=39。添加 /a) end if% 當鼠標在某條記錄上懸停時，其記錄所在行的背景顏色會發(fā)生改變，此功能用到的 js 代碼如下： – 7 – script language=javascript function HLItem(obj)//鼠標經(jīng)過 { =。 } function Re(obj)//鼠標移開 { = } /script 其調(diào)用的代碼如下： tr align=center bgcolor=%=bg% style=cursor:hand onClick=(39。). = 39。 onMouseOver=HLItem(this) onMouseOut=Re(this) 客戶信息顯示 /查詢頁面的運行結(jié)果如圖 4 所示： 圖 4 客戶信息查詢頁面的運行結(jié)果 2．客戶信息添加 客戶信息添加的主要功能是用于用戶添加客戶信息。 如圖 5 客戶信息添加頁面設計效果 當單擊添加頁面中的【添加】按鈕時，調(diào)用 js編寫的自定義函數(shù)（ checks()），通過函數(shù)驗證填寫的數(shù)據(jù)是否正確，該函數(shù)的代碼如下： script language=javascript – 8 – function checks() { if(==) { alert(公司名稱不能為空 )。 } ?? //中間過程不詳細介紹，因為實現(xiàn)方法類似 else if(==) { alert(需求周期不能為空 )。 } } /script 表單提交之后，添加的數(shù)據(jù)將被提交到本頁進行處理，本頁數(shù)據(jù)處理的程序代碼如下： % if request(post) then set rs=() sql=select * from tb_Client sql,conn,1,3 rs(ClientName)=request(ClientName) ‘添加公司名稱 rs(ClientAddress)=request(ClientAddress) ‘公司地址 rs(ClientTel)=request(ClientTel) ‘公司電話 rs(ClientFax)=request(ClientFax) ‘公司傳真 rs(ClientNumber)=request(ClientNumber) ‘郵政編碼 rs(ClientPage)=request(ClientPage) ‘公司網(wǎng)址 rs(ClientEmail)=request(ClientEmail) ‘公司 rs(ClientCountry)=request(ClientCountry) ‘所屬國家 /地區(qū) rs(ClientHabitude)=request(ClientHabitude) ‘公司性質(zhì) rs(ClientSize)=request(ClientSize) ‘公司規(guī)模 rs(ClientCity)=request(ClientCity) ‘所屬城市 rs(ClientPay)=request(ClientPay) ‘結(jié)款方式 rs(ClientCredit)=request(ClientCredit) ‘結(jié)款信用 rs(ClientList)=request(ClientList) ‘最高訂單 ‘ rs(ClientYear)=request(ClientYear) ‘年度訂單 rs(ClientCyc)=request(ClientCyc) ‘需求周期 rs(SetTime)=now() ‘創(chuàng)建時間 rs(EditTime)=now() ‘修改時間 rs(SetName)=session(admin_name) ‘創(chuàng)建人 – 9 – ()‘彈出成功對話框 end if% 3．客戶信息 修改 在顯示客戶詳細信息頁面，用戶可以瀏覽、修改其客戶的詳細信息。當用戶單擊【修改】按鈕后，修改的數(shù)據(jù)將被提交到本頁進行處理。request(id) sql,conn,1,3 rs(ClientName)=request(ClientName) ‘添加公司名稱 rs(ClientAddress)=request(ClientAddress) ‘公司地址 rs(ClientTel)=request(ClientTel) ‘公司電話 rs(ClientFax)=request(ClientFax) ‘公司傳真 rs(ClientNumber)=request(ClientNumber) ‘郵政編碼 rs(ClientPage)=request(ClientPage) ‘公司網(wǎng)址 rs(ClientEmail)=request(ClientEmail) ‘公司 rs(ClientCountry)=request(ClientCountry) ‘所屬國家 /地區(qū) rs(ClientHabitude)=request(ClientHabitude) ‘公司性質(zhì) rs(ClientSize)=request(ClientSize) ‘公司規(guī)模 rs(ClientCity)=request(ClientCity) ‘所屬城市 rs(ClientPay)=request(ClientPay) ‘結(jié)款方式 rs(ClientCredit)=request(ClientCredit) ‘結(jié)款信用 rs(ClientList)=request(ClientList) ‘最高訂單 ‘ rs(ClientYear)=request(ClientYear) ‘年度訂單 – 10 – rs(ClientCyc)=request(ClientCyc) ‘需求周期 rs(EditTime)=now() ‘修改時間 rs(SetName)=session(admin_name) ‘創(chuàng)建人 ()‘彈出成功對話框 end if % 4．客戶信息刪除 在客戶信息管理頁面，用戶可以點選任意一條客戶信息前面的復選框，然后 單擊頁面下方的【刪除】按鈕，被選擇的客戶信息將被刪除。驗證是否有刪除客戶信息的權(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。刪除客戶信息 (sqld) sqll=delete from tb_Linkman where LinkmanClient=amp。刪除客戶的聯(lián)系人信息 (sqll) sqlp=delete from tb_Pact where PactClient=amp。刪除客戶的合同信息 (sqlp) sqlp=delete from tb_Feedback where FeedbackClient=amp。刪除客戶反饋信息 (sqlp) sqlp=delete from tb_Product where ProductProvider=amp。刪除客戶的產(chǎn)品信息 (sqlp) next if request(p)= then 39。request(p)) end if else (script language=javascriptalert(39。)。javascript:(1)39。用戶可 – 11 – 以通過功能導航進入聯(lián)系人信息管理頁面，頁面設計效果如圖 7 所示。 用戶在查詢部分輸入條件后，單擊【查詢】按鈕，用戶添加的查詢條件將被提交給本頁，本頁則將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進行檢索，并將結(jié)果集通過操作區(qū)輸出到瀏覽器中。request(sel)amp。%amp。%39。request(sel)amp。amp。39。 也可在查看客戶的詳細信息中，單擊“聯(lián)系人信息”，就會產(chǎn)生此客戶的聯(lián)系人列表，傳參代碼如下： a href=?post=trueamp。search=%=rsx(id)%amp。 在查詢頁面中單擊【添加】按鈕， 在展示區(qū)中會顯示添加頁面。其代碼如下： % 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 (沒有客戶信息，請 a href=39。 target=39。添加 /a) end if% 添加聯(lián)系人頁面的運行結(jié)果如圖 8 所示。request(id)amp。 在顯示聯(lián)系人詳細信息頁面，用戶可以更改其聯(lián)系人的信息。 圖 9 聯(lián)系人信息修改頁面運行結(jié)果 4．聯(lián)系人信息刪除 聯(lián)系人信息刪 除的主要功能是刪除聯(lián)系人的信息。clng(kid(i)) ‘刪除指定的記錄 (sqld) next % 合同信息管理 合同信息管理設計主要包括顯示 /查詢、添加、修改和刪除合同信息 4個部分。 圖 10 合同信息管理頁面的運行結(jié)果 1．合同信息顯示 /查詢 用戶可以在合同信息管理頁面中的查詢部分，輸入一定的查詢條件，進行合同信息的查詢。 合同信息查詢程序代碼如下： % – 14 – if request(post) then if request(tiao)=模糊查詢 then‘模糊查詢合同信息 set rs=() sql=select * from tb_Pact where amp。 like 39。request(search)amp。 order by id desc sql,conn,1,1 else’精確查詢合同信息 set rs=() sql=select * from tb_Pact where amp。=39。request(search)amp。 order by id desc sql,conn,1,1 end if else’ 默認狀態(tài)下顯示的合同信息 set rs=() sql=select * from tb_Pact order by id desc sql,conn,1,1 end if % 合同信息顯示 /查詢頁面運行結(jié)果如圖 11 所示。sel=PactClientamp。dd=dd 合同信息 /a 2．合同信息添加 合同信息添加的主要功能是用戶添加客戶的合同信息。合同信息添加頁面的運行結(jié)果如圖 12（下）所示。 在顯示合同詳細信息頁面，用戶可以更改其合同的信息。 圖 13 合同信息修改頁面運行結(jié)果 4．合同信息的刪除 合同信息刪除的主要功能是刪除合同信息，其代碼如下： % kid=Split(Request(del),) (正在刪除 ...) for i=0 to ubound(kid) sqld=delete from tb_Pact where id=amp。用戶可以通過功能導航進入服務管理頁面，頁面設計效果如圖 20 所示。在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面。