Snitz Forums 2000 - Mod: Member Ratings

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/Code)

Mod: Member Ratings

New Topic

Topic Locked

Printer Friendly

Author

Topic

Page: of 2

big9erfan
Average Member

540 Posts

Posted - 17 August 2001 : 12:58:57

Ok, I wrote some code up last night to mimic the member ratings at UBB 6.0

This was written for 3.1 sr4, but It will probably work just fine with prior versions and with a few changes in the code that needs to be inserted into topic.asp and pop_profile.asp it should work with 3.3

here's the download

http://www.ugfl.net/test/member_ratings.zip

The readme is included. You need to use admin_mod_dbsetup.asp to setup the database changes with the included .dbs file.

Do NOT replace your files with the ones supplied. They are there for examples ONLY.
Dayve has been kind enough to set up a demo
Note from Dayve:
*
Please keep in mind that my topic view will be a lot different from most of
you. To easily identify what my member rating graphics are so as to not
confuse them with my ranking graphics.
*

profile:
http://www.nineinchnailz.com/forum/pop_profile.asp?mode=display&id=2

topic:
http://www.nineinchnailz.com/forum/topic.asp?TOPIC_ID=1288&FORUM_ID=10&CAT_ID=5&Topic_Title=Member+Voting+and+Ratings&Forum_Title=comments

Links From Dayve for other graphics:
If you would like a link to some other rating graphics, you might want to take a look here:
http://www.ubbdev.com/ubbart/rank_2.shtm and
http://www.ubbdev.com/ubbart/rank_.shtm

http://www.ugfl.net/forums

Edited by - Big9erFan on 17 August 2001 15:55:16

rick7165
Senior Member

USA
1094 Posts

Posted - 17 August 2001 : 14:58:39

Awesome Mod!

Can anyone get this mod to work with 3.3?

Pageviews

http://www.eastpasco.com/uploaded/rick7165/pageviews.zip

Test Site:
http://www.eastpasco.com running on Huw's Code 3.3.09 SQL 2000

rick7165
Senior Member

USA
1094 Posts

Posted - 17 August 2001 : 15:33:14

To make this work with 3.3 They changed the topic.asp file so you need to add the red:

<%'############### Member Rating Mod ################'
iReplyRating = GetMemberRatingAvg( rsReplies("R_AUTHOR") )
if iReplyRating > 0 Then %>
 
 
<% if strUseExtendedProfile then %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="pop_profile.asp?mode=display&id=<% =rsReplies("R_AUTHOR") %>">
<% else %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rsReplies("R_AUTHOR") %>')">
<% end if %>
Member Rated: <img src="<%=GetRatingPicture( iReplyRating )%>" height="9" width="53" border="0"></a>
 
<% end if %>
<%'############### End Member Rating Mod ################'%>

<%'############### Member Rating Mod ################'
iReplyRating = GetMemberRatingAvg( rsTopic("MEMBER_ID") )
if iReplyRating > 0 Then %>
 
 
<% if strUseExtendedProfile then %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="pop_profile.asp?mode=display&id=<% =rsTopic("MEMBER_ID") %>">
<% else %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rsTopic("MEMBER_ID") %>')">
<% end if %>
Member Rated: <img src="<%=GetRatingPicture( iReplyRating )%>" height="9" width="53" border="0"></a>
 
<% end if %>
<%'############### End Member Rating Mod ################'%>

But I think something else is missing because I can not Rate anyone.. must be in the pop_profile.asp

Test Site:
http://www.eastpasco.com running on Huw's Code 3.3.09 SQL 2000

Edited by - Rick7165 on 17 August 2001 15:34:23

big9erfan
Average Member

540 Posts

Posted - 17 August 2001 : 15:48:14

the code for rating someone is in pop_profile and you cannot rate someone more than 1x and you cannot rate yourself

Click on a profile and you'll see a dropdown box on the far right and a Sumbit button.

http://www.ugfl.net/forums

big9erfan
Average Member

540 Posts

Posted - 17 August 2001 : 15:52:27

I have tons of mods installed thus the reason I said NOT to just copy my files over yours. They were supplied for examples only.

http://www.ugfl.net/forums

rick7165
Senior Member

USA
1094 Posts

Posted - 17 August 2001 : 16:03:33

Still not working.. I can rate someone then it doesn't show up... Funny thing is after rating someone
it got to a page and not back to the Profile page.

