|
ASP技术 |
Txlist |
|
 本类阅读TOP10 |
|
Txtop
|
|
|
|
ASP学习:远程注册自己的组件(1) |
|
|
|
作者：未知 来源：未知 加入时间：2004-8-29 宇宙软件下载 |
让我们先将自己的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＞
|
|
相关文章：相关软件： |
|