用php寫的serv-u的web申請帳號的程式，很爛，供參考，修改和刪除

簡介：這是用php寫的serv-u的web申請帳號的程式，很爛，供參考，修改和刪除的詳細頁面，介紹了和php,有關的知識、技巧、經驗，和一些php源碼等。

class='pingjiaF' frameborder='0' src='http://biancheng.dnbcw.info/pingjia.php?id=327690' scrolling='no'>

<?
//Sign.php
//系統適用於win2000
//power by devchina.com,http://www.2oa.net
$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>

愛J2EE關注Java邁克爾傑克遜視頻站JSON線上工具

http://biancheng.dnbcw.info/php/327690.html pageNo:12