【正文】 不過關(guān)于信息的安全 ,我們還有待加強 ,怎樣確保住。在我們的系統(tǒng)中，用戶可以很方便的對物業(yè)公司提出建議。LogPWDamp。 CHR(10), /PP) fString = Replace(fString, CHR(10), BR) HTMLcode = fString end if end function function unHTML(fString) if not isnull(fString) then fString = Replace(fString, , ) fString = Replace(fString, , ) fString = Replace(fString, , CHR(13)) fString = Replace(fString, /PP, CHR(10) amp。 基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務(wù)管理 中南林業(yè)科技大學(xué)工學(xué)學(xué)士畢業(yè)設(shè)計說明書 第 33 頁 共 42 頁 7． 5 中的檢查函數(shù) % function CheckEmail() dim names, name, i, c CheckEmail = true names = Split(, ) if UBound(names) 1 then CheckEmail = false exit function end if for each name in names if Len(name) = 0 then CheckEmail = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr(abcdefghijklmnopqrstuvwxyz_., c) = 0 and not IsNumeric(c) then CheckEmail = false exit function end if next if Left(name, 1) = . or Right(name, 1) = . then CheckEmail = false exit function end if next if InStr(names(1), .) = 0 then CheckEmail = false 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 34 頁 共 42 頁 exit function end if i = Len(names(1)) InStrRev(names(1), .) if i 2 and i 3 then CheckEmail = false exit function end if if InStr(, ..) 0 then CheckEmail = false end if end function Function CheckHtml(Str) Dim ke ke=Trim(Str) if InStr(1,ke, ,vbTextCompare)0 or InStr(1,ke,》 ,vbTextCompare)0 or InStr(1,ke, 《 ,vbTextCompare)0 or InStr(1,ke,.,vbTextCompare)0 or InStr(1,ke, ” ,vbTextCompare)0 or InStr(1,ke,vbTextCompare)0 or InStr(1,ke,amp。LogPWDamp。ADMIN)=True Else End IF End IF % 此段為登陸代碼。,))=LogPWD Then Session(PROamp。,)) IF Trim(Replace(Request(LogName),39。) content=unhtml(ccc(content)) reply=unhtml(ccc(reply)) if ccc(top)=9 then tt=投訴置頂 elseif ccc(top)=5 then tt= 普通投訴 else tt=投訴置底 end if if ccc(type)=wait then ttt=等待審核 elseif ccc(type)=open then ttt= 公開投訴 elseif ccc(type)=close then 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 32 頁 共 42 頁 ttt= 私密投訴 else ttt=禁止顯示 end if % 對記錄的修改其實就是在檢查完一條投訴信息以后，另外補充一些字段信息。 Sql,conn,1,3 canl(content)=content canl(title)=title canl(top)=top canl(mail)=mail canl(qq)=qq canl(nali)=nali canl(reply)=reply canl(bj)=bj canl(type)=lytype 基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務(wù)管理 中南林業(yè)科技大學(xué)工學(xué)學(xué)士畢業(yè)設(shè)計說明書 第 31 頁 共 42 頁 Set canl=Nothing Call CloseDB End IF End Function id=(id) edit=(edit) if edit=ture then set ccc=(select*from gb where id=amp。 /script Else ID=Request(id) content=HTMLcode(Request(content)) title=Request(title) top=Request(top) lytype=Request(type) reply=HTMLcode(Request(reply)) if Request(bj)= then bj=now else bj=Request(bj) end if Set canl = () Sql = Select * From gb where id=amp。)。 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 30 頁 共 42 頁 alert(39。ADMIN)True Then End IF IF Request(POST) Then Call WriteData End IF Function WriteData IF Request(content)= or Request(title)= Then script language=39。 中 修改 一條記錄 % IF Session(PROamp。 (1)。留言錯誤：你的留言太長！ 39。javascript39。 (1)。留言錯誤：名字不能用特效字符！ 39。javascript39。 (1)。留言錯誤：你填寫不完整！ 39。javascript39。LogPWDamp。 單獨存為 文件。DBpath function CloseDB set Conn=Nothing End Function % 這段代碼是打開數(shù)據(jù)庫。 具體字段如圖 ： 圖 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 26 頁 共 42 頁 6 系統(tǒng)實現(xiàn) 7 部分源代碼及其功能 7． 1 數(shù)據(jù)庫的連接 單獨存為 頁面 % set conn=() DBPath = (db/) provider=。 具體字段如下圖： 基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務(wù)管理 中南林業(yè)科技大學(xué)工學(xué)學(xué)士畢業(yè)設(shè)計說明書 第 25 頁 共 42 頁 圖 而子表 gbinfo 中存儲的內(nèi)容則是后臺 中“管理中心”里面的數(shù)據(jù)。 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 24 頁 共 42 頁 數(shù)據(jù) 設(shè)計 5 數(shù)據(jù)庫及子表的設(shè)計 圖 在數(shù)據(jù)庫 data 中，存在兩個子表，分別是 gb 子表和 gbinfo 子表。當(dāng)處理完畢后，“提交”按鈕壓下，就更新了 gb表中的記錄。 圖 46 圖 46為對投訴記錄的處理，可以設(shè)置置頂、置底，其中默認(rèn)為普通投訴；投訴的類型可 分為：公開投訴、秘密投訴、和禁止公開。 圖 45 基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務(wù)管理 中南林業(yè)科技大學(xué)工學(xué)學(xué)士畢業(yè)設(shè)計說明書 第 23 頁 共 42 頁 網(wǎng)頁后臺數(shù)據(jù)庫管理 功能只有管理員才能使用，依靠正確的管理員名稱和口令登錄到管理頁面，進(jìn)行對 投訴 的編輯與 增加 、修改和刪除；對 留言 的回復(fù)與刪除等操作。在該頁面中，可以修改登陸的“管理帳號” “管理密碼”；也可以設(shè)置站點的基本資料，如：“站點名稱”“站點網(wǎng)址”；在基本參數(shù)設(shè)置中，可以修改 按在前臺的記錄多少 條分 一 頁、可以 控制留言最多為多少字等。通過 IP的顯示，就可以有效的防止一臺機子的多個投訴記錄的重復(fù)。比起前臺的：“管理中心”“退出管理” 以及對單條投訴記錄的“管理”和“刪除”操作。可以在進(jìn)入后臺以后，在后 臺的 “管理中心”修改帳號密碼，見圖 45 圖 43 圖 44為 后臺的 。 就可以在數(shù)據(jù)庫的 gb 表里面添加一條新記錄了！ 基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務(wù)管理 中南林業(yè)科技大學(xué)工學(xué)學(xué)士畢業(yè)設(shè)計說明書 第 21 頁 共 42 頁 圖 42 后臺的需要通過 圖 43 ，才能進(jìn)入 。 圖 41 為系統(tǒng)進(jìn)入的 界面 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 20 頁 共 42 頁 圖 41 在圖 41 里面 可以點擊“我要投訴”進(jìn)入圖 42 的 界面，填寫投訴申請表。 服務(wù)器端： Windows 20xx Server+ 網(wǎng)頁設(shè)計軟件： Macromedia Dreamweaver 8 字處理軟件： Microsoft Word 20xx 開發(fā)運行環(huán)境 開發(fā)環(huán)境 后臺的主要功能是提供一種對前臺功能的服務(wù)支持，即實施對信息 的管理、維護(hù) 和 處理。還必須要注意顏色的搭配，一個顏色搭配好的網(wǎng)站會使來訪者心情非常愉悅。 從該站點的特點、功能以及管理的角度分析， 客戶服務(wù)管理 系統(tǒng)可以分為“前臺”和“后臺”兩大部分。所以本站采用 ASP 技術(shù)來開發(fā) ,通過 ASP 技術(shù)的交互方式可直接與網(wǎng)頁上的數(shù)據(jù)“交談”起來，用戶瀏覽時更具生動性、靈活性?？?戶意見管理：對客戶日常對小區(qū)管理等各方面提出的意見、建議進(jìn)行 管理，并對整改措施及結(jié)果進(jìn)行登記。UID=userID。在 ASP 中通過調(diào)用方法 close實現(xiàn)關(guān)閉。 操作數(shù)據(jù)庫 可 利用 Execute 方便地執(zhí)行數(shù)據(jù)的插入、修改、刪除等操作。創(chuàng)建并打開了對象 RecordSet ， sqtStr 是一個串，代表一條標(biāo)準(zhǔn)的 SQL 語句。 RecordSet 是 ADO 中最復(fù)雜的對象，有許多屬性和方法，靈活運用，可以達(dá)到許多好的效果。 dsnname 為數(shù)據(jù)源名； userID 為用戶名； password 為用戶口令。 (DSN=dsnname； UID=userID； PWD=password) 39。利用 ADODB 的成員函數(shù) Open 和 先 前 設(shè) 定 的 DSN 與 數(shù) 據(jù) 庫 連 接 ， 其 語 法 如 下 ： SetConnect=() 39。打開 Windows 的 控制面板 ，雙擊 ODBC的圖標(biāo)，然后選擇 文件 DSN 的屬性頁，單擊 添加 ，選擇數(shù)據(jù)庫驅(qū)動程序，然后單擊 下一步 ，按照屏幕的指示鍵入數(shù)據(jù)源文件的名稱，然后單擊 下一步 ，再單擊 完成 創(chuàng)建數(shù)據(jù)源?？梢允褂?ADO 去編寫緊湊簡明的腳本以便連接到 ODBC 兼容的數(shù)據(jù)庫和 OLE DB 兼容的數(shù)據(jù)源。數(shù)據(jù)庫的連接可以才用數(shù)據(jù)配置源名（ Data Source Name,DNS）和未配置數(shù)據(jù)源名（ DNS— less）兩種方法，而未配置數(shù)據(jù)源名的數(shù)據(jù)庫連接又有 ODBC 和 OLE DB 兩種方式。 1. 用 SQL 從表中取記錄 Select 語句。因此 ,掌握好 SQL對 ASP編程是非常重要的。雖然很多數(shù)據(jù)庫都對 SQL 語句進(jìn)行了再開發(fā)和擴展 ,但是包括 select , Insert , Update , Delete , Create 以及 Drop 在內(nèi)的標(biāo)準(zhǔn)的 SQL 命令仍然可以被用來完成幾乎所有的數(shù)據(jù)庫操作。 SQL 語句可以用來執(zhí)行各種各