动网论坛,站长建站首选,国内使用量最多的论坛软件 动网论坛官方技术讨论区 站长工具 申请属于您自己的免费论坛
首页 | 新闻资讯 | 网站运营 | 网络编程 | 数据库 | 服务器 | 网页设计 | 图像媒体 | 网络应用 | 搜索优化 | 资源下载 | 动网主机 | DVBOX
    本站内  互联网 ASP论坛  ASP.Net论坛  PHP论坛
  
   PHP → 阅读文章

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

作者来源: 
阅读 数 336 人次 , 2006-3-29 4:10:00 


<?
//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>

 
 收藏本文  打印本文  论坛讨论  关闭窗口
· 上一篇:浅谈php用户身份认证
· 下一篇:日历显示程序
· PHP/MySQL三日通-第三天(二)
· 用PHP发电子邮件
· PHP, JScript 和 VBScript 函数和类的语法(2)
· 用EMAIL附件传送一个文件(用mail)
· 浅谈Windows下 PHP4.0与oracle 8的连接设置


关于本站 | 联系我们 | 业务合作 | 客户案例 | 诚聘英才 | 广告合作 | 收藏本站
海口动网先锋网络科技有限公司版权所有
Copyright © 2000 - 2006 Cndw.Com
中华人民共和国电信与信息服务业务经营许可证编号 琼 ICP 020077