在线修改Serv-U 4.2用户密码

1. <%  
2.  
3. ' |###########################|  
4. ' | 网海求生者QQ：54883661 |  
5. ' | mail:wuyingke5155@163.com |  
6. ' |###########################|  
7.  
8. inipath="D:\Program Files\Serv-U\ServUDaemon.ini" '设置ServUDaemon.ini文件路径  
9. user="[USER="&request("user")&"|1]"  
10. pass="Password="&request("pass")  
11. key=request("key")  
12. if key<>"" then  
13. dim os,userlong,passlong,pl,s,ss  
14. Set fso=CreateObject("scripting.FileSystemObject")  
15. set os=fso.opentextfile(inipath,1) '读取ServUDaemon.ini  
16. s=os.readall  
17. os.close  
18.  
19. userlong=instr(s,user)+len(user)+2  
20. for i=userlong to userlong+20  
21. passlong=passlong+1  
22. if asc(mid(s,i,1))=13 then  
23. exit for  
24. end if  
25. next  
26.  
27. pl=mid(s,userlong,passlong-1)  
28. ss=Replace(s,user&chr(13)&chr(10)&pl,user&chr(13)&chr(10)&pass)  
29. set os=fso.createtextfile(inipath,true) '写入ServUDaemon.ini  
30. os.write ss  
31. os.close  
32. end if  
33. %>  
34. <form method="post">  
35. 用户名：<input type="text" name="user"><br>  
36. 新密码：<input type="text" name="pass"><br>  
37. <input type="submit" name="key" value="修改"><br>  
38. </form>