次のコードは、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>