您好,欢迎访问一九零五行业门户网

用php写的serv-u的web申请账号的程序,很烂,供参考,修改和删除请自己做了!这是个初稿,请多提意见,

serv-u|web|参考|程序
//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
;
//echo $end;
}
fclose($fp);
fclose($fp1);
}
?>
账号:
密码:
空间大小: m
其它类似信息

推荐信息