在ASP中調用DCOM組件的應用技巧

來源:互聯網
上載者:User

在ASP中調用DCOM組件的應用技巧

  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上實現幾乎無所不能的功能。



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。