php写的serv-u的web申请账号的代码 |
|
| 来源：互联网 作者：未知 发布时间：2007-12-10 |
|
|
//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; www.phperz.com
@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 "
";
//echo $end;
} www.phperz.com
fclose($fp);
fclose($fp1);
}
?>
|
|
| [收藏此页] [打印本页] [返回顶部] |
|
|
|
|
|
| |
|
|
|
|
