ASP学习:远程注册自己的组件

原创 2005年04月24日 21:48:00
把asp程序作成dll很多好处,但是有一点,该dll必须注册才能在asp中调用。如果是自己的服务器那还好,但如果是租用的虚拟服务器,就没办法使用了。 
怎样在远程主机上注册我们的dll呢?在服务器端使用Shell!!! 

让我们先将自己的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> 

<BODY> 
<FORM NAME="regForm" METHOD="POST"> 
<TABLE BORDER=0 CELLSPACING=6 CELLPADDING=6 MARGINWIDTH=6> 
<TR> 
<TD VALIGN=TOP> 
<FIELDSET ID=FS1 NAME=FS1 CLASS=FS> 
<LEGEND CLASS=Legend>Regsvr Functions</LEGEND> 
Insert Path to DLL Directory<BR> 
<INPUT TYPE=TEXT NAME="frmFolderPath" VALUE="<%=frmFolderPath%>"><BR> 
<INPUT TYPE=SUBMIT NAME=btnFileList VALUE="Build File List"><BR> 
<% 
IF Request.Form("btnFileList") <> "" OR btnREG <> "" Then 
Set RegisterFiles = New clsRegister 
RegisterFiles.EchoB("<B>Select File</B>") 
Call RegisterFiles.init(frmFolderPath) 
RegisterFiles.EchoB("<BR><INPUT TYPE=SUBMIT NAME=btnREG VALUE=" & Chr(34) _ 
& "REG/UNREG" & Chr(34) & ">") 
IF Request.Form("btnREG") <> "" Then 
Call RegisterFiles.Register(frmFilePath, frmMethod) 
End IF 
Set RegisterFiles = Nothing 
End IF 
%> 
</FIELDSET> 
</TD> 
</TR> 
</TABLE> 
</FORM> 
</BODY> 
</HTML> 
<% 
Class clsRegister 

Private m_oFS 

Public Property Let oFS(objOFS) 
m_oFS = objOFS 
End Property 

Public Property Get oFS() 
Set oFS = Server.CreateObject("Scripting.FileSystemObject") 
End Property 

Sub init(strRoot) 'Root to Search (c:, d:, e:) 
Dim oDrive, oRootDir 
IF oFS.FolderExists(strRoot) Then 
IF Len(strRoot) < 3 Then 'Must Be a Drive 
Set oDrive = oFS.GetDrive(strRoot) 
Set oRootDir = oDrive.RootFolder 
Else 
Set oRootDir = oFS.GetFolder(strRoot) 
End IF 
Else 
EchoB("<B>Folder ( " & strRoot & " ) Not Found.") 
Exit Sub 
End IF 
setRoot = oRootDir 

Echo("<SELECT NAME=" & Chr(34) & "frmDllPath" & Chr(34) & ">") 
Call getAllDlls(oRootDir) 
EchoB("</SELECT>") 
BuildOptions 
End Sub 

Sub getAllDlls(oParentFolder) '通过fso列举所有的dll和ocx文件 
Dim oSubFolders, oFile, oFiles 
Set oSubFolders = oParentFolder.SubFolders 
Set opFiles = oParentFolder.Files 

For Each oFile in opFiles 
IF Right(lCase(oFile.Name), 4) = ".dll" OR Right(lCase(oFile.Name), 4) = ".ocx" Then 
Echo("<OPTION VALUE=" & Chr(34) & oFile.Path & Chr(34) & ">" _ 
& oFile.Name & "</Option>") 
End IF 
Next 

On Error Resume Next 
For Each oFolder In oSubFolders 'Iterate All Folders in Drive 
Set oFiles = oFolder.Files 
For Each oFile in oFiles 
IF Right(lCase(oFile.Name), 4) = ".dll" OR Right(lCase(oFile.Name), 4) = ".ocx" Then 
Echo("<OPTION VALUE=" & Chr(34) & oFile.Path & Chr(34) & ">" _ 
& oFile.Name & "</Option>") 
End IF 
Next 
Call getAllDlls(oFolder) 
Next 
On Error GoTo 0 
End Sub 

Sub Register(strFilePath, regMethod) 
Dim theFile, strFile, oShell, exitcode 
Set theFile = oFS.GetFile(strFilePath) 
strFile = theFile.Path 

Set oShell = CreateObject ("WScript.Shell") 

IF regMethod = "REG" Then 'Register 
oShell.Run "c:/WINNT/system32/regsvr32.exe /s " & strFile, 0, False 
exitcode = oShell.Run("c:/WINNT/system32/regsvr32.exe /s " & strFile, 0, False) 
EchoB("regsvr32.exe exitcode = " & exitcode) 
Else 'unRegister 
oShell.Run "c:/WINNT/system32/regsvr32.exe /u/s " & strFile, 0, False 
exitcode = oShell.Run("c:/WINNT/system32/regsvr32.exe /u/s " & strFile, 0, False) 
EchoB("regsvr32.exe exitcode = " & exitcode) 
End IF 

Cleanup oShell 
End Sub 

Sub BuildOptions 
EchoB("Register: <INPUT TYPE=RADIO NAME=frmMethod VALUE=REG CHECKED>") 
EchoB("unRegister: <INPUT TYPE=RADIO NAME=frmMethod VALUE=UNREG>") 
End Sub 

Function Echo(str) 
Echo = Response.Write(str & vbCrLf) 
End Function 

Function EchoB(str) 
EchoB = Response.Write(str & "<BR>" & vbCrLf) 
End Function 

Sub Cleanup(obj) 
If isObject(obj) Then 
Set obj = Nothing 
End IF 
End Sub 

Sub Class_Terminate() 
Cleanup oFS 
End Sub 
End Class 
%>

Asp免费FTP组件的用法 Xinsoft,2003-11-02 14:34:55 组件:AspFTP 2.0 下载:http://218.30.124.42/resource/soft/aspftp.dll 下载以后在服务器上注册,这个不用我多说了

Asp免费FTP组件的用法 Xinsoft,2003-11-02 14:34:55组件:AspFTP 2.0下载:http://218.30.124.42/resource/soft/aspftp.d...

AspUploadv3.0asp上传组件和注册机

  • 2010年01月29日 10:42
  • 1.26MB
  • 下载

POX学习笔记之组件注册与事件

一、组件向core注册的方法 1. core.register("core中组件的名字",组件类的实例):创建实例时参数已经传入 2. core.registerNew(组件类名,参数...):若要修...

asp.net 2.0中使用OWC组件学习小结

asp.net 2.0中,要显示图型的话,可以用ms office 2003的owc组件,可以十分方便地看到图表,在工程中,首先添加microsoft office web components 11...

从零开始学习 ASP.NET MVC 1.0 (二) 识别URL的Routing组件

一.摘要 本篇文章从基础到深入的介绍ASP.NET MVC中的Routing组件. Routing翻译过来是"路由选择", 负责ASP.NET MVC的第一个工作:识别URL, 将一个Url请求...
  • fsyhhgf
  • fsyhhgf
  • 2013年12月17日 21:59
  • 311

MVC学习笔记-理解ASP.NET MVC的DependencyResolver组件

MVC学习笔记-理解ASP.NET MVC的DependencyResolver组件DependencyResolver是MVC中一个重要的组件,从名字可以看出,它负责依赖对象的解析,可以说它是MVC...

asp用户注册修改学习实例

  • 2009年01月16日 10:33
  • 107KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP学习:远程注册自己的组件
举报原因:
原因补充:

(最多只允许输入30个字)