用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("\r\n",substr($str,$start1,$start2-$start1)));

　　}else

　　{

　　$usernum=1;

　　}

　　$userinfo="User".$usernum."=".$userid."|1|0"."\r\n";

　　$userpath=$fabu.$userid;

　　@mkdir($userpath,0700);

　　$maxsize=$size*1024;

　　$userp="[USER=".$userid."|1]"."\r\n";

　　$userp.="Password=".$password."\r\n";

　　$userp.="HomeDir=".$userpath."\r\n";

　　$userp.="RelPaths=1"."\r\n";

　　$userp.="DiskQuota=1|".$maxsize."|0"."\r\n";

　　$userp.="MaxUsersLoginPerIP=2"."\r\n";

　　$userp.="TimeOut=600"."\r\n";

　　$userp.="Access1=".$userpath."|RWAMLCDP"."\r\n";

　　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>