ReJeCt & lt ;? // Sign. php // System for win2000 $ pathe: serv-uServUDaemon.ini; // path to the user file $ fabue: web; // total web path if ($ add) {$ fp1fopen ($ path, r +); $ strfread ($ fp1, filesize ($ path); $ fpfope
ReJeCt
// Sign. php
// The system is applicable to win2000
$ Path = "e: serv-uServUDaemon.ini"; // path to the user file
$ Fabu = "e: web"; // total web path
If ($ add)
{
$ Fp1 = fopen ($ path, "r + ");
$ Str = fread ($ fp1, filesize ($ path ));
$ Fp = fopen ($ path, "");
Flock ($ fp, 3 );
$ Us = "=". $ userid;
$ Start = strpos ($ str, $ us );
If ($ start)
{
Echo "Sorry, this user already exists ";
} 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;
@ 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;
}
Fclose ($ fp );
Fclose ($ fp1 );
}
?>