【正文】 ,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。 (1)。)。 data source=amp。而且從記錄上來看，能夠看到投訴來訪者的 IP記錄。 在建設網(wǎng)站前首先得把頁面規(guī)劃圖做出來，通過 Photoshop將主頁的策劃，對顏色的選擇，對整個頁面的布局做出詳細而精確的規(guī)劃。例如： sqlStr=SELECT*FROM b1 Set RecordSet =(sqlStr) 這條語句執(zhí)行后，對象 RecordSet 中就保存了 b1 中的所有記錄。 2. 用 SQL 創(chuàng)建新表 Create table 語句 3. 用 SQL 插入數(shù)據(jù) Insert 語句 4. 用 SQL 更新記錄 Update 語句 5. 用 SQL 刪除記錄 Delete 語句 6. 用 SQL 刪除表格 Drop table 語句 3 建立 ACCESS 數(shù)據(jù)庫連接 ACCESS 數(shù)據(jù)庫是屬于微軟 OFFICE 中的一個組件，是一個典型的開放式數(shù)據(jù)庫系統(tǒng)，同時也是世界上最流行的數(shù)據(jù)庫管理軟件之一。 Message Queue Server 保證更新將被發(fā)送給遠程服務器，即使目前網(wǎng)絡不可用。例 如，假設有一個確認銀行帳戶的腳本，并且您需要針對事務的不同狀態(tài)將不同的頁返回給用戶，那么就可以使用 OnTransactionCommit 和 OnTransactionAbort 事件來編寫對用戶的不同響應。如果 Web 服務器的 Secure Sockets Layer (SSL)資格映射特性配置正確，那么服務器就可以在許可用戶對 ASP 應用程序訪問之前對其身份進行確認。 Windows NT 請求 /響應式身份驗證從用戶的 Web 瀏覽器通過加密方式獲取用戶身份信息。 (3) 腳本映射文件 應用程序的腳本映射保 證了 Web 服務器不會意外地下載 .ASP 文件的源代碼。 NTFS 權限是 Web 服務器安全性的基礎，它定義了一個或一組用戶訪問文件和目錄的不同級別。 (7) MyInfo、 Status、 System 和 Tools 組件 MyInfo、 Status、 System 和 Tools 組件為在 Macintosh 上和在運行 Microsoft Windows 的計算機上開發(fā)的應用程序提供兼容性。也可以使用 Session 方法顯式地結束一個會話和設置空閑會話的超時期限。該對象使用 Contents、StaticObjects 集合，有 Lock、 Unlock 方 法和 Application_OnEnd、 Application_OnStart 事件。如果所寫的代碼晦澀難懂 ,程序流程模糊 ,那么在調試階段 ,要定位一個錯誤 ,就需要花很多時間來理解程序 ,找出錯誤的程序塊。程序員在功能的開發(fā)過程中 ,可以暫時不要求很好的頁面顯示效果 ,這對程序的調試和代碼的修改是非常有利的。例如在進行網(wǎng)站開發(fā)工作中 ,頁面編輯使用 Macromedia 公司的Dreamweaver 軟件 ,處理圖像使用 Adobe 公司的 Photoshop 軟件。本論文中網(wǎng)站開發(fā)是以 Windows 20xx 作為操作系統(tǒng) ,它內(nèi)置了 等許多服務器組件 ,具有良好的性能 ,操作也非常方便 ! (2) 學好開發(fā)語言 ,掌握與之相關的技能 在網(wǎng)站開發(fā)工作中 ,程序員的工作是極其重要的 ,同時也是最為辛苦的一項工作。 首先 ,PHP 缺乏規(guī)模支持。除了可使用 VBScript或 JavaScript語言來設計外 ,還通過 plugin的方 式 ,使用由第三方所提供的其他腳本語言 , 例如 REXX, Perl, Tcl 等。 2 網(wǎng)站開發(fā)基礎知識 ASP 的特點及發(fā)展前景 ASP 的特點 Microsoft Active Server Pages(ASP)是服務器端腳本編寫環(huán)境 ,使用它可以創(chuàng)建和運行動態(tài)的、交互的 Web 服務器應用程序。 1． 1 傳統(tǒng)物業(yè)管理的現(xiàn)狀 傳統(tǒng)物業(yè)管理業(yè)務處理繁瑣 , 手工工作量大 , 不適合網(wǎng)絡上的處理。 管理的內(nèi)容缺乏標準化 , 管理手段缺乏規(guī)范化 , 導致信息不能共享 , 經(jīng)營決策困難。使用 ASP 可以組合 HTML 頁、腳本命令和 ActiveX 組件以創(chuàng)建交互的 Web 頁面和基于 Web 功能強大的應用程序。腳本引擎是處理腳本程序的 COM(Component Object Model)組件。其次 ,缺乏多層結構支持。網(wǎng)站開發(fā)工作中 ,程序員參與的工作最多。但是還有些功能相近的軟件 ,應用也非常方便和快捷。 網(wǎng)站代碼的可移植性 可移植性原意是指程序從一種硬件和軟件系統(tǒng)環(huán)境轉換到另一種配置和環(huán)境所需要的工作量是多少。 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務管理 第 8 頁 共 42 頁 (2) 方便別人的閱讀、改正 ,方便程序員間的相互交流。 (2) Request 對象 可以使用 Request 對象訪問任何用 HTTP 請求傳遞的信息，包括從 HTML 表格用 POST 方法或 GET 方法傳遞的參數(shù)、 cookie 和用戶認證。 (6) ObjectContext 對象 可以使用 ObjectContext 對象提交或撤消由 ASP 腳本初始化的事務。 MyInfo 組件跟蹤 Web 站點所有者的個人信息，如經(jīng)營 Web 站點的組織名稱和地址及Web 站點的設置，還有 Web 站點是否有 guest book。當擁有 Windows NT 有效帳號的用戶試 圖訪問一個有權限限制的文件時，計算機將檢查文件的訪問控制表 (ACL)。例如，即使您為包含了某個 .ASP 文件的目錄設置了 \讀 \權限，只要該 .ASP 文件隸屬于某個腳本映射應用程序，那么您的 Web 服務器就不會將該文件的源代碼返回給用戶。 然而， Web 服務器僅當禁止匿名訪問或 Windows NT 文件系統(tǒng)的權限限制匿名訪問時才驗證用戶身份。 作為 ASP 應用程序開發(fā)人員，您可以編寫腳本來檢查資格是否存在并讀取資格字段。 (10) 對象作用域 一般情況下，不要將從 MTS 組件中創(chuàng)建的對象存儲在 ASPApplication 或 Session 對象基于 WEB 的物業(yè)管理系統(tǒng) 客戶服務管理 中南林業(yè)科技大學工學學士畢業(yè)設計說明書 第 15 頁 共 42 頁 中。您的應用將收到一個提交消息，從而可以繼續(xù)處理事務。數(shù)據(jù)庫的連接可以才用數(shù)據(jù)配置源名（ Data Source Name,DNS）和未配置數(shù)據(jù)源名（ DNS— less）兩種方法，而未配置數(shù)據(jù)源名的數(shù)據(jù)庫連接又有 ODBC 和 OLE DB 兩種方式。 操作數(shù)據(jù)庫 可 利用 Execute 方便地執(zhí)行數(shù)據(jù)的插入、修改、刪除等操作。 開發(fā)運行環(huán)境 開發(fā)環(huán)境 通過 IP的顯示，就可以有效的防止一臺機子的多個投訴記錄的重復。DBpath function CloseDB set Conn=Nothing End Function % 這段代碼是打開數(shù)據(jù)庫。 (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。 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) 客戶服務管理 中南林業(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。)。留言錯誤：名字不能用特效字符！ 39。 具體字段如圖 ： 圖 基于 WEB 的物業(yè)管理系統(tǒng) — 客戶服務管理 第 26 頁 共 42 頁 6 系統(tǒng)實現(xiàn) 7 部分源代碼及其功能 7． 1 數(shù)據(jù)庫的連接 單獨存為 頁面 % set conn=() DBPath = (db/) provider=。比起前臺的：“管理中心”“退出管理” 以及對單條投訴記錄的“管理”和“刪除”操作。后臺的主要功能是提供一種對前臺功能的服務支持，即實施對信息 的管理、維護 和 處理。創(chuàng)建并打開了對象 RecordSet ， sqtStr 是一個串，代表一條標準的 SQL 語句。 1. 用 SQL 從表中取記錄 Select 語句。 Microsoft Message Queue Server 使您能夠將一個或一組更新捆綁到一個事務性消息中送給遠 程服務器。但是，可以編寫提交或終止事務時被調用的事