用php写的serv-u的web申请账号的程序

<?//Sign.php//系统适用于win2000$path='e:serv-uServUDaemon.ini';//用户文件的路径$fabu='e:web';//总web路径if($add){$fp1=fopen($path,'r+');$str=fread($fp1, filesize($path));$fp=fopen($path,'a');flock($fp,3);$us='='.$userid;$start=strpos($str,$us);if($start) {echo '对不起，该用户已经存在'; }else{$start1=strpos($str,'User1');if($start1){$start=$start1+6;$end=strpos($str,'|',$start);$firstusername=substr($str,$start,$end-$start);$start2=strpos($str,'[USER='.$firstusername.'|1]');$usernum=count(split('rn',substr($str,$start1,$start2-$start1))); }else {$usernum=1; }$userinfo='User'.$usernum.'='.$userid.'|1|0'.'rn';$userpath=$fabu.$userid;@mkdir($userpath,0700);$maxsize=$size*1024;$userp='[USER='.$userid.'|1]'.'rn';$userp.='Password='.$password.'rn';$userp.='HomeDir='.$userpath.'rn';$userp.='RelPaths=1'.'rn';$userp.='DiskQuota=1|'.$maxsize.'|0'.'rn';$userp.='MaxUsersLoginPerIP=2'.'rn';$userp.='TimeOut=600'.'rn';$userp.='Access1='.$userpath.'|RWAMLCDP'.'rn';

if($start2){$content=substr($str,$start2,strlen($str)-$start2);$content.=$userp;$userinfo.=$content; fseek($fp1,$start2,SEEK_SET); fputs($fp1,$userinfo);}else {fputs($fp,$userinfo);fputs($fp,$userp); }//echo $firstusername;//echo $start;//echo '<br>';//echo $end;

}fclose($fp);fclose($fp1);}?>

<FORM METHOD=POST ACTION='sign.php'>账号：<INPUT TYPE='text' NAME='userid' size=10 maxlength=20 ><br>密码：<INPUT TYPE='password' name='password' size=10 maxlength=20 ><br>空间大小：<INPUT TYPE='text' NAME='size' size=4 maxlength=4> M<br><INPUT TYPE='submit' name='add' value='增加用户'></FORM>