六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心：是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)！

遠(yuǎn)程注冊(cè)自己的組件

發(fā)表時(shí)間：2023-08-12 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]把a(bǔ)sp程序作成dll很多好處，但是有一點(diǎn)，該dll必須注冊(cè)才能在asp中調(diào)用。如果是自己的服務(wù)器那還好，但如果是租用的虛擬服務(wù)器，就沒辦法使用了。怎樣在遠(yuǎn)程主機(jī)上注冊(cè)我們的dll呢？在服務(wù)器端使用...
 把a(bǔ)sp程序作成dll很多好處，但是有一點(diǎn)，該dll必須注冊(cè)才能在asp中調(diào)用。如果是自己的服務(wù)器那還好，但如果是租用的虛擬服務(wù)器，就沒辦法使用了。
怎樣在遠(yuǎn)程主機(jī)上注冊(cè)我們的dll呢？在服務(wù)器端使用Shell！！！

讓我們先將自己的dll文件通過ftp或http上傳到服務(wù)器上，然后作一個(gè)asp程序，調(diào)用WScript.Shell來  執(zhí)行regsvr32命令：
  Set oShell = CreateObject ("WScript.Shell")
  oShell.Run "c:\WINNT\system32\regsvr32.exe /s d:\xxx.dll", 0, False
當(dāng)然如果對(duì)方的服務(wù)器安全搞的很好的話，這個(gè)代碼也許就不能用了，但不管怎么樣，學(xué)習(xí)一下  也是好的，：）
在這里也要提醒那些出租空間的朋友，你的服務(wù)器是否限制了使用WScript.Shell的權(quán)限？還是小心為妙

完整代碼如下，保存為.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
  %>
主站蜘蛛池模板： 婷婷99精品国产97久久综合 | 亚洲免费福利视频 | 亚洲欧美日本综合 | 中文字幕在线乱码免费毛片 | 日本一本二本在线 | 日韩精品欧美亚洲高清有无 | 四虎精品8848ys一区二区 | 日本国产成人精品视频 | 求欧美精品网址 | 欧美囗交| 日本免费高清一区 | 日韩美女视频在线 | 亚洲人xx视频 | 日韩激情中文字幕 | 日韩精品在线免费观看 | 欧美一级一级做性视频 | 亚欧成人中文字幕一区 | 天天色天天射天天干 | 日韩免费一区二区三区在线 | 午夜狠狠操 | 日韩毛片久久91 | 色吧亚洲欧美另类 | 日产精品一二三四区国产 | 中文字幕欧美视频 | 日本道在线观看 | 午夜在线播放免费高清观看 | 色射啪| 五月天婷婷在线视频国产在线 | 婷婷综合五月中文字幕欧美 | 欧美一区二区久久精品 | 色网站在线看 | 性免费网站 | 欧美香蕉视频在线观看 | 五月婷婷啪啪 | 亚洲欧美在线视频观看 | 午夜亚洲一区二区福利 | 三级国产精品一区二区 | 午夜高清视频 | 热久久综合网 | 亚洲激情另类小说 | 青草青青高清影院在线观看 |