【導讀】新型住宅區(qū)域的管理多數(shù)由物業(yè)管理公司或單位的物業(yè)管理部門實行。小區(qū)中的居民也不再。方式不能奏效,需要專門的物業(yè)管理部門統(tǒng)一管理,這勢必增加物業(yè)管理部門的工作量。業(yè)情況實行動態(tài)管理。將計算機引入到物業(yè)管理領域,從而實現(xiàn)物業(yè)管理工作高效、科學、合理,適應時代的需求。息系統(tǒng)的設計方案及其實現(xiàn)。絡為中心的計算機環(huán)境,開發(fā)出功能強、運行可靠的綜合管理信息系統(tǒng)。管理的內(nèi)容缺乏標準化,管理手段缺乏規(guī)范化,導致信息不能共享,經(jīng)營決策困難。信息的發(fā)布不及時,準確率低,物業(yè)管理公司和業(yè)主缺乏有效的溝通。采用關系數(shù)據(jù)庫系統(tǒng)為物業(yè)管。針對小區(qū)物業(yè)管理的特點,制定出一套獨特的精確到點的管理措施。使用ASP可以組合HTML頁、腳本命令和ActiveX組。當程序執(zhí)行完畢后,服務器僅將執(zhí)行。因為ASP是將運行結(jié)果以HTML的格式傳送。與微軟的其他產(chǎn)品無縫連接,不論對ASP的執(zhí)行還是開發(fā),微軟都提供極為堅實的后盾。ASP憑借微軟的強力支持,必定會更加強壯。

　　

【正文】 tent)) 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) 客戶服務管理 中南林業(yè)科技大學工學學士畢業(yè)設計說明書 第 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 % 這里的 添 加信息，就是指從前臺寫入一條投訴的記錄。 中 修改 一條記錄 % IF Session(PROamp。LogPWDamp。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。javascript39。 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務管理 第 30 頁 共 42 頁 alert(39。投訴錯誤：請?zhí)顚憳祟}或投訴內(nèi)容！ 39。)。 (1)。 /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。idamp。 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) 客戶服務管理 中南林業(yè)科技大學工學學士畢業(yè)設計說明書 第 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。idamp。) 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) — 客戶服務管理 第 32 頁 共 42 頁 ttt= 私密投訴 else ttt=禁止顯示 end if % 對記錄的修改其實就是在檢查完一條投訴信息以后，另外補充一些字段信息。 7． 4 與 登陸 登出代碼 % IF Request(POST)=True Then Trim(Replace(Request(LogPwd),39。,)) IF Trim(Replace(Request(LogName),39。,))=LogName and Trim(Replace(Request(LogPwd),39。,))=LogPWD Then Session(PROamp。LogPWDamp。ADMIN)=True Else End IF End IF % 此段為登陸代碼。 % Session(PROamp。LogPWDamp。ADMIN)= % 這是安全退出的代碼。 基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務管理 中南林業(yè)科技大學工學學士畢業(yè)設計說明書 第 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) — 客戶服務管理 第 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。,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) 客戶服務管理 中南林業(yè)科技大學工學學士畢業(yè)設計說明書 第 35 頁 共 42 頁 fString = Replace(fString, CHR(10) amp。 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。 CHR(10)) fString = Replace(fString, BR, CHR(10)) unHTML = fString end if end function % 管理中心 % IF Session(PROamp。LogPWDamp。ADMIN)True then End IF IF Request(POST) Then Call WriteData End IF Function WriteData 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務管理 第 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) 客戶服務管理 中南林業(yè)科技大學工學學士畢業(yè)設計說明書 第 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) — 客戶服務管理 第 38 頁 共 42 頁 結(jié) 論 運用 ASP 技術(shù)和網(wǎng)絡數(shù)據(jù)庫原理，我們開發(fā)了一個物業(yè)管理系統(tǒng)中客戶服務子系統(tǒng)。在我們的系統(tǒng)中，用戶可以很方便的對物業(yè)公司提出建議。系統(tǒng)管理員則可以迅速 的對現(xiàn)有的投訴記錄進行添加和編輯，審查已填寫的記錄并對投訴進行處理。 不過關于信息的安全 ,我們還有待加強 ,怎樣