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.ltesting.net