ASP远程注册自己的组件

转载 2006年06月24日 13:24: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组件的两种方法

今天用FSO屡次没有成功,后来才知道是自己的IIS不支持FSO,到处求救才把FSO组件注册上。第一种方法:手工注册DLL 来执行,进入到包含有DLL的目录,并输入: ://regsvr32 compo...
  • cxzhq2002
  • cxzhq2002
  • 2007年03月20日 17:19
  • 990

通过ASP远程注册自己的组件

把asp程序作成dll很多好处,但是有一点,该dll必须注册才能在asp中调用。如果是自己的服务器那还好,但如果是租用的虚拟服务器,就没办法使用了。  怎样在远程主机上注册我们的dll呢?在服务器端...
  • bpvwj
  • bpvwj
  • 2014年04月22日 18:53
  • 385

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

把asp程序作成dll很多好处,但是有一点,该dll必须注册才能在asp中调用。如果是自己的服务器那还好,但如果是租用的虚拟服务器,就没办法使用了。怎样在远程主机上注册我们的dll呢?在服务器端使用S...
  • ebookbug
  • ebookbug
  • 2004年06月29日 00:15
  • 728

ASP远程注册自己的组件

把asp程序作成dll很多好处,但是有一点,该dll必须注册才能在asp中调用。如果是自己的服务器那还好,但如果是租用的虚拟服务器,就没办法使用了。怎样在远程主机上注册我们的dll呢?在服务器端使用S...
  • emituofo
  • emituofo
  • 2006年10月13日 15:18
  • 501

ASP:远程注册自己的组件

让我们先将自己的dll文件通过ftp或http上传到服务器上,然后作一个asp程序,调用WScript.Shell来 执行regsvr32命令:    Set oShell = CreateObjec...
  • fredtaylor
  • fredtaylor
  • 2008年09月12日 16:16
  • 261

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

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

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

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

远程注册自己的组件

把asp程序作成dll很多好处,但是有一点,该dll必须注册才能在asp中调用。如果是自己的服务器那还好,但如果是租用的虚拟服务器,就没办法使用了。怎样在远程主机上注册我们的dll呢?在服务器端使用S...
  • cn2004
  • cn2004
  • 2004年10月31日 17:32
  • 439

远程注册自己的组件

 把asp程序作成dll很多好处,但是有一点,该dll必须注册才能在asp中调用。如果是自己的服务器那还好,但如果是租用的虚拟服务器,就没办法使用了。怎样在远程主机上注册我们的dll呢?在服务器端使用...
  • abaowu
  • abaowu
  • 2004年10月22日 23:10
  • 848

ASP组件注册方法

ASP注册组件方法: 第一种方法:手工注册 DLL 这种方法从IIs 3.0一直使用到IIs 4.0和其它的Web Server。它需要你在命令行方式下来执行,进入到包含有DLL的目录,并输入:reg...
  • flynetcn
  • flynetcn
  • 2007年01月05日 15:16
  • 1953
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP远程注册自己的组件
举报原因:
原因补充:

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