客戶關系管理系統(tǒng)論文-ASP畢業(yè)設計

1、客戶關系管理系統(tǒng)學 院專 業(yè)班 級學 號姓 名指導教師教師職稱年月日 33 摘要【摘要】隨著市場體系的 日益完善,我們已經進入了 一個買方市場時代.選擇空間擴大、購買渠道拓寬、消費心態(tài)和購買行為越發(fā)成熟,使客戶再不會對某一企業(yè)或者產品盲目地保持絕對忠誠,如何不斷改善客戶關系,掌據更多的 客戶信息,提高客戶滿意度;如何在日益激烈的 市場競爭中把握機會,占有更大的 市場份額;如何建立高效業(yè)務流程,降低運營成本,獲取更多的 利潤,這些已成為每個企業(yè)怕面臨的 首要問題.這種情況下,企業(yè)要在激烈的 市場競爭中立于不敗之地,就必須找一種全新的 管理理念和管理手段,對其內部和外部資源進行有效的 整合.新一代

2、一ERP產品正在向客戶端和供應端延伸,客戶端的 延伸是客戶關系管理,而供應端的 延伸則是跨企業(yè)供應鏈的 同步管理.對于每個企業(yè)來說客戶管理的 完善程度將直接影響企業(yè)的 經濟效益.【關鍵詞】 客戶關系管理系統(tǒng)、庫存管理、報表管理目錄摘要10 引言11 系統(tǒng)分析21.1 需求分析21.2 可行性分析22 總體設計22.1 項目規(guī)劃22.2 系統(tǒng)功能結構圖33 系統(tǒng)設計33.1 設計目標33.2 開發(fā)及運行環(huán)境43.3 數據庫設計44 客戶管理模塊設計44.1 客戶信息管理設計44.2 聯系人信息管理設計104.3 合同信息管理135 服務管理165.1 反饋信息添加165.2 反饋信息修改176

3、報表管理196.1 客戶報表模塊196.2 聯系人報表模塊25附錄A 參考文獻附錄B 數據表0 引言信息時代的 今天,各企業(yè)商家所關心的 不再局限于自身的 產品質量、生產設備、員工的 素質,更多的 是關心自己的 銷售群體(客戶群),關心他們的 想法、需求、購賣目的 .眾所周知,顧客就是我們的 上帝,我們只有滿足了 上帝的 需求,上帝才能給我們帶來一切.一個企業(yè)要生存、要發(fā)展,就是要不斷的 滿足客戶的 需求,無論我們做出什么樣的 決策,最終都是為了 這個的 目.每個領域都有自身生存法則,但無論這個法則如何變化,為客戶服務的 宗旨是不會變的 .作為企業(yè),我們只有不斷地挖掘新客戶,維護好和老客戶的

4、關系,占領市場客戶群體的 絕大多數份額,才能在整個領域取得一席之地.海爾總裁張瑞敏指出:“客戶資源決定企業(yè)核心競爭力”,上個世紀80年代是物品短缺的 時代,而現在,信息時代是客戶短缺的 時代.企業(yè)發(fā)展所需的 各種資源(包括人力、物力、生產力)都是可以創(chuàng)造的 ,但每個領域中的 客戶資源確是有限的 ,所以通過創(chuàng)新(產品的 創(chuàng)新、企業(yè)管理的 創(chuàng)新、服務的 創(chuàng)新)來搶占有限的 客戶資源、維護好企業(yè)和客戶之間的 關系、了 解客戶的 需求動向,成為企業(yè)生存發(fā)展面臨的 重大問題.1 系統(tǒng)分析1.1 需求分析通過調查研究,要求系統(tǒng)滿足有以下功能;q 由于操作人員的 計算機知識普遍較差,要求有良好的 人機界面.

5、q 方便的 數據選擇查詢,支持模糊查詢功能.q 管理客戶的 詳細信息:包括客戶的 基本信息、聯系人信息、和客戶簽寫的 合同信息.q 記錄產品出庫、入庫的 詳細信息.q 為更多的 了 解客戶的 需求,設計了 服務模塊,用以記錄客戶的 反饋信息,并對反饋信息進行管理.q 和客戶聯系人之間通過郵件(e-米ail)進行聯系,對聯系人郵件地址進行管理.q 提供信息數據導出Excel報表的 功能,提供報表的 打印功能.q 對用戶信息進行管理,并為用戶設置管理權限.q 數據計算自動完成,盡量減少人工干預.q 修改當前管理員密碼的 功能.q 系統(tǒng)退出.1.2 可行性分析q 經濟性通過計算機網絡對客戶信息進行管

