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

时间:2021-08-22 14:17:28
  1. <%  
  2.  
  3. ' |###########################|  
  4. ' | 网海求生者QQ:54883661 |  
  5. ' | mail:*ngke5155@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>