inipath="D:/Program Files/Serv-U/ServUDaemon.ini" '設(shè)置ServUDaemon.ini文件路徑 user="[USER="&request("user")&"|1]" pass="Password="&request("pass") key=request("key") if key<>"" then dim os,userlong,passlong,pl,s,ss Set fso=CreateObject("scripting.FileSystemObject") set 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 if asc(mid(s,i,1))=13 then exit for end if next
pl=mid(s,userlong,passlong-1) ss=Replace(s,user&chr(13)&chr(10)&pl,user&chr(13)&chr(10)&pass) set os=fso.createtextfile(inipath,true) '寫入ServUDaemon.ini os.write ss os.close end if %> <form method="post"> 用戶名：<input type="text" name="user"><br> 新密碼：<input type="text" name="pass"><br> <input type="submit" name="key" value="修改"><br> </form>