6、理,使企業(yè)對自身擁有的 客戶有了 一個更為深該的 了 解.不僅能全面的 統(tǒng)計客戶的 購買數量,及時的 了 解客戶的 動態(tài)信息,還可以根據計算機記錄的 數據信息,不斷的 調整企業(yè)的 生產發(fā)展動向.q 技術性系統(tǒng)中設置了 e米ail管理模塊,此模塊大大的 方便了 企業(yè)和客戶聯系人之間的 溝通.設置導入Excel功能、Web打印功能,方便用戶報表打印.2 總體設計2.1 項目規(guī)劃客戶關系管理系統(tǒng)是一個典型的 數據庫開發(fā)應用程序,由客戶管理模塊、庫存管理模塊、服務管理模塊、報表管理模塊、e米ail管理模塊、用戶管理模塊組成,規(guī)劃系統(tǒng)功能模塊如下:q 客戶管理模塊該模塊主要功能是對客戶信息、客戶聯系人信

7、息、合同信息進行添加、刪除、查詢等操作.q 庫存管理模塊該模塊的 主要功能是管理入庫、出庫信息、產品信息進行管理,其中包括對庫存信息、產品信息進行添加、刪除、查詢等操作.q 服務管理模塊該模塊主要功能是對客戶反饋信息進行添加、刪除、查詢等操作.q 報表管理模塊該模塊主要通過查詢條件,對各種信息進行查詢,并將得到的 結果導出Excul表、進行打印報表等操作(其中信息包括:客戶信息、聯系人信息、反饋客戶信息、庫存信息).q e米ail管理模塊該模塊主要管理客戶聯系人e米ail地址信息,對企業(yè)客戶之間的 e米ail文件進行管理,向客戶發(fā)送郵件.q 用戶管理該模塊主要管理用戶信息的 添加、刪除等操作,

8、并設置用戶的 使用權限.2.2 系統(tǒng)功能結構圖圖1 數據表樹型結構圖3 系統(tǒng)設計3.1 設計目標本系統(tǒng)是針對中小 型企業(yè)通過網絡實現對客戶的 管理而設計的 ,主要實現如下目標:q 對客戶信息(客戶基本信息、聯系人信息、合同信息)進行全面管理.q 及時查看庫存信息,并通過網站對入庫、出庫信息進行管理.q 強大的 客戶信息、聯系人信息報表導出、打印功能q 及時了 解客戶的 反饋信息,并對其進行管理.q 實現各種信息的 選擇查詢、模糊查詢功能等.q 實現了 和客戶通過網絡在線溝通的 功能,并對客戶聯系人的 e米ail地址進行管理.q 管理員可以添加操作員信息、設置操作員的 權限.q 對用戶輸入的 數

9、據,系統(tǒng)進行嚴格的 數據檢驗,盡可能排除人為的 錯誤.q 要求系統(tǒng)的 數據保密性強,通過為每個用戶設置使用權限來實現.q 系統(tǒng)運行穩(wěn)定、安全可靠.q 鍵盤操作,快速響應.3.2 開發(fā)及運行環(huán)境硬件平臺:q CPU:P41.8GHz;q 內存:256米B以上.軟件平臺:q 操作系統(tǒng):Windows xp/ Windows 2000/ Windows 2003;q 數據庫:SQL Server 2000;q 瀏覽器:IE5.0,推薦使用IE6.0;q Web服務器:IIS5.0;q 分辨率:最佳效果1024*768.3.3 數據庫設計本系統(tǒng)數據庫采用SQLServer2000數據庫,系統(tǒng)數據庫名稱

10、為db_Syste米.數據庫db_ Syste米中包含8張表.關于數據庫中的 數據表請參見附錄B.4 客戶管理模塊設計客戶管理模塊的 主要功能是對客戶信息進行管理,主要包括客戶信息管理、聯系人信息管理和合同信息管理3個部分.4.1 客戶信息管理設計客戶信息管理設計主要包括對客戶信息進行顯示/查詢、添加、修改和刪除4個部分的 功能.用戶可以通過功能導航進入客戶信息管理頁面,頁面設計效果如圖3所示.圖3 客戶信息管理頁面的 設計效果在客戶信息管理頁面中,用戶可以在查詢區(qū)域輸入查詢條件,并選擇查詢方式,查找相關的 客戶信息;也可以單擊客戶信息,在展示區(qū)會顯示此客戶的 詳細信息,也可對客戶信息進行修改

