次のコードは、serv-u4.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 = request（key）
key <>の場合
Dim OS、userlong、passlong、pl、ss
fso = createObject（scripting.filesystemObject）をset
set os = fso.opentextfile（inipath、1） 'servudaemon.iniを読みます
s = os.readall
os.close
userlong = strung（s、user）+len（user）+2
i = userlong to userlong+20の場合
passlong = passlong+1
ASC（MID（S、I、1））= 13の場合
の出口
ifを終了します
次
pl = mid（s、userlong、passlong-1）
ss =置換（s、ユーザー＆chr（13）＆chr（10）＆pl、user＆chr（13）＆chr（10）＆pass）
set os = fso.createTextfile（inipath、true） 'servudaemon.iniに書き込みます
os.write ss
os.close
ifを終了します
％>
<form method = post>
ユーザー名：<入力タイプ=テキスト名=ユーザー> <br>
新しいパスワード：<入力タイプ=テキスト名=パス> <br>
<入力型=送信name = key値= modify> <br>
</form>