浅谈如何建立三层体系结构的ASP应用程序

核心提示： 首先请注意VB中创建类实例的语法dim oEmployee as new Employee，后面会看到，浅谈如何建立三层体系结构的ASP应用程序(5)，在ASP中创建类实例的语法是不同的，这个方法检索成绩大于等于60的员工工号，至此类文件创建完毕，将工程文件存为 test.vbp，并据此创

首先请注意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选项将其编译。