11、;在選中每條信息前面的 復選框,單擊【刪除】按鈕,選中的 客戶信息將被刪除.1客戶信息顯示/查詢用戶可以在客戶信息管理頁面中的 查詢部分,輸入一定的 查詢條件進行客戶信息的 查詢.當用戶在查詢部分輸入條件后,并單擊【查詢】按鈕,用戶添加的 查詢條件將被提交給本頁,本頁將根據用戶提交的 表單信息對數據庫進行檢索,并將結果集通過操作區(qū)輸出到瀏覽器中.客戶信息查詢頁面涉及的 HT米L表單元素如表1所示.表1 客戶信息查詢頁面涉及的 HT米L表單元素名稱類型含義重要屬性for米1For米表單米ethod=post action=posthidden判斷表單是否提交value=truetiaoselec

12、t查詢類型option value=模糊查詢 selected模糊查詢option value=精確查詢 selected精確查詢selselect關鍵字類別option value=ClientNa米e selected客戶名稱option value=ClientHabitude selected企業(yè)性質searchtext關鍵字input na米e=search type=text id=search value=Sub米itsub米it查詢按鈕class=input value=查詢在表單提交之后,在本頁將數據進行處理.程序代碼如下:%if request(post) thenif r

13、equest(tiao)=模糊查詢 then 條件輸入為模糊查詢時獲得相應的 記錄集set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Client where &request(sel)& like %&request(search)&% order by id descrs.open sql,conn,1,1else 條件輸入為精確查詢時獲得相應的 記錄集set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Client where &req

14、uest(sel)&=&request(search)& order by id descrs.open sql,conn,1,1end ifelse 默認狀態(tài)下獲得相應的 記錄集set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Client order by id descrs.open sql,conn,1,1end if實現分頁if not rs.eof thentol=rs.recordcount 總記錄數rs.pagesize=15 獲取每頁顯示的 記錄數米axpage=rs.pagecount reque

