ASP學習:遠程注冊自己的組件

　　讓我們先將自己的dll文件通過ftp或http上傳到服務器上，然后作一個asp程序，調用WScript.Shell來 執行regsvr32命令：

　　 Set oShell = CreateObject ("WScript.Shell")

　　 oShell.Run "c:\WINNT\system32\regsvr32.exe /s d:\xxx.dll", 0, False

　　 當然如果對方的服務器安全搞的很好的話，這個代碼也許就不能用了，但不管怎么樣，學習一下 也是好的，：）

　　 在這里也要提醒那些出租空間的朋友，你的服務器是否限制了使用WScript.Shell的權限？還是小心為妙　　

　　 完整代碼如下，保存為.asp即可使用：　　

　　 ＜% Response.Buffer = True %＞

　　 ＜% Server.ScriptTimeout = 500

　　 Dim frmFolderPath, frmFilePath　　

　　 frmFolderPath = Request.Form("frmFolderPath")

　　 frmFilePath = Request.Form("frmDllPath")

　　 frmMethod = Request.Form("frmMethod")

　　 btnREG = Request.Form("btnREG")

　　 %＞　

　　 ＜HTML＞

　　 ＜HEAD＞

　　 ＜TITLE＞Regsvr32.asp＜/TITLE＞

　　 ＜STYLE TYPE="TEXT/CSS"＞

　　 .Legend {FONT-FAMILY: veranda; FONT-SIZE: 14px; FONT-WEIGHT: bold; COLOR: blue}

　　 .FS {FONT-FAMILY: veranda; FONT-SIZE: 12px; BORDER-WIDTH: 4px; BORDER-COLOR: green;

　　 MARGIN-LEFT:2px; MARGIN-RIGHT:2px}

　　 TD {MARGIN-LEFT:6px; MARGIN-RIGHT:6px; PADDING-LEFT:12px; PADDING-RIGHT:12px}

　　 ＜/STYLE＞

　　 ＜/HEAD＞　　

　　 　

第 [1] [2] [3] 頁 下一頁

原文轉自：http://www.anti-gravitydesign.com