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

来源：互联网发布：大数据预测性分析编辑：程序博客网时间：2024/04/29 04:36
    <?php 
    //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>