### 在 ASP 中调用 DCOM 组件的应用技巧

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 上实现几乎无所不能的功能。