利用ASP远程注册DLL的方法_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")

http://www.gaodaima.com/66142.html利用asp远程注册DLL的方法_asp

%>

<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)
    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远程注册DLL的方法_asp》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 利用ASP远程注册DLL的方法_asp

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注