php+serv-u的空间申请程序

pp111

  第一次来金光,送给大家一个主页申请程序
程序建立在php+serv-u之上,系统适用于win2000以上
后台控制页面
<?
//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(" ",substr($str,$start1,$start2-$start1)));
       }else
       {
$usernum=1;
       }
$userinfo="User".$usernum."=".$userid."|1|0"." ";
$userpath=$fabu.$userid;
@mkdir($userpath,0700);
$maxsize=$size*1024;
$userp="[USER=".$userid."|1]"." ";
$userp.=&quotassword=".$password." ";
$userp.="HomeDir=".$userpath." ";
$userp.="RelPaths=1"." ";
$userp.="DiskQuota=1|".$maxsize."|0"." ";
$userp.="MaxUsersLoginPerIP=2"." ";
$userp.="TimeOut=600"." ";
$userp.="Access1=".$userpath."|RWAMLCDP"." ";

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>
另外,我的美工实在太@$$%^&&**(&%#$#@,呵呵,有谁有兴趣可以将注册页面美化后给大家提供.

azkux

怎么用?不懂.

bbs2006

难道要做好 上床？

lgp7226

这个是PHP程序吗？
我不懂啊！

tyhy

支持一下。

pk123

十个人七个是不明白的。HOHOHOHOHO


帮你顶。

1cc

好象没多大用，要自己电脑吧

kaowin

只能用要ＷＩＮ主机上？？