Microsoft.AspNetCore.Mvc.Localization.LocalizedHtmlStringDifferent Username Styles for Admins and Mods

Author : cripto9t
Subject : Different Username Styles for Admins and Mods
Posted : 04 May 2008, 13:05
Message :

Not sure what to call this mod, so for now it's the "User Class Mod". It's not very descriptive so if you have a better idea for a name, let me know.
What this mod does: Admin and Moderators Usernames are displayed using a different css style, i.e. (font color, weight, whatever), than normal users.
This mod adds a couple of new css classes, 1 for admins and 1 for mods, to the css in "inc_header.asp". A function then determines which class to use depending on the the members forum rank.
Download here May have to Right Click and Save
Files I've modified to use this.

default.asp
forum.asp
topic.asp
active.asp
members.asp

If I've missed any let me know.<

Reply Author: Carefree
Replied on: 04 May 2008, 14:54
Message:

You missed a marker in forum.asp:

In your modified version, after line 455 (tM_NAME = 13), you need a marker line to identify the next line belongs to your changes.
In forum.asp; lines 543-545 need to be changed (the remark will not allow continuing):

Code:


		Response.Write	"                </td>" & vbNewLine
'##USER_CLASS ## CHANGE line below ###################################################################################
		Response.Write	"                <td bgcolor=""" & CColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""" & GetMembersColor(Topic_MLevel) & """>" & profileLink(chkString(Topic_MName,"display"),Topic_Author) & "</span></font></td>" & vbNewLine & _

Also, in default.asp; lines 1066 & 1068 need to be changed (the remark will not allow continuing):

Code:


				"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>Please welcome our newest member: "
				'##USER_CLASS ## CHANGE line below ###############################################################################
		Response.Write	"<span class=""" & GetMembersColor(NewMember_Level) & """>" & profileLink(NewMember_Name,NewMember_Id) & "</span>.</font></td>" & vbNewline & _

<

Reply Author: Carefree
Replied on: 04 May 2008, 15:18
Message:

Also, I now get a subscript out-of-range (Number 3) error in this function, the error is on this line:
ModMemLev = fForumMod(3)

Code:


function listForumModerators(fForum_ID)
	fForumMods = split(strForumMods,"|")
	for iModerator = 0 to ubound(fForumMods)
		fForumMod = split(fForumMods(iModerator),",")
		ModForumID = fForumMod(0)
		ModMemID = fForumMod(1)
		ModMemName = fForumMod(2)
		ModMemLev = fForumMod(3)
		if cLng(ModForumID) = cLng(fForum_ID) then
			if fMods = "" then
			'##USER_CLASS ## CHANGE line below #################################################################################
				fMods = "<nobr><span class=""" & GetMembersColor(ModMemLev) & """>" & profileLink(chkString(ModMemName,"display"),ModMemID) & "</span></nobr>"
			else
			'##USER_CLASS ## CHANGE line below #################################################################################
				fMods = fMods & ", <nobr><span class=""" & GetMembersColor(ModMemLev) & """>" & profileLink(chkString(ModMemName,"display"),ModMemID) & "</span></nobr>"
			end if
		end if
	next
	if fMods = "" then fMods = " "
		listForumModerators = fMods
end function

Should there have been a table change to the DBase?<

Reply Author: cripto9t
Replied on: 04 May 2008, 16:51
Message:

Nope, no db changes. Let me look at the readme because everythings working fine for me.<

Reply Author: cripto9t
Replied on: 04 May 2008, 17:09
Message:

Carefree I missed a few marks
Near the top of default.asp - Note that I changed the name of the variable "ModLev" to "ModMemLev" to be more consistant with existing code.

Code:

	if recModeratorCount = "" then
		fMods = " "
	else
		mFORUM_ID = 0
		mMEMBER_ID = 1
		mM_NAME = 2
'##USER_CLASS ## ADD line below #############################################################################
                mM_Lev = 3

		for iModerator = 0 to recModeratorCount
			ModForumID = allModeratorData(mFORUM_ID, iModerator)
			ModMemID = allModeratorData(mMEMBER_ID, iModerator)
			ModMemName = replace(allModeratorData(mM_NAME, iModerator),"|","#124")
'##USER_CLASS ## ADD line below ############################################################################
                        ModMemLev = cLng(allModeratorData(mM_Lev, iModerator))

			if iModerator = 0 then
'##USER_CLASS ## ADD "," & ModMemLev" to the line below ###################################################
				strForumMods = ModForumID & "," & ModMemID & "," & ModMemName & "," & ModMemLev
			else
'##USER_CLASS ## ADD "," & ModMemLev" to the line below ###################################################
				strForumMods = strForumMods & "|" & ModForumID & "," & ModMemID & "," & ModMemName & "," & ModMemLev
			end if
		next
	end if
end if

Thanks for pointing out my errors. I'm to leave the 2 marks that bring errors and point it out in the readme.<

Reply Author: texanman
Replied on: 04 May 2008, 23:18
Message:

Cripto9t thanks for your efforts. <

Reply Author: texanman
Replied on: 05 May 2008, 10:56
Message:

Hello Cripto9t:

I just implemented the Mod. It works except for this:
If the login name has space in it (e.g. Adam Smith), interestingly, the mod makes the admin/mod name bold but no change in color.
I believe I have made all the changes correctly.
Any input?
Thanks<

Reply Author: cripto9t
Replied on: 05 May 2008, 12:08
Message:

Originally posted by texanman
Hello Cripto9t:

I just implemented the Mod. It works except for this:
If the login name has space in it (e.g. Adam Smith), interestingly, the mod makes the admin/mod name bold but no change in color

I just tested this and it s working fine for me.
I would check the spelling of the color. If your using the active users variable, check the source (html output) and make sure it has a value.<

Reply Author: texanman
Replied on: 05 May 2008, 13:35
Message:

Thanks for responding.
I am not using AU variables and I checked the color spelling and I went through the changes 3 times. The only difference between my files and yours is in topic.asp where I made changes from this topic:

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66959

I am not sure if the problem from this.<

Reply Author: texanman
Replied on: 05 May 2008, 15:25
Message:

Found one more missing marker in Forum.asp line 480 after Topic_MName =
Still that doesn't solve my problem. There could be more missing markers?!<

Reply Author: cripto9t
Replied on: 05 May 2008, 19:04
Message:

Originally posted by texanman
Found one more missing marker in Forum.asp line 480 after Topic_MName =
Still that doesn't solve my problem. There could be more missing markers?!

Thanks, the marker right above that is in the wrong place. It needs to be 1 line down.

Code:

		Topic_LastPostReplyID = arrTopicData(tT_LAST_POST_REPLY_ID, iTopic)
		Topic_MName = arrTopicData(tM_NAME, iTopic)
'##USER_CLASS ## ADD line below #################################################################################
                Topic_MLevel = arrTopicData(tM_LEVEL, iTopic)
		Topic_LastPostAuthorName = arrTopicData(tLAST_POST_AUTHOR_NAME, iTopic)
'##USER_CLASS ## ADD line below #################################################################################
                Topic_LastPostAuthorLevel = arrTopicData(tLAST_POST_AUTHOR_LEVEL, iTopic)

That might help, but the fact that the "bold" part works means the span and the css class are connecting.
Does it work with names without a space? Is it just happening on one page or every page?
If it's just one page, post a link to a txt file and I'll give it a look.<

Reply Author: texanman
Replied on: 05 May 2008, 20:19
Message:

Yes, works with names without space in all pages. The bold for names with space is also in all pages.<

Different Username Styles for Admins and Mods

Topic

Replies ...