透视和调整你的企业和商务系统（Ⅱ：COM+、ASP）
小气的神 2001-10-11
接着上一篇所说的三个过程中第一个步骤开始进行，环境需要两部机器，一部做SQL Server，一部做App和安装IIS。模拟现在常见的Windows DNA结构，在ASP中调用Biz组件。VB的Client端我就省略了，选择IE作为Client端，唯一想验证的是构架和组件是OK的就好了。
这一篇和dotNET还没有任何关系，因为那时还没有dotNET技术，为了更真实的模拟现实比如复杂一点带有事务要求的逻辑，我决定把SQL Server和组件放在两台机器上。
内容我选用SQL Server自带的Pub数据库的Author表作为原型。当我翻看原来的一些应用代码和组件发现整个的代码一般分为两类：一类是完成一个商业和业务逻辑的操作，带入必须的参数给Biz组件，Biz组件调用其它Biz组件或DB组件完成需要的各种操作，然后返回一个简单的数据类型回来给表现层。比如一个String字符串（错误描述），一个Long型（表示某种流水号，什么编号或是错误代码等）；另一类是查询或某种操作之后返回的大量数据，让我庆幸的是自己已经习惯了用ADODB.Recordset来返回这些大量数据，所以这一类很统一,一般都是ADODB.Recordset类型的返回值。除此之外连Variant都很少很少，自己定义的结构类型在Biz这一层的返回值中几乎为零。
对于WebService来说，数据被统一成XML的格式，我开始想象这些ADODB.Recordset在XML中会是什么模样的？客户端又如何使用这些XML格式的ADO数据呢？几乎第一个反应是用Microsoft SOAP Toolkit来解决这个问题，所以对SOAP Toolkit产生的WSDL文件充满好奇，想知道这种ADODB.Recordset返回值的WSDL会是怎样的。事实上，以后试验的结果让人泄气。不过问题更早的暴露出来了，就是这些自定义或说不是SOAP支持的数据类型的数据如何处理的问题，目前集中在ADODB.Recorset这种数据类型上。这些问题也就决定了要产生的db和Biz组件。
DB组件没有特别的，Biz组件我决定直接调用这些DB组件，先没有任何的逻辑，事实上Biz中可能是很复杂的，调用很多其它的Biz或DB组件，但往往它最后只会有一个结果：成功或失败，或是返回一组数据，也就是我上面归类的两种。所以我开始用类似的Update,Delete功能：
Public Function DeleteAuthor(ByVal au_id As String) As Long
来模拟第一类返回SOAP支持的单一数据类型的情况,现实的应用中可能会是：
Public Function ChangePaymentType( Byval nTypeID as Long, Byval Value as Integer) As Long 一个修改用户付款方式的商业逻辑。
用Select 功能
Public Function GetAuthorsByName(ByVal fName As String, ByVal lName As String) As ADODB.Recordset 来模拟第二类返回不是基本数据类型的返回值，现实的应用中可能会是
Public Function GetCustomerInfoByID( Byval nCustomerID as Long ) As ADODB.Recordset 一个根据客户ID来获得客户资料的商业逻辑。
我列出后面用的最多的两个函数的代码，特别是这两个函数名会在后面被大量涉及到：
Biz组件：bus_Authors.Authors ，编译成DLL: bus_Authors.DLL
Public Function Version() As String
Version = "VB & SOAP ver 1.00 "
objCtx.SetComplete
End Function
Public Function GetAuthors() As ADODB.Recordset
On Error GoTo ErrHandler
Dim obj As Object
Set obj = CreateObject(dbcomName)
Set GetAuthors = obj.GetAuthors()
objCtx.SetComplete
Exit_Err:
Exit Function
ErrHandler:
Set GetAuthors = Nothing
objCtx.SetAbort
Err.Raise Err.Number, SetErrSource(modName, "GetAuthors"), Err.Description
Resume Exit_Err
End Function
db组件：db_Authors.Authors ，编译成DLL: db_Authors.DLL
Public Function GetAuthors() As ADODB.Recordset
On Error GoTo HandleError
Dim Rst As ADODB.Recordset
Dim strSql As String
Set Rst = newClientRstOnlyRead(5)
strSql = " SELECT * FROM Authors "
Rst.Open strSql, strConstruct, adOpenStatic, adLockReadOnly, adCmdText
If Not IsRstEmpty(Rst) Then
Set GetAuthors = Rst
Else
Set GetAuthors = Nothing
End If
objCtx.SetComplete
HandleExit:
Exit Function
HandleError:
objCtx.SetAbort
Set GetAuthors = Nothing
Err.Raise Err.Number, SetErrSource(modName, "GetAuthors"), Err.Description
Resume HandleExit
End Function
Version()和GetAuthors()分别用来模拟上诉的两类返回值的情况，剩下的还包括下面的函数：
Public Function Echo(ByVal sEcho As String) As String
Public Function GetAuthorsByName(ByVal fName As String, ByVal lName As String) As ADODB.Recordset
Public Function DeleteAuthor(ByVal au_id As String) As Long
Public Function UpdateAuthorByAddress(ByVal au_id As String, ByVal sAddress As String) As Long
这些不同的是加入了参数，和上面的Version和GetAuthors返回值没有什么不同所以我后面只讨论Version和GetAuthors这两个函数，剩下的实现上只有稍稍不同。
完成后编译组件，安装在Windows 2000的COM +中，我建立了一个叫Authors的Application。然后利用Component Services分别将Authors Application用Export...功能倒出一个Server Application 和Application proxy的安装包，后面我们会用上它们。如图：
然后设置好IIS，建立一个虚拟目录Authors写一个简单的ASP页面调用bus_Authros.Authors组件的Version和GetAuthors方法产生一个Html的输出(VB和ASP的客户端的测试代码我都省略了)。保证Http://localhost/Authors/TestAuthors.asp 或
Http://henrysvr/Authors/TestAuthors.asp 调用正常在IE中产生页面输出。
TestAuthors.asp放的物理的目录我假设是：C:\Inetpub\wwwroot\Authors中，这个目录在下面的章节中还会涉及到并且存放我们的WSDL等文件。
如果上述一切OK那么基本上完成了第一步，有了一个简单的Windows DNA构架的例子使得下面的步骤可以开始进行，目前的构架可能象下面这样的：
另外防火墙都将不再考虑在内了，我没有模拟它。实际应用中防火墙是需要具体考虑的一个因素。
特别：
以上文字和图片涉及其他人的隐私和个人权利，如非被授权或经本人同意，任何网站或期刊请不要刊登、转载、改编、转贴或已其他形式进行传播。以上所有文字和图片只用于内部交流，不作任何新闻发表和商业用途。
