也许你会说，为何不把集合声明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做如下修改：
| 以下为引用的内容： ...... |
然后把DLL重新编译，注册就可以了，ASP程序完全不必修改。
四.一些说明和注意事项
1. 由于这个例子比较简单，在Employee类中可以没有Create方法，而在Employees类中将员工的所有信息(工号，姓名，性别，成绩)都读出来并将其赋给Employee对象对应的属性。但在实际应用中，当Employee对象的属性增多，或表的数量增多，表之间关系变复杂时，还是本文所示的方法更有效，代码重用的机会更大。
2. 当DLL被修改后，在MTS中只能将其删除后重新注册，因为每次重新编译后在注册表中对象的ID值都将重新生成。
3. 从ASP中调用带参数的类方法和函数时，所有的变量参数一定要用相应的类型转换函数转换后再传入，否则会引起类型不匹配错误，因为VBScript中只有Variant类型，它不能自动转换成其它类型。例如，有如下的函数定义:
| 以下为引用的内容：
|
而下面的两种写法是错误的:
| 以下为引用的内容： <% 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理论书籍并在实践中不断总结，相信您一定能设计出自己的完美的多层结构的应用程序。
.
分页: [1] [2]
TAG: ASP 概念 结构 应用