【正文】 n false 表單提交之后添加的數(shù)據(jù)將被提交到本頁進行處理本頁數(shù)據(jù)處理的程序代碼如下 if request post then set rs serverCreateObject adodbrecordset sql select from tb_Client rsopen sqlconn13 rsaddnew 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 公司性質 rs ClientSize request ClientSize 公司規(guī)模 rs ClientCity request ClientCity 所屬城市 rs ClientPay request ClientPay 結款方式 rs ClientCredit request ClientCredit 結款信用 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)建人 rsupdate rsclose connclose responseWrite script language javascript alert 客戶信息添加成功 彈出成功對話框 end if 3．客戶信息修改 在顯示客戶詳細信息頁面用戶可以瀏覽修改其客戶的詳細信息進行客戶詳細信息瀏覽和修改的頁面設計效果如圖 6 所示 圖 6 客戶信息修改頁面設計效果 在客戶信息修改頁面用戶可以瀏覽客戶詳細的信息也可以修改客戶的信息當用戶有修改的權限時那么用戶可以進行修改至于用戶權限的實現(xiàn)將在后面的章節(jié)中進行講解當用戶單 擊修改按鈕后修改的數(shù)據(jù)將被提交到本頁進行處理數(shù)據(jù)處理的代碼如下 if request post and rsr Client 可寫 or rsr chaoji 是 then set rs serverCreateObject adodbrecordset sql select from tb_Client where id request id rsopen sqlconn13 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 公司性質 rs ClientSize request ClientSize 公司規(guī)模 rs ClientCity request ClientCity 所屬城市 rs ClientPay request ClientPay 結款方式 rs ClientCredit request ClientCredit 結款信用 rs ClientList request ClientList 最高訂單 rs ClientYear request ClientYear 年度訂單 rs ClientCyc request ClientCyc 需求周期 rs EditTime now 修改時間 rs SetName session admin_name 創(chuàng)建人 rsupdate rsclose responseWrite script language javascript alert 客戶信息修改成功 彈出成功對話框 end if 4．客戶信息刪除 在客戶信息管理頁面用戶可以點選任意一條客戶信息前面的復選框然后單擊頁面下方的刪除按鈕被選擇的客戶信息將被刪除 客戶信息刪除主要是根據(jù)傳遞的參數(shù)本例中的參數(shù)為客戶信息的 id將數(shù)據(jù)庫中對應 id的客戶信息和其他和客戶相關的信息全部刪除程序代碼如下 call client 驗證是否有刪除客戶信息的權限 if request del then kid Split Request del 分解字符串成數(shù)組 for i 0 to ubound kid sqld delete from tb_Client where id clng kid i 刪除客戶信息 connexecute sqld sqll delete from tb_Linkman where LinkmanClient clng kid i 刪除客戶的聯(lián)系人信息 connexecute sqll sqlp delete from tb_Pact where PactClient clng kid i 刪除客戶的合同信息 connexecute sqlp sqlp delete from tb_Feedback where FeedbackClient clng kid i 刪除客戶反饋信息 connexecute sqlp sqlp delete from tb_Product where ProductProvider clng kid i 刪除客戶的產(chǎn)品信息 connexecute sqlp next if request p then 返回用戶操作頁 responseRedirect KeHu_KeHuasp else responseRedirect KeHu_KeHuaspp request p end if else responseWrite script language javascript alert 請選擇要刪除的信息 location javascripthistorygo 1 end if 42 聯(lián)系人信息管理設計 聯(lián)系人信息管理的主要功能包括顯示查詢添加修改和刪除聯(lián)系人信息 4 個部分用戶可以通過 功能導航進入聯(lián)系人信息管理頁面頁面設計效果如圖 7 所示 圖 7 聯(lián)系人信息管理頁面設計效果 1．聯(lián)系人信息顯示查詢 用戶可以在聯(lián)系人信息管理頁面中的查詢部分輸入一定的查詢條件進行聯(lián)系人信息的查詢 用戶在查詢部分輸入條件后單擊查詢按鈕用戶添加的查詢條件將被提交給本頁本頁則將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進行檢索并將結果集通過操作區(qū)輸出到瀏覽器中 查詢代碼如下 if request post then if request tiao 模糊查詢 then 聯(lián)系人模糊查詢 set rs serverCreateObject adodbrecordset sql select from tb_Linkman where request sel like request search order by id desc rsopen sqlconn11 else 聯(lián)系人精確查詢 set rs serverCreateObject adodbrecordset sql select from tb_Linkman where request sel request search order by id desc rsopen sqlconn11 end if else 默認狀態(tài)下顯示聯(lián)系人列表 set rs serverCreateObject adodbrecordset sql select from tb_Linkman order by id desc rsopen sqlconn11 end if 分頁代碼請參考 41 節(jié)中介紹的客戶信息顯示查詢中的相關代碼 也可在查看客戶的詳細信 息中單擊聯(lián)系人信息就會產(chǎn)生此客戶的聯(lián)系人列表傳參代碼如下 a href KeHu_Linkmanasppost truesel LinkmanClientsearch rsx id dd dd 聯(lián)系人信息 2．聯(lián)系人信息添加 聯(lián)系人信息添加的主要功能是添加客戶的聯(lián)系人信息 在查詢頁面中單擊添加按鈕在展示區(qū)中會顯示添加頁面在添寫表單選擇所屬客戶時所屬客戶是在數(shù)據(jù)庫中直接讀取出來的其代碼如下 set rsc serverCreateObject adodbrecordset sqlc select from tb_Client order by id desc rscopen sqlcconn11 if not rsceof then select name LinkmanClient id LinkmanClient for i 1 to rscrecordcount and not rsceof option value rsc id rsc ClientName rscmovenext next else responseWrite 沒有客戶信息請 a href KeHu_addasp target bo 添加 end if 添加聯(lián)系人頁面的運行結果如圖 8 所示 圖 8 添加聯(lián)系人的頁面運行結果 也可在客戶的詳細信息中單擊新建按鈕在此添加用戶不用選擇所屬客戶直接就會生成所屬客戶主要是根據(jù)傳遞的參數(shù)本例中的參數(shù)為客戶信息的 id 傳參代碼如下 a href KeHu_Linkman_addyaspid rsx id span class style2 新建 其顯示代碼如下 set rsc serverCreateObject adodbrecordset sqlc select from tb_Client where id request id order by id desc rscopen sqlcconn11 responseWrite rsc ClientName 3．聯(lián)系人信息修改 聯(lián)系人信息修改的主要功能是用戶修改聯(lián)系人信息方便用戶和客戶之間