Test Site:
http://www.eastpasco.com running on Huw's Code 3.3.09 SQL 2000

big9erfan
Average Member

540 Posts

Posted - 17 August 2001 : 16:09:56

you sure you added ALL the code properly into pop_profile?

There are ( from memory ) 3 or 4 places to add/change code.

As I had said before, I didn't try this in 3.3, but the changes should not be too different.

Also, what page did it go to after the submit?

http://www.ugfl.net/forums

Edited by - Big9erFan on 17 August 2001 16:10:37

rick7165
Senior Member

USA
1094 Posts

Posted - 17 August 2001 : 16:59:52

Hey.. A note... I don't care, but some on here might... There is some languge in
the pop_profile.asp they might not like. Line 1212

Test Site:
http://www.eastpasco.com running on Huw's Code 3.3.09 SQL 2000

big9erfan
Average Member

540 Posts

Posted - 17 August 2001 : 17:09:42

whoops

That was for testing and forgot to make it more user friendly.

it's been fixed.
http://www.ugfl.net/forums

Edited by - Big9erFan on 17 August 2001 17:15:35

rick7165
Senior Member

USA
1094 Posts

Posted - 17 August 2001 : 17:22:44

Works with 3.3 after you do these changes in red in the topic.asp file:

<%'############### Member Rating Mod ################'
iReplyRating = GetMemberRatingAvg( rsReplies("R_AUTHOR") )
if iReplyRating > 0 Then %>
 
 
<% if strUseExtendedProfile then %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="pop_profile.asp?mode=display&id=<% =rsReplies("R_AUTHOR") %>">
<% else %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rsReplies("R_AUTHOR") %>')">
<% end if %>
Member Rated: <img src<%=GetRatingPicture( iReplyRating )%>" height="9" width="53" border="0"></a>
 
<% end if %>
<%'############### End Member Rating Mod ################'%>

<%'############### Member Rating Mod ################'
iReplyRating = GetMemberRatingAvg( rsTopic("MEMBER_ID") )
if iReplyRating > 0 Then %>
 
 
<% if strUseExtendedProfile then %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="pop_profile.asp?mode=display&id=<% =rsTopic("MEMBER_ID") %>">
<% else %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rsTopic("MEMBER_ID") %>')">
<% end if %>
Member Rated: <img src="<%=GetRatingPicture( iReplyRating )%>" height="9" width="53" border="0"></a>
 
<% end if %>
<%'############### End Member Rating Mod ################'%>

Now for Huwr's Mod Forum code you need to also do this "blue" in the topic.asp file:

<%'############### Member Rating Mod ################'
iReplyRating = GetMemberRatingAvg( rsReplies("R_AUTHOR") )
if iReplyRating > 0 Then %>
 
 
<% if strUseExtendedProfile then %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="pop_profile.asp?mode=display&id=<% =rsReplies("R_AUTHOR") %>">
<% else %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rsReplies("R_AUTHOR") %>')">
<% end if %>
Member Rated: <img src="<%=strImageURL %><%=GetRatingPicture( iReplyRating )%>" height="9" width="53" border="0"></a>
 
<% end if %>
<%'############### End Member Rating Mod ################'%>

<%'############### Member Rating Mod ################'
iReplyRating = GetMemberRatingAvg( rsTopic("MEMBER_ID") )
if iReplyRating > 0 Then %>
 
 
<% if strUseExtendedProfile then %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="pop_profile.asp?mode=display&id=<% =rsTopic("MEMBER_ID") %>">
<% else %>
" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rsTopic("MEMBER_ID") %>')">
<% end if %>
Member Rated: <img src="<%=strImageURL %><%=GetRatingPicture( iReplyRating )%>" height="9" width="53" border="0"></a>
 
<% end if %>
<%'############### End Member Rating Mod ################'%>

Also for Huwr's you need to do this "blue" in pop_profile.asp

<%'################### Member Rating Mod #####################'%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top>" size="<% =strDefaultFontSize %>">Member Rated: </td>
<%
iReplyRating = GetMemberRatingAvg( rs("MEMBER_ID") )
if iReplyRating > 0 Then %>
<td bgColor="<% =strPopUpTableColor %>"><img src="<%=strImageURL %><%=GetRatingPicture( iReplyRating )%>" height="9" width="53" border="0">" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"> (Votes: <%=GetMemberTotalRatingsCount( rs("MEMBER_ID") )%> )</td>
<%else%>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top>" size="<% =strDefaultFontSize %>">Not Available</td>
<%end if%>
</tr>

