【正文】 ADO 中的數(shù)據(jù)對象通常保存的是查詢 結(jié)果。其創(chuàng)建方法如下： Set RecordSet =(sqtStr) 39。例如： sqlStr=SELECT*FROM b1 Set RecordSet =(sqlStr) 這條語句執(zhí)行后，對象 RecordSet 中就保存了 b1 中的所有記錄。如執(zhí)行插入操作： sqlStr=Insert Into b1Values(1,2) (sqlStr) 關(guān)閉數(shù)據(jù)對象和鏈接 在使用了 ADO 對象之后，一定要關(guān)閉數(shù)據(jù)對象和鏈接。 關(guān)閉創(chuàng)建的數(shù)據(jù)對象： Record Set .close Set Record Set=Nothing 關(guān)閉創(chuàng)建的鏈接對象： Connect. close Set Connect=Nothing 完整的程序片段： //產(chǎn)生組件實例 ％ SetConnect=() //連接數(shù)據(jù)庫 (DSN=dsnname。PWD=password) //執(zhí)行查詢 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 18 頁 共 42 頁 SQL=select＊ fromtablename SetRS=(SQL) ％ //顯示結(jié)果 ％ DoWhile Not ％ ％ =RS(fieldname)％ ％ Loop％ 4 系統(tǒng) 分析 系統(tǒng)功能分析 系統(tǒng)數(shù)據(jù)分析 5 系統(tǒng)實現(xiàn) 設(shè)計特點 客戶服務(wù)管理子系統(tǒng)主要實現(xiàn)客戶投訴管理：對投訴進(jìn)行管理是物業(yè)管理公司提供優(yōu)質(zhì)服務(wù)的一個重要組成部分，該模塊協(xié)助對投訴人、投訴對象、內(nèi)容、處理意見和客戶投訴處理的滿意程度進(jìn)行有效的分類管理。 客戶投宿管理 的東西不是一成不變的，若采用靜態(tài)技術(shù)來開發(fā)網(wǎng)站 ，數(shù)據(jù)更新維護(hù)起來比較煩瑣。 設(shè)計開發(fā)思路 客戶服務(wù)管理 系統(tǒng)的建設(shè)分為以下環(huán)節(jié)：前期準(zhǔn)備工作，系統(tǒng)技術(shù)解決方案的確立，頁面規(guī)劃、開發(fā)制作，系統(tǒng)調(diào)試維護(hù)。前臺的主要功能是為網(wǎng)絡(luò)用戶提供信息瀏覽 和提交信息 的平臺；前臺系統(tǒng)開基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務(wù)管理 中南林業(yè)科技大學(xué)工學(xué)學(xué)士畢業(yè)設(shè)計說明書 第 19 頁 共 42 頁 發(fā)的主要任務(wù)是頁面設(shè)計，網(wǎng)頁設(shè)計時必須考慮到網(wǎng)絡(luò)傳輸率、服務(wù)器性能指標(biāo) 以及客戶端瀏覽模式等，不能單純追求頁面的奢華而加大網(wǎng)絡(luò)傳輸圖片的負(fù)荷。顏色搭配不好站會使來訪者對網(wǎng)站產(chǎn)生討厭心理，那么網(wǎng)站的策劃和制作就是失 敗的。 在建設(shè)網(wǎng)站前首先得把頁面規(guī)劃圖做出來，通過 Photoshop將主頁的策劃，對顏色的選擇，對整個頁面的布局做出詳細(xì)而精確的規(guī)劃。 操作系統(tǒng)： Microsoft Windows 20xx 瀏覽器 : Microsoft Inter Explorer 以上 數(shù)據(jù)庫軟件： Microsoft Access 20xx 運行環(huán)境 客戶端： Inter Explorer 以上 系統(tǒng)功能設(shè)計 前臺的客戶信息瀏覽及交流部分 功能包括： 查看公開的投訴信息，以及添加客戶自己的意見和建議的投訴申請表的頁面。 當(dāng)必填寫的選項，填寫完整以后，“提交”按鈕壓下。未修改的管理帳號和管理密碼均為：admin。是通過了 。而且從記錄上來看，能夠看到投訴來訪者的 IP記錄。 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 22 頁 共 42 頁 圖 44 進(jìn)入后臺以后，單擊“管理中心”就跳轉(zhuǎn)到 “ ”如圖 5所示頁面。 “退出管理”就回到前臺，“查看投訴”就可以管理投訴記錄。即對數(shù)據(jù)庫中數(shù)據(jù)記錄的刪除增加以及修改。這樣就可以區(qū)分不同種類，不同情況的投訴了。 引入 WEB編輯功能來處理，將這些日常維護(hù)工作量轉(zhuǎn)為系統(tǒng)化、標(biāo)準(zhǔn)化的維護(hù)格式，從而保證網(wǎng)站設(shè)計風(fēng)格的統(tǒng)一，同時也可以大大減輕工作量 ，迅速準(zhǔn)確的處理好每個客戶的投訴和建議 。其中 gb 子表里面存儲的是從前臺 頁面和后臺單一一條記錄的 中提交過來的數(shù)據(jù)。該表中的記錄只有一條，所存的內(nèi)容是對頁面的設(shè)置，可以通過“管理中心”來調(diào)整用戶自己想要的頁面效果和系統(tǒng)說明。 data source=amp。 而這一段代碼是連接 gbinfo 表。 % starttime=timer() set rs=(SELECT * FROM gbinfo) LogName=rs(logname) LogPWD=rs(logpwd) Showlynum=rs(showlynum) siteurl= rs(siteurl) USRName= rs(username) GbOpen=rs(Gbopen) popwrite=rs(popwrite) notice=rs(notice) ubbcode=rs(ubbcode) lymax=int(rs(bak1)) shhe=rs(bak2) 基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務(wù)管理 中南林業(yè)科技大學(xué)工學(xué)學(xué)士畢業(yè)設(shè)計說明書 第 27 頁 共 42 頁 click=rs(visit)+1 % 前臺 中 添 加一條記錄 % IF popwrite1 Then IF Session(PROamp。ADMIN)True Then End IF End IF IF Request(POST) Then Call WriteData End IF Function WriteData IF Trim(Request(content))= or Trim(Request(name))= or Trim(Request(title))= Then script language=39。 alert(39。)。 /script ELSEIF CheckHtml(Request(name)) then script language=39。 alert(39。)。 /script 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 28 頁 共 42 頁 ELSEIF Len(Request(content))lymax then script language=39。 alert(39。)。 /script Else Set Rs = () Sql = Select * From gb Sql,conn,1,3 site=Request(site) if Request(site)= then site= end if shenhe=Request(type) if shhe=1 then shenhe=wait end if Rs(content)=HTMLcode(Request(content)) Rs(date)=now Rs(title)=HTMLcode(Request(title)) Rs(name)=HTMLcode(Request(name)) Rs(from)=Trim(Request(from)) Rs(type)=shenhe Rs(head)=Request(head) 基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務(wù)管理 中南林業(yè)科技大學(xué)工學(xué)學(xué)士畢業(yè)設(shè)計說明書 第 29 頁 共 42 頁 Rs(top)=Request(top) Rs(ip)=Request(ip) Rs(sex)=Request(sex) Rs(nali)=Request(nali) Set Rs=Nothing Call CloseDB End IF End Function % 這里的 添 加信息，就是指從前臺寫入一條投訴的記錄。LogPWDamp。javascript39。投訴錯誤：請?zhí)顚憳?biāo)題或投訴內(nèi)容！ 39。 (1)。idamp。idamp。 7． 4 與 登陸 登出代碼 % IF Request(POST)=True Then Trim(Replace(Request(LogPwd),39。,))=LogName and Trim(Replace(Request(LogPwd),39。LogPWDamp。 % Session(PROamp。ADMIN)= % 這是安全退出的代碼。,vbTextCompare)0 then CheckHtml=true else CheckHtml=false end if End Function function HTMLcode(fString) if not isnull(fString) then fString = Replace(fString, , ) fString = Replace(fString, , ) fString = Replace(fString, CHR(13), ) 基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務(wù)管理 中南林業(yè)科技大學(xué)工學(xué)學(xué)士畢業(yè)設(shè)計說明書 第 35 頁 共 42 頁 fString = Replace(fString, CHR(10) amp。 CHR(10)) fString = Replace(fString, BR, CHR(10)) unHTML = fString end if end function % 管理中心 % IF Session(PROamp。ADMIN)True then End IF IF Request(POST) Then Call WriteData End IF Function WriteData 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 36 頁 共 42 頁 IF Request(logname)= or Request(logpwd)= or Request(username)= or Request(Gbopen)= or Request(siteurl)= or Request(showlynum)= or Request(popwrite)= Then brp align=centerfont color=red你填寫不完整 !/font Else IF Request(logpwd)Request(logpwd2) Then brp align=centerfont color=red密碼驗證有誤！ /font end if LogName=Request(logname) LogPWD=Request(logpwd) Showlynum=Request(showlynum) siteurl= Request(siteurl) USRName= Request(username) GbOpen=Request(Gbopen) popwrite=Request(popwrite) visit=Request(visit) notice=Request(notice) ubbcode=Request(ubbcode) lymax=Request(lymax) shenhe=Request(shenhe) Set canl = () Sql = Select * From gbinfo Sql,conn,1,3 canl(LogName)=LogName canl(LogPWD)=LogPWD canl(Showlynum)=Showlynum canl(username)=USRName canl(GbOpen)=GbOpen 基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務(wù)管理 中南林業(yè)科技大學(xué)工學(xué)學(xué)士畢業(yè)設(shè)計說明書 第 37 頁 共 42 頁 canl(popwrite)=popwrite canl(siteurl)=siteurl canl(visit)=visit canl(notice)=notice canl(ubbcode)=ubbcode canl(bak1)=lymax canl(bak2)=shenhe Set canl=Nothing Call CloseDB End IF End Function set info=(select*from gbinfo) % 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務(wù)管理 第 38 頁 共 42 頁 結(jié) 論 運用 ASP 技術(shù)和網(wǎng)絡(luò)數(shù)據(jù)庫原理，我們開發(fā)了一個物業(yè)管理系統(tǒng)中客戶服務(wù)子系統(tǒng)。系統(tǒng)管理員則可以迅速 的對現(xiàn)有的投訴記錄進(jìn)行添加和編輯，審查已填寫的記錄并對投訴進(jìn)