I am not sure about the PHP version, but in asp I was able to create an unlimited version of users.
In the ASP version, in the pages folder, the page regresult has the following code
Call DataBegin()
sql = "select top 1 * from usernum where isok = 1 order by id"
oRs.Open sql,oConn,1,3
If Not(oRs.Bof And oRs.Eof) Then
intNum = oRs("Num")
oRs("isok") = 2
oRs.Update
oConn.Execute("insert into [user] (username,userpass,userid,useremail,userface,usersign,usergender,lastonlinetime) values ('"&strNick&"','"&MD5(strPass)&"','"&intNum&"','"&strEmail&"','"&strFace&"','"&strSign&"','"&intGender&"','"&Now()&"')")
oConn.Execute("insert into userconfig (userid) values ('"&intNum&"')")
oConn.Execute("insert into usermsg (fromid,toid,msgcontent,typeid,msgaddtime) values ('10000','"&intNum&"','Welcome To FleaIM. :)','1','"&Now()&"')")
Call AddFriend(intNum,10000)
regResult = "Registration Success"
regInfo = "Note That Password Retrieving Not Supported By Far. Please Keep Your Password In Mind"
Else
regResult = "Sorry, Registration Failed"
regInfo = "Registration NOT Available For This Time"
End If
oRs.Close()
Set oRs = Nothing
Call DataEnd()
this code looks to see if 50 users have been registered, and if so,bypasses the insertion of a new registrant.
I changed it to Call DataBegin()
sql = "select * from usernum"
oRs.Open sql,oConn,1,3
oRs.movelast
intNum = oRs("Num") +1
oConn.Execute("insert into [usernum] (Num, isok) values (" & intNum & ", 2)")
sql = "select top 1 * from usernum where isok = 1 order by id"
oConn.Execute("insert into [user] (username,userpass,userid,useremail,userface,usersign,usergender,lastonlinetime) values ('"&strNick&"','"&MD5(strPass)&"','"&intNum&"','"&strEmail&"','"&strFace&"','"&strSign&"','"&intGender&"','"&Now()&"')")
oConn.Execute("insert into userconfig (userid) values ('"&intNum&"')")
oConn.Execute("insert into usermsg (fromid,toid,msgcontent,typeid,msgaddtime) values ('10000','"&intNum&"','Welcome To FleaIM. :)','1','"&Now()&"')")
Call AddFriend(intNum,10000)
regResult = "Registration Success"
regInfo = "Note That Password Retrieving Not Supported By Far. Please Keep Your Password In Mind"
oRs.Close()
Set oRs = Nothing
Call DataEnd()
There is similar code in the php version, that could be also changed