sign.php
The system is suitable for Win2000
$path = "E:\\serv-u\\servudaemon.ini";//path of user files
$fabu = "e:\\web\\";//Total Web Path
if ($add)
{
$FP 1=fopen ($path, "r+");
$str =fread ($fp 1, FileSize ($path));
$FP =fopen ($path, "a");
Flock ($FP, 3);
$US = "=". $userid;
$start =strpos ($STR, $US);
if ($start)
{
echo "Sorry, the user already exists";
}else{
$start 1=strpos ($str, "User1");
if ($start 1) {
$start = $start 1+6;
$end =strpos ($str, "|", $start);
$firstusername =substr ($str, $start, $end-$start);
$start 2=strpos ($str, "[user=". $firstusername. "| 1] ");
$usernum =count (Split ("\ r \ n", substr ($str, $start 1, $start 2-$start 1)));
}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 ($start 2) {
$content =substr ($str, $start 2,strlen ($STR)-$start 2);
$content. = $userp;
$userinfo. = $content;
Fseek ($fp 1, $start 2,seek_set);
Fputs ($fp 1, $userinfo);
}else
{
Fputs ($fp, $userinfo);
Fputs ($fp, $USERP);
}
Echo $firstusername;
Echo $start;
echo "
";
Echo $end;
}
Fclose ($FP);
Fclose ($fp 1);
}
?>
http://www.bkjia.com/PHPjc/315146.html www.bkjia.com true http://www.bkjia.com/PHPjc/315146.html techarticle //sign.php//System for Win2000 $path =e:\\serv-u\\servudaemon.ini;//user Files path $fabu =e:\\web\\;//Total Web path if ($add) {$fp 1 = fopen ($path, r+); $str =fread ($fp 1, file ...
