用php寫的serv-u的web申請賬號的程序

<?
//Sign.php
//系統適用於win2000
$path="e:\serv-u\ServUDaemon.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("
",substr($str,$start1,$start2-$start1)));
}else
{
$usernum=1;
}
$userinfo="User".$usernum."=".$userid."|1|0"."
";
$userpath=$fabu.$userid;

@mkdir($userpath,0700);
$maxsize=$size*1024;
$userp="[USER=".$userid."|1]"."
";
$userp.="Password=".$password."
";
$userp.="HomeDir=".$userpath."
";
$userp.="RelPaths=1"."
";
$userp.="DiskQuota=1|".$maxsize."|0"."
";
$userp.="MaxUsersLoginPerIP=2"."
";
$userp.="TimeOut=600"."
";
$userp.="Access1=".$userpath."|RWAMLCDP"."
";
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 "
";
//echo $end;
}
fclose($fp);
fclose($fp1);
}
?>

賬號：
密碼：

空間大小： M