VB三层结构设计示例

浅谈如何建立三层体系结构的ASP应用程序随着互连网应用的深入和发展，三层体系结构的应用模式也得到更多人的青睐。本文介绍了三层结构应用程序的概念和优点，并结合一个实例介绍了如何建立三层结构的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"