Microsoft.AspNetCore.Mvc.Localization.LocalizedHtmlStringActive Users

Author : MarkJH
Subject : Active Users - Active Members Record?
Posted : 03 January 2005, 05:01
Message :

I was wondering if it was possible to change the way Active Users works so that it displays the record Active Members as well as record Active Users.
Something like this:

Active Members: 10 | Guests: 54 | Total: 64
Active Members Record: 25 | Record Set On: 14 Dec 2004 at 15:09:22
Active Users Record: 189 | Record Set On: 19 Dec 2004 at 22:54:48

How could it be done?<

Reply Author: masterao
Replied on: 03 January 2005, 14:34
Message:

That would require two additional fields in the new_config table, one for storing the record and one for storing the date. You would also need two new application variables to display the Active Member record and the date it was set on. Finally you need a new function to check if a new record is set. You should be able to create the new function by using the function which checks for a new record of Active Users (function chkAURecord).<

Reply Author: MarkJH
Replied on: 03 January 2005, 14:40
Message:

Not as easy as I'd hoped, then!<

Reply Author: masterao
Replied on: 04 January 2005, 15:03
Message:

If I had some free time I would do it for you, but unfortunately I don't have that at the moment.
Im not aware of how comfortable you are with coding, but it shouldn't be that difficult. Creating the new function can be daunting, but if you use the current function which checks for record active users as basis, it should be doable.<

Reply Author: MarkJH
Replied on: 04 January 2005, 19:04
Message:

I'm a cut-and-paste coder at best, Jan. I see what you are saying and I think I see how it can be done... without too much ASP knowledge. If I can set aside some time, I'll see if I can create the MOD. Would make a nice addition to the AU MOD, IMHO.
To be honest, I think I'm more scared about messing up the tables!<

Reply Author: masterao
Replied on: 05 January 2005, 08:33
Message:

Just remember to backup the files and add one piece of code at a time. That way you can see if a table gets out of its borders.
If you get stuck and need help, post here and I will help you.<

Reply Author: MarkJH
Replied on: 05 January 2005, 11:39
Message:

Actually, I was referring to the new_config table in the database.

<

Reply Author: masterao
Replied on: 06 January 2005, 09:21
Message:

Oh, ok

.
Adding those isn't too difficult, as you can use the alternative mod setup. The code needed would be something like this:

[INSERT] CONFIG_NEW
(C_VARIABLE,C_VALUE)#('intAUMeRecord','0')
(C_VARIABLE,C_VALUE)#('strAUMeRecordDate','11111111111111')
[END]
That assumes that you name the new variables intAUMeRecord and strAUMeRecordDate.<

Reply Author: MarkJH
Replied on: 07 January 2005, 12:18
Message:

Okay, I've got so far but I've hit a wall.
I've created a new function in inc_func_common called chkAUMeRecord:

Code:

function chkAUMeRecord(intTotalActiveMembers)
  if cInt(intTotalActiveMembers) > cInt(intAUMeRecord) then 'We have a new record!!! :)
    'Check to see if it *Really* is a record, or if Application varaibles just got reset
	strSql = "SELECT C_VALUE FROM " & strTablePrefix & "CONFIG_NEW WHERE C_VARIABLE = 'intAUMeRecord'"
	set rs = my_conn.execute (strSql)
	intOldMeRecord = cint(rs("C_VALUE"))
	rs.close
	set rs = nothing
	if cInt(intOldMeRecord) > cInt(intTotalActiveMembers) then
	  'Oopsi, this was a false alarm
	  strSql = "SELECT C_VALUE FROM " & strTablePrefix & "CONFIG_NEW WHERE C_VARIABLE = 'strAUMeRecordDate'"
	  set rs = my_conn.execute (strSql)
	  strOldMeDate = rs("C_VALUE")
	  rs.close
	  set rs = nothing
      Application(strCookieURL & "INTAUMERECORD") = intOldMeRecord
      Application(strCookieURL & "STRAUMERECORDDATE") = strOldMeDate
      intAUMeRecord = intOldMeRecord
      strAUMeRecordDate = strOldMeDate
	else
      my_conn.execute ("UPDATE " & strTablePrefix & "CONFIG_NEW SET C_VALUE = '" & cstr(intTotalActiveMembers) & "' WHERE C_VARIABLE = 'intAUMeRecord'")
      my_conn.execute ("UPDATE " & strTablePrefix & "CONFIG_NEW SET C_VALUE = '" &DateToStr(strForumTimeAdjust) & "' WHERE C_VARIABLE = 'strAUMeRecordDate'")
      intAUMeRecord = intTotalActiveMembers
      strAUMeRecordDate = DateToStr(strForumTimeAdjust)
      Application(strCookieURL & "INTAUMERECORD") = intTotalActiveMembers
      Application(strCookieURL & "STRAUMERECORDDATE") = DateToStr(strForumTimeAdjust)
	end if
  end if
end function

