本文介紹了三層結構應用程序的概念和優點，並結合一個實例介紹了如何建立三層結構的ASP應用程序。
一、兩層結構的ASP應用有何缺點
在Browser/Server 應用程序開發領域，微軟公司的IIS/ASP以其強大的功能，良好的擴展能力，及與其它微軟產品的一致性，迅速地流行起來。它能使一個具有VB/VC經驗的程序員，很快地成為一個Web程序員，開發出看上去非常專業的應用。但是，ASP有一個天生的缺點，就是ASP代碼和Html代碼是混在一起的，ASP程序員既需要考慮與數據庫打交道，需要關心如何與HTML配合，有時還需要用ASP直接生成Html代碼。其結果是，當程序邏輯足夠復雜時，.asp源文件非常長；而且，無論客戶提出用戶界面的改變，還是商業邏輯的改變(比如，在考試系統中，"合格"的標准可能從達到60分就算合格，改為進入前100名才算合格)，都需要對.ASP文件進行改動，而商業邏輯的改變，很可能需要改動很多文件。
二、三層結構的概念
在傳統的ClIEnt / Server應用中，也存在著上述同樣的問題，多層結構的應用正是在對C/S 結構的總結基礎上產生的，並且也已經擴展到了B/S應用開發領域。 即將應用劃分為三層(可以有更多層，但三層最常見): 用戶界面層，商業邏輯層，數據庫層。 用戶界面層負責處理用戶的輸入和向用戶的輸出，但並不負責解釋其含義(出於效率的考慮，它可能在向上傳輸用戶輸入前進行合法性驗證)，這一層通常用前端工具(VB，VC，ASP等)開發;商業邏輯層是上下兩層的紐帶，它建立實際的數據庫連接，根據用戶的請求生成SQL語句檢索或更新數據庫，並把結果返回給客戶端，這一層通常以動態鏈接庫的形式存在並注冊到服務器的注冊簿(Registry)中，它與客戶端通訊的接口符合某一特定的組件標准(如COM，CORBA)，可以用任何支持這種標准的工具開發;數據庫層負責實際的數據存儲和檢索。 有了這樣的結構，上面的問題迎刃而解:還是以考試系統中的合格標准為例，在客戶端所有需要顯示合格人員名單的地方，調用這樣一個函數GetQualifIEdList，至於這個函數如何編寫，如何與數據庫打交道，以至訪問的是何種數據庫都與其無關(你一定有過這樣的經歷，在一種數據庫系統上運行得很好的SQL語句，有時換到另一種數據庫系統上必須加以修改); 在中間層DLL中實現這個GetQualifIEdList函數，如果用戶對"合格"的定義變了，只需要修改這個函數就可以了，只要此函數的入口參數和返回內容不變，在客戶端不需作任何改動。在這裡，我們看到了面向對象編程的特性之一封裝性的優點，而這一點在開發大型應用時尤其有用--我們可以把開發人員分成兩組，一組負責開發界面層，另一組負責開發商業邏輯層，雙方只要按照事先商定的函數接口，並行地開發就可以，而不必向從前那樣，後面的工作必須等前面的工作完成後才能開始。當然，這樣的開發模式需要很好的項目協調和文檔作支持。
你也許會問，如果我把這些函數些在一個單獨的文件中，再在需要調用的地方把它包含進來，不是同樣能達到目的嗎? 第一，這種方法效率不高，無論你把這些函數分散到多少個文件中，當你需要調用其中一個時，總會包含進一些實際上並不需要的函數，這無疑加重了服務器的負擔，對服務器性能要求較高的Web應用尤其如此。 而DLL只在需要時才調入內存且只調入需要的函數，並且多個應用程序實例可以共享同一個DLL實例；第二，設想一個員工，有20個屬性(工號，姓名，年齡，性別......)，現在給定某工號，要求返回此員工所有信息。此時如果單純用函數，只能定義20個全局變量，在函數中改變這些變量值，或者定義一個有20個傳參(by reference)參數的函數。顯然，第一種方法很麻煩而一旦增加一個屬性後一種方法就需要更改函數接口。而在一個對象裡，既包含成員方法(即函數和過程)，也包括成員屬性。如果我們采用對象的方法，則在函數中只需要改變對象的屬性，在函數外可以直接引用改變了的對象屬性值。 這種方法有些類似第一種方法，但1.屬性值無需在函數外逐一說明；2.這些屬性值只屬於對象，與對象無關的代碼不會無意地改變屬性值；3.一旦對象被釋放，這些值會被一起釋放。
三、如何開發三層結構的ASP應用程序
ASP具有良好的擴充性，我們訪問數據庫時，采用的時ADO對象，訪問文件時，采用的是文件系統對象(fso)，其實這時程序已經是三層結構的應用程序了，只不過由於是利用內置的對象而為意識到罷了。這些對象都遵循COM/ActiveX接口，因此我們自己開發的對象也要遵循這個接口。下面，我們就以上文提到的"合格"標准為例，演示如何創建自己的三層結構的ASP應用。
1。在數據庫系統中建立如下數據庫表:
Employee: EMPLID char (5) not null，
Name char (10) not null，
Gender char (1) not null，
Score int not null
此表存儲員工信息和考試成績，為簡單起見，這裡只包含工號，姓名和性別三項，並且只有一門考試，EMPLID為主鍵。
2。建立動態鏈接庫
啟動VB(這裡以VB為例，你可以用你喜歡的任何支持ActiveX接口的開發工具開發)，新建一工程，工程類型為ActiveX DLL。在工程中新建一個類，取名為Employee。你可以Class Builder可視化的向類中填加屬性和方法，也可以直接手工編輯。首先填加EMPLID屬性如下：
PRivate msEMPLID as string
Property Let EMPLID(sEMPLID as string)
msEMPLID=sEMPLID
End Property
Property Get EMPLID() as string
EMPLID=msEMPLID
End Property
一般地講，每一個屬性都應該有Property Let和Property Get兩個方法，它們分別當向屬性賦值和讀取屬性值時被調用。如果某個屬性只被賦值而從不被讀取(這種情況多發生在對應數據庫表的主鍵的屬性上)，則Property Get方法可以省略。Property Let方法不能省略。你可以仿照上面的程序再建立Name，Gender和Score三個屬性。然後創建如下方法:
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創建Employee對象，注意數據庫中的值是賦給三個私有變量，而不是直接賦值給屬性，如果你單步調試就會發現，給msEMPLID賦值會調用Property Let EMPLID，也就是給屬性賦值。
下面我們再創建一個類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中創建類實例的語法dim oEmployee as new Employee，後面會看到，在ASP中創建類實例的語法是不同的。這個方法檢索成績大於等於60的員工工號，並據此創建一個Employee對象，再將此對象加入私有的集合對象中。下面兩個函數遍歷集合中的元素:
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
也許你會說，為何不把集合聲明Public，這樣在ASP中不是可以直接引用嗎？確實，這樣也行得通，編程實現起來也更簡單些，但是，這樣做破壞了封裝性原則。因為數據以何格式存儲完全是商業邏輯層的事，與用戶界面層無關，假設有一天你因為每種原因放棄了用集合來存儲數據的設計，而改用數組或記錄集(Recordset)來存儲，那你只需要修改GetFirst和GetNext兩個函數，用戶界面層完全無需修改。
至此類文件創建完畢，將工程文件存為 test.vbp，選File菜單下的Make test.dll選項將其編譯。
3.注冊動態鏈接庫
啟動Web Server 上的Microsoft Transaction Server (Start--Windows NT Optionpack4--Internet Information Server--Internet Service Manager)，展開Microsoft Transaction Server--Computer--My Computer--Package Installed，點鼠標右鍵選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會發現DLL中有兩個類Employee和Employees。至此DLL注冊完畢。
4.編寫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>
注意在ASP中創建類實例的語法set oEmployees=server.createobject("Test.Employees")，其中Test是DLL的名字，Employees是類的名字; 當然，如果一個函數的返回值是一個對象，類似set oEmployee=oEmployees.GetFirst()這樣的語法也是可以的。
至此，一個完整的三層結構的應用程序已經完成了，讓我們看以下，如果把"合格"的定義改為:只有成績進入前100名才算合格，程序需要做那些修改。事實上，如果你的數據庫系統是SQL Server，你只需把SQL語句改為:
sql="select top 100 EMPLID from Employee order by Score desc" 就已經可以了，即使為了跨數據庫系統的兼容性，我們也只需要對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程序完全不必修改。
四.一些說明和注意事項
1. 由於這個例子比較簡單，在Employee類中可以沒有Create方法，而在Employees類中將員工的所有信息(工號，姓名，性別，成績)都讀出來並將其賦給Employee對象對應的屬性。但在實際應用中，當Employee對象的屬性增多，或表的數量增多，表之間關系變復雜時，還是本文所示的方法更有效，代碼重用的機會更大。
2. 當DLL被修改後，在MTS中只能將其刪除後重新注冊，因為每次重新編譯後在注冊表中對象的ID值都將重新生成。
3. 從ASP中調用帶參數的類方法和函數時，所有的變量參數一定要用相應的類型轉換函數轉換後再傳入，否則會引起類型不匹配錯誤，因為VBScript中只有Variant類型，它不能自動轉換成其它類型。例如，有如下的函數定義:
Public Function Fun1(p1 as string，p2 as integer) as integer
End Function
在ASP程序中應如下調用:
<%
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
%>
而下面的兩種寫法是錯誤的:
<%
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
%>
這裡第二種寫法仍然是錯誤的，即使經過了類型轉換，p1和p2仍然是Variant變量。在VBScript中，數據類型和類型轉換函數只在表達式運算中起作用，變量只有Variant一種類型。
結束語
以上對多層結構的理論和實踐進行了一番探討，希望能對您的開發有所幫助。這裡還有一個問題，即類和類的成員該如何設計。這既涉及面向對象編程的理論，也需要一定的實踐經驗。請參考相關的OOP理論書籍並在實踐中不斷總結，相信您一定能設計出自己的完美的多層結構的應用程序。
