Sohu

网狐教程首页

实用技巧

在ASP中调用DCOM组件的应用技巧 商网络技术（上海）有限公司蒋心武

由Microsoft 公司推出的DCOM组件,全称是Distributed Component Object Model，可以在中间层进行事务逻辑服务，处理各种复杂的商务逻辑计算和演算规则。其与ASP配合，由ASP页面与DCOM组件建立连接，再通过对DCOM组件的调用，可以轻松实现某些复杂的功能。DCOM组件可利用VB、VC、DELPHI、PB和JAVA等多种语言工具来实现，所以其处理事务逻辑的能力十分强大。如果再利用MTS进行组件管理，则更加提高了性能。下面我用例子来具体说明。

1、编写DCOM组件：

假设我们想通过ASP页面来远程启动DNS服务,并且DNS服务器与Web服务器不为同一台机器。我们可以编写一个ActiveX DLL 来实现这个功能。

首先我们建立一个批处理文件StartDNS.bat，文件中写入：Net Start DNS。将文件保存在DNS服务器的一个目录下，例如C:\ManDNS\:

其次我们编写 Dll 程序如下（VB编写）:

Public Function StartDNS() As Boolean
On Error GoTo ErrHandle
Dim strReturn strReturn = Shell("C:\ManDNS\StartDNS.bat")
StartDNS = True
Exit Function ErrHandle: StartDNS = False
End Function

DLL 名称为 ManDNS 类名为 DNSClass 我们将此DLL保存在C:\ManDNS\下。

2、注册DCOM组件：

编写好DLL程序后，我们要将其注册到服务器上。

首先在DNS服务器上打开Microsoft Transaction Server，点击Computers，再点击My Computer，选中Packages Installed ，单击鼠标右键，选中New 再单击Package。会弹出Package Wizard。选中空包，取名为ManDNS，确定完成。点开此包，选中Component，单击鼠标右键，选中New --->Component。点击Import Component That Are Already，在列表框中选中ManDNS.Dll。

然后在Web服务器上打开Microsoft Transaction Server，点击Computers，点中Remote Computer，选中DNS服务器上的ManDNS Component，单击OK，将其加入Web服务器。

3、调用DCOM组件：

编写StartDNS.asp，并在其中调用注册好的DCOM组件，程序如下：

%@ LANGUAGE="VBSCRIPT"% 

          

          <Html>

          

          <head>

          

          <title>

          

          Start DNS Page

          

          </title>

          

          <head>

          

          <body>

          

          <h1> 单击按纽启动DNS服务 </h1>

          

          %>

          if Request.form(“click”) <> “” then

          dim StartDNS ,RenStart 

          set StartDNS = Server.CreateObject(“StartDNS.DNSClass”) 

          RenStart = StartDNS. StartDNS 

          If RenStart then

          Response.Write “DNS服务启动成功。”

          Else

          Response.Write “DNS服务启动失败。” 

          End if 

          end if

          %>

          

          <Form action = “StartDNS.asp” method = “Post”>

          

          <Input type = submit name = submit value = “Start DNS”>

          

          <Input type = hidden name = click value = “click”>

          

          </Form>

          

          </Body>

          

          </HTML>

对于程序员来说，可以利用自己熟悉的编程工具来编写ActiveX Dll，用MTS进行管理，并用ASP程序将各种组件合理的搭建成系统，可以在Internet上实现几乎无所不能的功能.

相关文章：Active Server Pages简介，ASP应用实例六则

本文由中国计算机世界提供。

			<script language=JavaScript1.1 src=http://netads.sohu.com/js.ng/Params.richmedia=yes&Site=SOHU&Channel=it> </script> <noscript> <a href=http://netads.sohu.com/click.ng/Params.richmedia=yes&Site=SOHU&Channel=it> <img src=http://netads.sohu.com/image.ng/Params.richmedia=yes&Site=SOHU&Channel=it></a></noscript>

首页- 邮件- 社区- 短信- 新闻- 体育- 财经- 汽车- 房产家居- ＩＴ- 游戏- 生活- 健康- 女人- 旅游- 教育- 求职- 娱乐- 动漫- 校园

新闻资讯 - 实用手册 - 网狐教程 - 硬件行情 - 软件精品廊 - 手机时尚 - 网络倾情 - 热点追踪 - 免费大全 - IT写作论坛