In inc_activeusers I've created a new variable called intTotalActiveMembers which is basically intTotalActiveUsers without adding the guests. Therefore, I've changed the code thus:

Code:

'## Ls3k - Now lets count those peskey guests.
strSql = "SELECT COUNT(AU_IP) AS CNT FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = -1"
set rs = my_conn.execute (strSql)
intActiveGuests = rs("CNT")
rs.close
set rs = nothing
intTotalActiveMembers = intTotalActiveUsers
intTotalActiveUsers = intTotalActiveUsers + intActiveGuests

I've added the call to the function to check the record:

Code:

'## Ls3k - Ok, now it is time to check the record, cause it would be cool if we broke it!
chkAUMeRecord(intTotalActiveMembers)
chkAURecord(intTotalActiveUsers)

I've added a new line of code to the stats which displays the new active members record like this:

Code:

    if (strAUAdminColor <> "" or strAUModColor <> "") AND intActiveMembers > 0 then
      response.write "                  [ <font color=""" & strAUAdminColor & """>" & fLang(strLangMOD_Ls3kAU_00050) & "</font> | <font color=""" & strAUModColor & """>" & fLang(strLangMOD_Ls3kAU_00060) & "</font> ]" & VBNewLine
    end if
    response.write "            <br>" & VBNewLine & _
                   "            " & fLang(strLangMOD_Ls3kAU_00120) & ": " & intAUMeRecord & " | " & fLang(strLangMOD_Ls3kAU_00080) & ": " & ChkDate(strAUMeRecordDate," " & fLang(strLangMOD_Ls3kAU_00090) & " ",true) & VBNewLine & _
                   "            <br>" & VBNewLine & _
                   "            " & fLang(strLangMOD_Ls3kAU_00070) & ": " & intAURecord & " | " & fLang(strLangMOD_Ls3kAU_00080) & ": " & ChkDate(strAURecordDate," " & fLang(strLangMOD_Ls3kAU_00090) & " ",true) & VBNewLine & _
                   "        </td>" & VBNewLine & _
                   "      </tr>" & VBNewLine & _
                   "      <tr>" & VBNewLine & _
                   "        <td class=""forumheader"" colspan=""" & sGetColspan(6,5) & """>" & VBNewLine & _
                   "            " & fLang(strLangMOD_Ls3kAU_00100) & ": "

(strLangMOD_Ls3kAU_00120 = "Active Members Record: ")

I've added the new variables to the CONFIG_NEW table in the database using the alternative mod setup as you suggested, and checking the database, they are being populated with the members record and time of record.
BUT, the results are not showing up on default.asp. All I'm getting is "Active Members Record: | Record Set On: "

I think I'm close but can you see where I've gone wrong?<

Reply Author: masterao
Replied on: 07 January 2005, 19:43
Message:

That seems correct. Have you added the two new fields into the database? Have you also added the variables into config.asp? I suspect that it is the last that you haven't done yet, which would explain why the new record and date isn't showing. If it isn't added in config.asp, the variables aren't populated.<

Reply Author: MarkJH
Replied on: 08 January 2005, 05:11
Message:

It was the latter.

Something still isn't right, though. It's telling me that the active members record is 87! My forum's popular but not that popular!
There must still be some kind of error somewhere...<

Reply Author: MarkJH
Replied on: 08 January 2005, 11:50
Message:

I deleted and added again the two new fields in the database. Currently, I have 6 members online and the record is also 6. Going to keep an eye on it.<

Reply Author: masterao
Replied on: 08 January 2005, 17:45
Message:

I suspected that

. Im glad you got it running.<

Reply Author: MarkJH
Replied on: 08 January 2005, 20:59
Message:

Thanks for the guidance, Jan! Yes, it looks like it's working perfectly now.

<

Reply Author: jonaldjustine
Replied on: 13 August 2005, 03:13
Message:

surely there's something wrong:

can you help me fix it?<

Reply Author: StephenD
Replied on: 13 August 2005, 03:40
Message:

Did you run audbsetup.asp in the readme file for this mod?<

Reply Author: masterao
Replied on: 13 August 2005, 20:38
Message:

jonaldjustine, I think you forgot the the code which goes into inc_header.asp, namely the ActiveUserTracker() part. Also, don't hijick this topic as your problem isn't related to this. Instead, create your own topic in Help: MOD Implementation forum next time

.<

Reply Author: jonaldjustine
Replied on: 14 August 2005, 08:09
Message:

Originally posted by masterao
jonaldjustine, I think you forgot the the code which goes into inc_header.asp, namely the ActiveUserTracker() part. Also, don't hijick this topic as your problem isn't related to this. Instead, create your own topic in Help: MOD Implementation forum next time .

Thanks for your help... It worked! There's something mispelled in that portion. Don't worry, I will post there next time...

<

Reply Author: masterao
Replied on: 15 August 2005, 10:49
Message:

Im glad you got it working, jonaldjustine.<

Active Users - Active Members Record?

Topic

Replies ...