<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top>" size="<% =strDefaultFontSize %>">Member Since: </td>
<td bgColor="<% =strPopUpTableColor %>">" size="<% =strDefaultFontSize %>"><% =ChkDate(rs("M_DATE")) %> </td>
</tr>
<%'################### End Member Rating Mod #####################'%>

Test Site:
http://www.eastpasco.com running on Huw's Code 3.3.09 SQL 2000

Edited by - Rick7165 on 17 August 2001 17:26:47

Edited by - Rick7165 on 17 August 2001 17:27:52

rick7165
Senior Member

USA
1094 Posts

Posted - 17 August 2001 : 17:39:31

You might want to fix this also in pop_profile.asp... the "Not Available" is all the way to the right... Change to left
marked in Red.

<%'################### Member Rating Mod #####################'%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top>" size="<% =strDefaultFontSize %>">Member Rated: </td>
<%
iReplyRating = GetMemberRatingAvg( rs("MEMBER_ID") )
if iReplyRating > 0 Then %>
<td bgColor="<% =strPopUpTableColor %>"><img src="<%=strImageURL %><%=GetRatingPicture( iReplyRating )%>" height="9" width="53" border="0">" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"> (Votes: <%=GetMemberTotalRatingsCount( rs("MEMBER_ID") )%> )</td>
<%else%>
<td bgColor="<% =strPopUpTableColor %>" align=left nowrap valign=top>" size="<% =strDefaultFontSize %>">Not Available</td>
<%end if%>
</tr>

<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top>" size="<% =strDefaultFontSize %>">Member Since: </td>
<td bgColor="<% =strPopUpTableColor %>">" size="<% =strDefaultFontSize %>"><% =ChkDate(rs("M_DATE")) %> </td>
</tr>
<%'################### End Member Rating Mod #####################'%>

Test Site:
http://www.eastpasco.com running on Huw's Code 3.3.09 SQL 2000

dayve
Forum Moderator

USA
5820 Posts

Posted - 17 August 2001 : 20:20:50

yeah, I saw the profanity too, I left it, I thought it was great but thats the nature of my being and my forum is kind of ruthless too at times.

as for the align right, I fixed that too and forgot to mention that to ya big9erfan...

Dayve

Raichelle
Junior Member

370 Posts

Posted - 17 August 2001 : 22:03:09

nice mod
i downloaded the one on the mod witout code forum
i don't know if both version are the same but umm it only show only the person who was rated. so is there a code to add for members to click to vote for other members or better yet when someone click on that link a little pop up window open for you to vote for them instead of going to there profile or whatever i think the little pop up window will work fine when someone click on the link from the topic page to vote for a member

dayve
Forum Moderator

USA
5820 Posts

Posted - 17 August 2001 : 22:51:06

I think big9erfan was considering a v2 to this which could include something like this.

Dayve

bjlt
Senior Member

1144 Posts

Posted - 18 August 2001 : 02:11:25

Haven't tried it yet. I have a question: for how long one can not vote another user for a second time? does this stored in the db? Is it possible to make it valid for x days/month, then one can vote it again?

e.g. i vote member x as 4, later 3 month later, i'd like to change it to 5, the total votes should not be changed when I change my rate to him.

maybe it's not worth doing this, but I think as time being, one may change his idea and there should be a way to reflect the change.

this is useful when using the mod to rate other things, e.g. to rate a restaurant. the restaurants may renovate, hire new chefs, change managers, etc. there should be a way to let the user express their new ideas to the new changes.

there's a ranking system in the link manager, I wonder how it works, compares with this member rating mod.

dayve
Forum Moderator

USA
5820 Posts

Posted - 18 August 2001 : 10:38:27

the voters id is stored in a database but I agree, maybe some administrative features can come out in the next release that allows members to vote again in say 1 month incremets (monthly). As it stands right now, I like the fact that the voter is stored in the database. I wish the poll mod was similar because I have people clearing their cookies all the time to vote again (I know that is silly).

If this mod becomes quite popular, I can see it becoming expanded. does anyone know of any administrative features that the UBB version of this may have?

Dayve

Page: of 2

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.25 seconds.