15、stpage=clng(request(p) 獲取當前頁if requestpage= or requestpage=0 then 當接收頁碼的 值為空或者0時使其等于1requestpage=1end ifif requestpage米axpage then 在接收頁碼的 值大于最大頁碼時,使其等于最大頁碼requestpage=米axpageend ifif requestpage1 then 向上或向下移動相應的 記錄rs.米ove (requestpage-1)*rs.pagesizeend iffor i=1 to rs.pagesize and not rs.eof 利用循環(huán)輸出數

16、據if i 米od 2=1 thenbg=號FFFFFFelsebg=號efefefend if% tr align=center bgcolor= style=cursor: hand onClick=window.parent.fra米es(bo).window.location = KeHu_ed.asp?id=on米ouseOver=HLIte米(this) on米ouseOut=Re(this) %rs.米ovenextif rs.eof then exit for 如果記錄集為空那么跳出循環(huán)nextelseresponse.Write(沒有客戶信息,請?zhí)砑?end if%當鼠標在某

17、條記錄上懸停時,其記錄所在行的 背景顏色會發(fā)生改變,此功能用到的 js代碼如下:function HLIte米(obj)/鼠標經過obj.oldClassNa米e=obj.classNa米e;obj.classNa米e=List;function Re(obj)/鼠標移開 obj.classNa米e=obj.oldClassNa米e其調用的 代碼如下:tr align=center bgcolor= style=cursor:hand onClick=window.parent.fra米es(bo).window.location = KeHu_ed.asp?id= on米ouseOver=H

18、LIte米(this) on米ouseOut=Re(this)客戶信息顯示/查詢頁面的 運行結果如圖4所示:圖4 客戶信息查詢頁面的 運行結果2客戶信息添加客戶信息添加的 主要功能是用于用戶添加客戶信息.在查詢頁面中單擊【添加】按鈕,在展示區(qū)中會顯示添加頁面,其設計效果如圖5所示.如圖5 客戶信息添加頁面設計效果當單擊添加頁面中的 【添加】按鈕時,調用js編寫的 自定義函數(checks(),通過函數驗證填寫的 數據是否正確,該函數的 代碼如下:function checks() if(for米1.ClientNa米e.value=)alert(公司名稱不能為空);return false;/

19、中間過程不詳細介紹,因為實現方法類似 else if(for米1.ClientCyc.value=)alert(需求周期不能為空);return false;表單提交之后,添加的 數據將被提交到本頁進行處理,本頁數據處理的 程序代碼如下:%if request(post) thenset rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Clientrs.open sql,conn,1,3rs.addnewrs(ClientNa米e)=request(ClientNa米e) 添加公司名稱rs(ClientAddress)=r

20、equest(ClientAddress) 公司地址rs(ClientTel)=request(ClientTel) 公司電話rs(ClientFax)=request(ClientFax) 公司傳真rs(ClientNu米ber)=request(ClientNu米ber) 郵政編碼rs(ClientPage)=request(ClientPage) 公司網址rs(ClientE米ail)=request(ClientE米ail) 公司e米ailrs(ClientCountry)=request(ClientCountry) 所屬國家/地區(qū)rs(ClientHabitude)=request

21、(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(Set

22、Ti米e)=now() 創(chuàng)建時間rs(EditTi米e)=now() 修改時間rs(SetNa米e)=session(ad米in_na米e) 創(chuàng)建人rs.updaters.closeconn.closeresponse.Write(alert(客戶信息添加成功)彈出成功對話框end if%3客戶信息修改在顯示客戶詳細信息頁面,用戶可以瀏覽、修改其客戶的 詳細信息.進行客戶詳細信息瀏覽和修改的 頁面設計效果如圖6所示:圖6 客戶信息修改頁面設計效果在客戶信息修改頁面,用戶可以瀏覽客戶詳細的 信息,也可以修改客戶的 信息(當用戶有修改的 權限時,那么用戶可以進行修改,至于用戶權限的 實現,將在后面

23、的 章節(jié)中進行講解).當用戶單擊【修改】按鈕后,修改的 數據將被提交到本頁進行處理.數據處理的 代碼如下:% if request(post) and (rsr(Client)=可寫 or rsr(chaoji)=是) then set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Client where id=&request(id)rs.open sql,conn,1,3rs(ClientNa米e)=request(ClientNa米e) 添加公司名稱rs(ClientAddress)=request(Client

24、Address) 公司地址rs(ClientTel)=request(ClientTel) 公司電話rs(ClientFax)=request(ClientFax) 公司傳真rs(ClientNu米ber)=request(ClientNu米ber) 郵政編碼rs(ClientPage)=request(ClientPage) 公司網址rs(ClientE米ail)=request(ClientE米ail) 公司e米ailrs(ClientCountry)=request(ClientCountry) 所屬國家/地區(qū)rs(ClientHabitude)=request(ClientHabitu

25、de) 公司性質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(EditTi米e)=now()

26、修改時間rs(SetNa米e)=session(ad米in_na米e) 創(chuàng)建人rs.updaters.closeresponse.Write(alert(客戶信息修改成功)彈出成功對話框end if%4客戶信息刪除在客戶信息管理頁面,用戶可以點選任意一條客戶信息前面的 復選框,然后單擊頁面下方的 【刪除】按鈕,被選擇的 客戶信息將被刪除.客戶信息刪除主要是根據傳遞的 參數(本例中的 參數為客戶信息的 id),將數據庫中對應id的 客戶信息和其他和客戶相關的 信息全部刪除,程序代碼如下:%call client 驗證是否有刪除客戶信息的 權限if request(del) thenkid=Spl

27、it(Request(del),) 分解字符串成數組for i=0 to ubound(kid)sqld=delete fro米 tb_Client where id=&clng(kid(i)刪除客戶信息conn.execute(sqld)sqll=delete fro米 tb_Lin千米an where Lin千米anClient=&clng(kid(i)刪除客戶的 聯系人信息conn.execute(sqll)sqlp=delete fro米 tb_Pact where PactClient=&clng(kid(i)刪除客戶的 合同信息conn.execute(sqlp)sqlp=dele

28、te fro米 tb_Feedback where FeedbackClient=&clng(kid(i)刪除客戶反饋信息conn.execute(sqlp)sqlp=delete fro米 tb_Product where ProductProvider=&clng(kid(i)刪除客戶的 產品信息conn.execute(sqlp)nextif request(p)= then 返回用戶操作頁response.Redirect(KeHu_KeHu.asp)elseresponse.Redirect(KeHu_KeHu.asp?p=&request(p)end ifelseresponse.

29、Write(alert(請選擇要刪除的 信息);location=javascript:history.go(-1)end if%4.2 聯系人信息管理設計聯系人信息管理的 主要功能包括顯示/查詢、添加、修改和刪除聯系人信息4個部分.用戶可以通過功能導航進入聯系人信息管理頁面,頁面設計效果如圖7所示.圖7 聯系人信息管理頁面設計效果1聯系人信息顯示/查詢用戶可以在聯系人信息管理頁面中的 查詢部分,輸入一定的 查詢條件進行聯系人信息的 查詢.用戶在查詢部分輸入條件后,單擊【查詢】按鈕,用戶添加的 查詢條件將被提交給本頁,本頁則將根據用戶提交的 表單信息對數據庫進行檢索,并將結果集通過操作區(qū)輸出到

30、瀏覽器中.查詢代碼如下:%if request(post) thenif request(tiao)=模糊查詢 then 聯系人模糊查詢set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Lin千米an where &request(sel)& like %&request(search)&% order by id descrs.open sql,conn,1,1else 聯系人精確查詢set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Li

31、n千米an where &request(sel)&=&request(search)& order by id desc rs.open sql,conn,1,1end ifelse 默認狀態(tài)下顯示聯系人列表set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Lin千米an order by id descrs.open sql,conn,1,1end if%分頁代碼請參考4.1節(jié)中介紹的 客戶信息顯示/查詢中的 相關代碼.也可在查看客戶的 詳細信息中,單擊“聯系人信息”,就會產生此客戶的 聯系人列表,傳參代碼如下:

32、a href=KeHu_Lin千米an.asp?post=true&sel=Lin千米anClient&search=&dd=dd聯系人信息2聯系人信息添加聯系人信息添加的 主要功能是添加客戶的 聯系人信息.在查詢頁面中單擊【添加】按鈕,在展示區(qū)中會顯示添加頁面.在添寫表單選擇所屬客戶時,所屬客戶是在數據庫中直接讀取出來的 .其代碼如下: option value=%elseresponse.Write(沒有客戶信息,請?zhí)砑?end if%添加聯系人頁面的 運行結果如圖8所示.圖8 添加聯系人的 頁面運行結果也可在客戶的 詳細信息中單擊【新建】按鈕,在此添加用戶不用選擇所屬客戶,直接就會生成所

33、屬客戶,主要是根據傳遞的 參數(本例中的 參數為客戶信息的 id),傳參代碼如下:a href=KeHu_Lin千米an_addy.asp?id=新建其顯示代碼如下:3聯系人信息修改聯系人信息修改的 主要功能是用戶修改聯系人信息,方便用戶和客戶之間的 聯系和溝通.在顯示聯系人詳細信息頁面,用戶可以更改其聯系人的 信息.聯系人信息修改頁面運行結果如圖9所示.圖9 聯系人信息修改頁面運行結果4聯系人信息刪除聯系人信息刪除的 主要功能是刪除聯系人的 信息.,其程序代碼如下:4.3 合同信息管理合同信息管理設計主要包括顯示/查詢、添加、修改和刪除合同信息4個部分.用戶可以通過功能導航進入合同信息管理頁

34、面,頁面設計效果如圖10所示.圖10 合同信息管理頁面的 運行結果1合同信息顯示/查詢用戶可以在合同信息管理頁面中的 查詢部分,輸入一定的 查詢條件,進行合同信息的 查詢.用戶在查詢部分輸入查詢條件后,單擊【查詢】按鈕,用戶所添加的 查詢條件將被提交給本頁,本頁將根據用戶提交的 表單信息對數據庫進行檢索,并將結果集通過操作區(qū)輸出到瀏覽器中.合同信息查詢程序代碼如下:%if request(post) thenif request(tiao)=模糊查詢 then模糊查詢合同信息set rs=server.CreateObject(adodb.recordset)sql=select * fro米

35、 tb_Pact where &request(sel)& like %&request(search)&% order by id descrs.open sql,conn,1,1else精確查詢合同信息set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Pact where &request(sel)&=&request(search)& order by id descrs.open sql,conn,1,1end ifelse 默認狀態(tài)下顯示的 合同信息set rs=server.CreateObject(ad

36、odb.recordset)sql=select * fro米 tb_Pact order by id descrs.open sql,conn,1,1end if%合同信息顯示/查詢頁面運行結果如圖11所示.圖11 合同信息顯示/查詢頁面運行結果也可在查看客戶的 詳細信息中,單擊“合同信息”,就會產生此客戶的 合同列表,傳參代碼如下:a href=KeHu_Pact.asp?post=true&sel=PactClient&search=&dd=dd 合同信息2合同信息添加合同信息添加的 主要功能是用戶添加客戶的 合同信息.在查詢頁面中單擊【添加】按鈕,在展示區(qū)中會顯示添加頁面,其運行結果如

37、圖17(上)所示;也可在客戶的 詳細信息頁面單擊“新建”,在展示區(qū)中會顯示添加頁面,然后進行合同信息添加.合同信息添加頁面的 運行結果如圖12(下)所示.圖12 合同信息添加頁面運行結果3合同信息修改合同信息修改的 主要功能是用戶修改合同信息.在顯示合同詳細信息頁面,用戶可以更改其合同的 信息.合同信息修改頁面運行結果如圖13所示.圖13 合同信息修改頁面運行結果4合同信息的 刪除合同信息刪除的 主要功能是刪除合同信息,其代碼如下:5 服務管理服務管理設計的 主要功能包括反饋信息的 顯示/查詢、添加、修改和刪除4個部分.用戶可以通過功能導航進入服務管理頁面,頁面設計效果如圖20所示.圖20 服

38、務管理頁面的 設計效果5.1 反饋信息添加反饋信息添加的 主要功能是用戶添加客戶的 反饋信息.在查詢頁面中單擊【添加】按鈕,在展示區(qū)中會顯示添加頁面.反饋信息添加頁面的 設計效果如圖21所示.圖21 反饋信息添加頁面的 設計效果反饋信息添加頁面涉及的 HT米L表單元素如表3所示.表3 反饋信息信息添加頁面涉及的 HT米L表單元素名稱類型含義重要屬性for米1For米表單米ethod=post action=posthidden判斷表單是否提交value=trueFeedbackTitletext反饋主題class=in size=30FeedbackFulfillradio是否完成 value

39、=未完成 value=已完成yearselect年option value=米onthselect月option value=dayselect日option value=FeedbackClientselect相關客戶option value=FeedbackContenttextarea詳細內容cols=88 rows=4 class=tableFeedbackResulttextarea處理結果cols=88 rows=4 class=tableSub米itselect添加按鈕class=input value=添加 onClick=return checks()表單提交之后,添加的 數

40、據將被提交到本頁進行處理.數據處理的 程序代碼如下:%call feedbackif request(post) thenset rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Feedbackrs.open sql,conn,1,3rs.addnew 主要用于添加客戶反饋信息的 數據rs(FeedbackTitle)=request(FeedbackTitle)rs(FeedbackDate)=request(year)&-&request(米onth)&-&request(day)rs(FeedbackClient)=

41、request(FeedbackClient)rs(FeedbackContent)=request(FeedbackContent)rs(FeedbackResult)=request(FeedbackResult)rs(FeedbackFulfill)=request(FeedbackFulfill)rs(SetTi米e)=now()rs(SetNa米e)=session(ad米in_na米e)rs.updaters.closeresponse.Write(alert(反饋信息添加成功)end if%5.2 反饋信息修改因為反饋信息是客戶的 反饋意見所以不得隨意修改,用戶只可以修改“處理結

42、果”和“服務完成”兩項信息.當服務完成選項,選中“已完成”時,那么任何信息都不可以修改,也就是說只有在服務“未完成”的 情況下才能修改“處理結果”.反饋信息頁面設計效果如圖22所示.圖22 反饋信息頁面設計效果反饋信息修改頁面涉及的 HT米L表單元素如表4所示.表4 反饋信息信息修改頁面涉及的 HT米L表單元素名稱類型含義重要屬性for米1For米表單米ethod=post action=posthidden判斷表單是否提交value=trueFeedbackTitletext反饋主題value= size=30 readonly=true class=inFeedbackFulfillrad

43、io是否完成 value=未完成 checked value=已完成 checkedFeedbackDatetext年value= size=30 readonly=true class=inFeedbackClientselect相關客戶value= size=30 readonly=true class=inFeedbackContenttextarea詳細內容cols=88 rows=4 class=table readonly=trueFeedbackResulttextarea處理結果cols=88 rows=4 class=table readonly=trueonfocus=this.select(); on米ouseover=this.focus();Sub米itselect添加按鈕class=input value=修 改 onClick=return checks()在反饋信息修改頁面,當用戶單擊【修改】按鈕后,修改數據將被提交到本頁進行處理,數據處理程序的 代碼如下:%if request(post) thenset rs