RSS订阅
PHP程序员站--WWW.PHPERZ.COM  
网站地图
高级搜索
收藏本站

 当前位置:主页 >> PHP基础 >> 基础文章 >> 文章内容
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; php程序员站
@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;


        } php程序员之家
fclose($fp);
fclose($fp1);
}
?>
 
 相关文章
 
发表评论
全部评论(0条)
 
 站内搜索
 热门搜索 基础  mysql  url  adodb
高级搜索 网站地图 站长工具 IP查询 收藏本站
 热点文章
 随机推荐
网站首页 | 网站地图 | 高级搜索 | RSS订阅
PHP程序员站 Copyright © 2007,PHPERZ.COM All Rights Reserved 粤ICP备07503606号 联系站长