| 淺談如何建立三層體系結構的ASP應用程序 收藏此頁(yè)到茶秀網(wǎng)摘 | |||
| 作者： unknown www.ASPCool.com 時(shí)間:2005-10-23 上午 12:42:11 閱讀次數:300 | |||
一、兩層結構的ASP應用有何缺點(diǎn) 在Browser/Server 應用程序開(kāi)發(fā)領(lǐng)域，微軟公司的IIS/ASP以其強大的功能，良好的擴展能力，及與其它微軟產(chǎn)品的一致性，迅速地流行起來(lái)。它能使一個(gè)具有VB/VC經(jīng)驗的程序員，很快地成為一個(gè)Web程序員，開(kāi)發(fā)出看上去非常專(zhuān)業(yè)的應用。但是，ASP有一個(gè)天生的缺點(diǎn)，就是ASP代碼和HTML代碼是混在一起的，ASP程序員既需要考慮與數據庫打交道，需要關(guān)心如何與HTML配合，有時(shí)還需要用ASP直接生成HTML代碼。其結果是，當程序邏輯足夠復雜時(shí)，.asp源文件非常長(cháng)；而且，無(wú)論客戶(hù)提出用戶(hù)界面的改變，還是商業(yè)邏輯的改變(比如，在考試系統中，"合格"的標準可能從達到60分就算合格，改為進(jìn)入前100名才算合格)，都需要對.asp文件進(jìn)行改動(dòng)，而商業(yè)邏輯的改變，很可能需要改動(dòng)很多文件。 二、三層結構的概念 在傳統的Client / Server應用中，也存在著(zhù)上述同樣的問(wèn)題，多層結構的應用正是在對C/S 結構的總結基礎上產(chǎn)生的，并且也已經(jīng)擴展到了B/S應用開(kāi)發(fā)領(lǐng)域。 即將應用劃分為三層(可以有更多層，但三層最常見(jiàn)): 用戶(hù)界面層，商業(yè)邏輯層，數據庫層。 用戶(hù)界面層負責處理用戶(hù)的輸入和向用戶(hù)的輸出，但并不負責解釋其含義(出于效率的考慮，它可能在向上傳輸用戶(hù)輸入前進(jìn)行合法性驗證)，這一層通常用前端工具(VB，VC，ASP等)開(kāi)發(fā);商業(yè)邏輯層是上下兩層的紐帶，它建立實(shí)際的數據庫連接，根據用戶(hù)的請求生成SQL語(yǔ)句檢索或更新數據庫，并把結果返回給客戶(hù)端，這一層通常以動(dòng)態(tài)鏈接庫的形式存在并注冊到服務(wù)器的注冊簿(Registry)中，它與客戶(hù)端通訊的接口符合某一特定的組件標準(如COM，CORBA)，可以用任何支持這種標準的工具開(kāi)發(fā);數據庫層負責實(shí)際的數據存儲和檢索。 有了這樣的結構，上面的問(wèn)題迎刃而解:還是以考試系統中的合格標準為例，在客戶(hù)端所有需要顯示合格人員名單的地方，調用這樣一個(gè)函數GetQualifiedList，至于這個(gè)函數如何編寫(xiě)，如何與數據庫打交道，以至訪(fǎng)問(wèn)的是何種數據庫都與其無(wú)關(guān)(你一定有過(guò)這樣的經(jīng)歷，在一種數據庫系統上運行得很好的SQL語(yǔ)句，有時(shí)換到另一種數據庫系統上必須加以修改); 在中間層DLL中實(shí)現這個(gè)GetQualifiedList函數，如果用戶(hù)對"合格"的定義變了，只需要修改這個(gè)函數就可以了，只要此函數的入口參數和返回內容不變，在客戶(hù)端不需作任何改動(dòng)。在這里，我們看到了面向對象編程的特性之一封裝性的優(yōu)點(diǎn)，而這一點(diǎn)在開(kāi)發(fā)大型應用時(shí)尤其有用--我們可以把開(kāi)發(fā)人員分成兩組，一組負責開(kāi)發(fā)界面層，另一組負責開(kāi)發(fā)商業(yè)邏輯層，雙方只要按照事先商定的函數接口，并行地開(kāi)發(fā)就可以，而不必向從前那樣，后面的工作必須等前面的工作完成后才能開(kāi)始。當然，這樣的開(kāi)發(fā)模式需要很好的項目協(xié)調和文檔作支持。 你也許會(huì )問(wèn)，如果我把這些函數些在一個(gè)單獨的文件中，再在需要調用的地方把它包含進(jìn)來(lái)，不是同樣能達到目的嗎? 第一，這種方法效率不高，無(wú)論你把這些函數分散到多少個(gè)文件中，當你需要調用其中一個(gè)時(shí)，總會(huì )包含進(jìn)一些實(shí)際上并不需要的函數，這無(wú)疑加重了服務(wù)器的負擔，對服務(wù)器性能要求較高的Web應用尤其如此。 而DLL只在需要時(shí)才調入內存且只調入需要的函數，并且多個(gè)應用程序實(shí)例可以共享同一個(gè)DLL實(shí)例；第二，設想一個(gè)員工，有20個(gè)屬性(工號，姓名，年齡，性別......)，現在給定某工號，要求返回此員工所有信息。此時(shí)如果單純用函數，只能定義20個(gè)全局變量，在函數中改變這些變量值，或者定義一個(gè)有20個(gè)傳參(by reference)參數的函數。顯然，第一種方法很麻煩而一旦增加一個(gè)屬性后一種方法就需要更改函數接口。而在一個(gè)對象里，既包含成員方法(即函數和過(guò)程)，也包括成員屬性。如果我們采用對象的方法，則在函數中只需要改變對象的屬性，在函數外可以直接引用改變了的對象屬性值。 這種方法有些類(lèi)似第一種方法，但1.屬性值無(wú)需在函數外逐一說(shuō)明；2.這些屬性值只屬于對象，與對象無(wú)關(guān)的代碼不會(huì )無(wú)意地改變屬性值；3.一旦對象被釋放，這些值會(huì )被一起釋放。 三、如何開(kāi)發(fā)三層結構的ASP應用程序 ASP具有良好的擴充性，我們訪(fǎng)問(wèn)數據庫時(shí)，采用的時(shí)ADO對象，訪(fǎng)問(wèn)文件時(shí)，采用的是文件系統對象(FSO)，其實(shí)這時(shí)程序已經(jīng)是三層結構的應用程序了，只不過(guò)由于是利用內置的對象而為意識到罷了。這些對象都遵循COM/ActiveX接口，因此我們自己開(kāi)發(fā)的對象也要遵循這個(gè)接口。下面，我們就以上文提到的"合格"標準為例，演示如何創(chuàng )建自己的三層結構的ASP應用。 1、在數據庫系統中建立如下數據庫表: Employee: EMPLID char (5) not null， Name char (10) not null， Gender char (1) not null， Score int not null 此表存儲員工信息和考試成績(jì)，為簡(jiǎn)單起見(jiàn)，這里只包含工號，姓名和性別三項，并且只有一門(mén)考試，EMPLID為主鍵。 2、建立動(dòng)態(tài)鏈接庫 啟動(dòng)VB(這里以VB為例，你可以用你喜歡的任何支持ActiveX接口的開(kāi)發(fā)工具開(kāi)發(fā))，新建一工程，工程類(lèi)型為ActiveX DLL。在工程中新建一個(gè)類(lèi)，取名為Employee。你可以Class Builder可視化的向類(lèi)中填加屬性和方法，也可以直接手工編輯。首先填加EMPLID屬性如下： Private msEMPLID as string Property Let EMPLID(sEMPLID as string) msEMPLID=sEMPLID End Property Property Get EMPLID() as string EMPLID=msEMPLID End Property 一般地講，每一個(gè)屬性都應該有Property Let和Property Get兩個(gè)方法，它們分別當向屬性賦值和讀取屬性值時(shí)被調用。如果某個(gè)屬性只被賦值而從不被讀取(這種情況多發(fā)生在對應數據庫表的主鍵的屬性上)，則Property Get方法可以省略。Property Let方法不能省略。你可以仿照上面的程序再建立Name，Gender和Score三個(gè)屬性。然后創(chuàng )建如下方法: Public Sub Create(EMPLID as string) dim conn as new Connection dim rs as new Recordset dim sql as string ‘Suppose that you create a DSN in the control panel, the connectionstring property ‘can also be dsn-less string conn.ConnectionString="dsn=dsnname;uid=username;password=pwd" conn.open sql="select * from Employee where EMPLID=‘" & EMPLID & "‘" with rs .open sql,conn,1,3 if .eof and .bof then exit sub else msEMPLID=trim(.Fields("EMPLID")) msName=trim(.Fields("Name")) msGender=trim(.Fields("Gender")) msScore=.Fields("Score") end if .close end with set rs=nothing conn.close set conn=nothing End Sub 這里根據EMPLID創(chuàng )建Employee對象，注意數據庫中的值是賦給三個(gè)私有變量，而不是直接賦值給屬性，如果你單步調試就會(huì )發(fā)現，給msEMPLID賦值會(huì )調用Property Let EMPLID，也就是給屬性賦值。 下面我們再創(chuàng )建一個(gè)類(lèi)Employees，并填加如下方法: private colQualifiedList as new Collection private mnCurrentIndex as integer Public Sub GetQualifiedList() dim conn as new Connection dim rs as new Recordset dim sql as string ‘Suppose that you create a DSN in the control panel, the connectionstring property ‘can also be dsn-less string conn.ConnectionString="dsn=dsnname;uid=username;password=pwd" conn.open sql="select EMPLID from Employee where Score>=60 order by Score desc" with rs .open sql,conn,1,3 if .eof and .bof then exit sub else do while not .eof dim oEmployee as new Employee oEmployee.Create trim(.Fields("EMPLID")) colQualifiedList.Add oEmployee set oEmployee=nothing loop end if .close end with set rs=nothing conn.close set conn=nothing End Sub 首先請注意VB中創(chuàng )建類(lèi)實(shí)例的語(yǔ)法dim oEmployee as new Employee，后面會(huì )看到，在A(yíng)SP中創(chuàng )建類(lèi)實(shí)例的語(yǔ)法是不同的。這個(gè)方法檢索成績(jì)大于等于60的員工工號，并據此創(chuàng )建一個(gè)Employee對象，再將此對象加入私有的集合對象中。下面兩個(gè)函數遍歷集合中的元素: Public Function GetFirst() as Employee if colQualifiedList.count>0 then mnCurrentIndex=1 set GetFirst=colQualifiedList.Item(1) else set GetFirst=nothing end if End Function Public Function GetNext() as Employee mnCurrentIndex=mnCurrentIndex+1 if mnCurrentIndex>colQualifiedList.count then set GetNext=nothing else set GetNext=colQualifiedList.Item(mnCurrentIndex) End if End Function 也許你會(huì )說(shuō)，為何不把集合聲明Public，這樣在A(yíng)SP中不是可以直接引用嗎？確實(shí)，這樣也行得通，編程實(shí)現起來(lái)也更簡(jiǎn)單些，但是，這樣做破壞了封裝性原則。因為數據以何格式存儲完全是商業(yè)邏輯層的事，與用戶(hù)界面層無(wú)關(guān)，假設有一天你因為每種原因放棄了用集合來(lái)存儲數據的設計，而改用數組或記錄集(Recordset)來(lái)存儲，那你只需要修改GetFirst和GetNext兩個(gè)函數，用戶(hù)界面層完全無(wú)需修改。 至此類(lèi)文件創(chuàng )建完畢，將工程文件存為 test.vbp，選File菜單下的Make test.dll選項將其編譯。 3、注冊動(dòng)態(tài)鏈接庫 啟動(dòng)Web Server 上的Microsoft Transaction Server (Start--Windows NT Optionpack4--Internet Information Server--Internet Service Manager)，展開(kāi)Microsoft Transaction Server--Computer--My Computer--Package Installed，點(diǎn)鼠標右鍵選New--Package--Create Empty Package，輸入包名Test(這里Test是任選的名字，不一定要與DLL同名)，OK-Interactive User-the current Logon user--Finish。雙擊Test--Component，右鍵選Component-New-Component-Install New component(s)-- Add File，選擇你剛編譯好的DLL文件，MTS會(huì )發(fā)現DLL中有兩個(gè)類(lèi)Employee和Employees。至此DLL注冊完畢。 4、編寫(xiě)ASP程序 <HTML><Body> <p>Qualified Employee List</p> <table border=1 cellspacing=0 cellpadding=0> <tr> <td>Employee ID</td> <td>Name</td> <td>Gender</td> <td>Score</td> </tr> <% set oEmployees=server.createobject("Test.Employees") oEmployees.GetQualifiedList set oEmployee=oEmployees.GetFirst() do while not oEmployee is nothing %> <tr> <td><%=oEmployee.EMPLID%></td> <td><%=oEmployee.Name%></td> <td><%=oEmployee.Gender%></td> <td><%=oEmployee.Score%></td> </tr> <% set oEmployee=oEmployees.GetNext() loop %> </table> </body></html> 注意在A(yíng)SP中創(chuàng )建類(lèi)實(shí)例的語(yǔ)法set oEmployees=server.createobject("Test.Employees")，其中Test是DLL的名字，Employees是類(lèi)的名字; 當然，如果一個(gè)函數的返回值是一個(gè)對象，類(lèi)似set oEmployee=oEmployees.GetFirst()這樣的語(yǔ)法也是可以的。 至此，一個(gè)完整的三層結構的應用程序已經(jīng)完成了，讓我們看以下，如果把"合格"的定義改為:只有成績(jì)進(jìn)入前100名才算合格，程序需要做那些修改。事實(shí)上，如果你的數據庫系統是SQL Server，你只需把SQL語(yǔ)句改為: sql="select top 100 EMPLID from Employee order by Score desc" 就已經(jīng)可以了，即使為了跨數據庫系統的兼容性，我們也只需要對GetQualifiedList做如下修改： sql="select EMPLID from Employee order by Score desc" with rs .open sql，conn，1，3 if .eof and .bof then exit sub else i=1 do while (not .eof) and (i<=100) dim oEmployee as new Employee oEmployee.Create trim(.Fields("EMPLID")) colQualifiedList.Add oEmployee set oEmployee=nothing i=i+1 loop end if .close end with ... 然后把DLL重新編譯，注冊就可以了，ASP程序完全不必修改。 四、一些說(shuō)明和注意事項 1、 由于這個(gè)例子比較簡(jiǎn)單，在Employee類(lèi)中可以沒(méi)有Create方法，而在Employees類(lèi)中將員工的所有信息(工號，姓名，性別，成績(jì))都讀出來(lái)并將其賦給Employee對象對應的屬性。但在實(shí)際應用中，當Employee對象的屬性增多，或表的數量增多，表之間關(guān)系變復雜時(shí)，還是本文所示的方法更有效，代碼重用的機會(huì )更大。 2、當DLL被修改后，在MTS中只能將其刪除后重新注冊，因為每次重新編譯后在注冊表中對象的ID值都將重新生成。 3、從ASP中調用帶參數的類(lèi)方法和函數時(shí)，所有的變量參數一定要用相應的類(lèi)型轉換函數轉換后再傳入，否則會(huì )引起類(lèi)型不匹配錯誤，因為VBScript中只有Variant類(lèi)型，它不能自動(dòng)轉換成其它類(lèi)型。例如，有如下的函數定義: Public Function Fun1(p1 as string，p2 as integer) as integer End Function 在A(yíng)SP程序中應如下調用: <% p1=obj.property1 ‘ Property1 is a string property p2=obj.property2 ‘Property2 is an integer property a=obj.Fun1(cstr(p1)，cint(p2)) a=obj.Fun1("aaa"，10) ‘ constant parameter need not be changed %> 而下面的兩種寫(xiě)法是錯誤的: <% p1=obj.property1 ‘ Property1 is a string property p2=obj.property2 ‘Property2 is an integer property a=obj.Fun1(p1，p2) ‘ incorrect，p1 and p2 are variant variables p1=cstr(p1) p2=cint(p2) a=obj.Fun1(p1，p2) ‘ still incorrect %> 這里第二種寫(xiě)法仍然是錯誤的，即使經(jīng)過(guò)了類(lèi)型轉換，p1和p2仍然是Variant變量。在VBScript中，數據類(lèi)型和類(lèi)型轉換函數只在表達式運算中起作用，變量只有Variant一種類(lèi)型。 結束語(yǔ) 以上對多層結構的理論和實(shí)踐進(jìn)行了一番探討，希望能對您的開(kāi)發(fā)有所幫助。這里還有一個(gè)問(wèn)題，即類(lèi)和類(lèi)的成員該如何設計。這既涉及面向對象編程的理論，也需要一定的實(shí)踐經(jīng)驗。請參考相關(guān)的OOP理論書(shū)籍并在實(shí)踐中不斷總結，相信您一定能設計出自己的完美的多層結構的應用程序。 | |||
聯(lián)系客服
