Different Username Styles for Admins and Mods - Posted (1695 Views)
cripto9t
Average Member
cripto9t
Posts: 881
881
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.<
    _-/Cripto9t\-_
Last edited by cripto9t on 04 May 2008, 13:06
 Sort direction, for dates DESC means newest first  
 Page size 
Posted
Carefree
Advanced Member
Carefree
Posts: 4224
4224
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 & _
<
Last edited by Carefree on 04 May 2008, 15:48
Posted
Carefree
Advanced Member
Carefree
Posts: 4224
4224
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?<
Posted
cripto9t
Average Member
cripto9t
Posts: 881
881
Nope, no db changes. Let me look at the readme because everythings working fine for me.<
    _-/Cripto9t\-_
Posted
cripto9t
Average Member
cripto9t
Posts: 881
881
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.<
    _-/Cripto9t\-_
Posted
texanman
Junior Member
texanman
Posts: 410
410
Cripto9t thanks for your efforts. <
Last edited by texanman on 05 May 2008, 01:17
Posted
texanman
Junior Member
texanman
Posts: 410
410
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<
Last edited by texanman on 05 May 2008, 11:39
Posted
cripto9t
Average Member
cripto9t
Posts: 881
881
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.<
    _-/Cripto9t\-_
Posted
texanman
Junior Member
texanman
Posts: 410
410
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.<
Posted
texanman
Junior Member
texanman
Posts: 410
410
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?!<
Posted
cripto9t
Average Member
cripto9t
Posts: 881
881
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.<
    _-/Cripto9t\-_
You Must enter a message