用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 "<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>




有用  |  无用 取消

猜你喜欢