Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 anonymously posting
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

hzaidi
Starting Member

USA
45 Posts

Posted - 04 January 2008 :  09:22:14  Show Profile
Ok here is the deal I have about 240 or so registered users. I want users to be able to post but in the actual post I want it to say "anonymous". So I guess this is pretty simple because the variable that displays the author name can be modified to do that. I want to retain the users information and members names.

muzishun
Senior Member

United States
1079 Posts

Posted - 04 January 2008 :  10:13:59  Show Profile  Visit muzishun's Homepage
If you want to leave out just the member's screen name but leave the other information, you can simply comment out or remove the code in red below. If you want to remove all of the user's identifying data, also comment out or remove the code below that's in green. To put the word "Anonymous" in place of their name, put it in place of the red code below.

All changes in topic.asp

Around lines 549-566

Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ valign=""top"" width=""" & strTopicWidthLeft & """"
if lcase(strTopicNoWrapLeft) = "1" then Response.Write(" nowrap")
Response.Write ">" & vbNewLine & _
" <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><span class=""spnMessageText"">" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "</span></b></font><br />" & vbNewLine
if strShowRank = 1 or strShowRank = 3 then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & ChkString(getMember_Level(Reply_MemberTitle, Reply_MemberLevel, Reply_MemberPosts),"display") & "</small></font><br />" & vbNewLine
end if
if strShowRank = 2 or strShowRank = 3 then
Response.Write " " & getStar_Level(Reply_MemberLevel, Reply_MemberPosts) & "<br />" & vbNewLine
end if

Response.Write " </p>" & vbNewLine & _
" <p>" & vbNewLine
if strCountry = "1" and trim(Reply_MemberCountry) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberCountry & "</small></font><br />" & vbNewLine
end if

Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts</small></font></p></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"


Around lines 754-771

Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumFirstCellColor & """ valign=""top"" width=""" & strTopicWidthLeft & """"
if lcase(strTopicNoWrapLeft) = "1" then Response.Write(" nowrap")
Response.Write ">" & vbNewLine & _
" <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><span class=""spnMessageText"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b></font><br />" & vbNewLine
if strShowRank = 1 or strShowRank = 3 then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & ChkString(getMember_Level(Member_Title, Member_Level, Member_Posts),"display") & "</small></font><br />" & vbNewLine
end if
if strShowRank = 2 or strShowRank = 3 then
Response.Write " " & getStar_Level(Member_Level, Member_Posts) & "<br />" & vbNewLine
end if

Response.Write " </p>" & vbNewLine & _
" <p>" & vbNewLine
if strCountry = "1" and trim(Member_Country) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Country & "</small></font><br />" & vbNewLine
end if

Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Posts & " Posts</small></font></p></td>" & vbNewLine & _
" <td bgcolor=""" & strForumFirstCellColor & """ width=""" & strTopicWidthRight & """"

Bill Parrott
Senior Web Programmer, University of Kansas
Co-Owner and Code Monkey, Eternal Second Designs (www.eternalsecond.com)
Personal Website (www.chimericdream.com)

Edited by - muzishun on 04 January 2008 10:19:32
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 04 January 2008 :  10:21:20  Show Profile  Visit MaD2ko0l's Homepage
you would also need to remove the profile links as well, or otherwise whats the point in removing the username?

come to think about it...all you would need is just the message part and coudl get rid of all the rest of the stuff apart from the posts date/time

© 1999-2010 MaD2ko0l
Go to Top of Page

muzishun
Senior Member

United States
1079 Posts

Posted - 04 January 2008 :  10:23:42  Show Profile  Visit muzishun's Homepage
I just remembered that you'll also have to make changes to default.asp (last post link), forum.asp (last post link) and another change to topic.asp (edited by text).

default.asp
Around lines 530-535

if IsNull(ForumMemberID) then
strLastUser = " "
else
strLastUser = "<br />by: <span class=""spnMessageText"">" & profileLink(chkString(ForumMemberName,"display"),ForumMemberID) & "</span>"
if strJumpLastPost = "1" then strLastUser = strLastUser & " " & DoLastPostLink(true)
end if

Around lines 943-948

Response.Write ", with the last post on <span class=""spnMessageText"">" & LastPostLink & LastPostDate & "</a></span>"
if LastPostAuthorLink <> "" then
Response.Write LastPostAuthorLink & "."
else

Response.Write "."
end if



forum.asp
Around lines 540-546

Response.Write " </td>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"">" & profileLink(chkString(Topic_MName,"display"),Topic_Author) & "</span></font></td>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & Topic_Replies & "</font></td>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & Topic_ViewCount & "</font></td>" & vbNewLine
if IsNull(Topic_LastPostAuthor) then
strLastAuthor = ""
else
strLastAuthor = "<br />by: <span class=""spnMessageText"">" & profileLink(ChkString(Topic_LastPostAuthorName, "display"),Topic_LastPostAuthor) & "</span>"
if (strJumpLastPost = "1") then strLastAuthor = strLastAuthor & " " & DoLastPostLink
end if



topic.asp
Around lines 858-868

if strEditedByDate = "1" and Topic_LastEditBy <> "" then
if Topic_LastEditBy <> Topic_Author then
Topic_LastEditByName = getMemberName(Topic_LastEditBy)
else
Topic_LastEditByName = chkString(Member_Name,"display")
end if
Response.Write " <tr>" & vbNewLine & _
" <td valign=""bottom""><hr noshade size=""" & strFooterFontSize & """ color=""" & strForumFirstCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" &_
"Edited by - " & Topic_LastEditByName & " on " & chkDate(Topic_LastEdit, " ", true) & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if

Bill Parrott
Senior Web Programmer, University of Kansas
Co-Owner and Code Monkey, Eternal Second Designs (www.eternalsecond.com)
Personal Website (www.chimericdream.com)
Go to Top of Page

muzishun
Senior Member

United States
1079 Posts

Posted - 04 January 2008 :  10:25:58  Show Profile  Visit muzishun's Homepage
MaD2ko0l, the code in my first post does take out the user's profile link as well. At first I thought you could remove the entire column as well, but that all depends on what information the original poster wants to have available. I thought it would be best to leave that column intact in case he ever wanted to add the data back in or put something else there. Also, it would require a bit more coding to take out the column entirely, and I don't know what hzaidi's experience is.

Bill Parrott
Senior Web Programmer, University of Kansas
Co-Owner and Code Monkey, Eternal Second Designs (www.eternalsecond.com)
Personal Website (www.chimericdream.com)
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 04 January 2008 :  10:28:31  Show Profile
And active.asp & search.asp as well. You'll also need to remove recent posts from pop_profile.asp.

Best to do it all by mlev, though, otherwise how are mods & admins supposed to know who posted what?


Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

Edited by - Shaggy on 04 January 2008 10:30:03
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20600 Posts

Posted - 04 January 2008 :  10:36:46  Show Profile  Visit HuwR's Homepage
you may also run into legal issues by doing so, since if you are making all posts anonymous you will most likely become responsible for any issues of libel etc
Go to Top of Page

muzishun
Senior Member

United States
1079 Posts

Posted - 04 January 2008 :  10:39:07  Show Profile  Visit muzishun's Homepage
Thanks Shaggy and HuwR. You both brought up points that I didn't think about. So I guess this brings us to the question about the reason for hzaidi's request. Are you wanting to have a single forum be anonymous or your entire board? I had heard talk awhile back about requests for a "suggestion box" mod that would allow for a single forum to leave off the user's information, but I don't know if any code came out of that.

Bill Parrott
Senior Web Programmer, University of Kansas
Co-Owner and Code Monkey, Eternal Second Designs (www.eternalsecond.com)
Personal Website (www.chimericdream.com)
Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 04 January 2008 :  11:44:25  Show Profile
That's what my anonymous posting mod did, what you guys are suggesting he do to code this in. And it isn't a simple thing. Forum is tightly integrated in membership, so making an anonymous post would take quite a bit of surgery.

The easiest way would be to create a new account and put the user name and password on the post.asp page so users can use this account when making anonymous posts.

Support Snitz Forums
Go to Top of Page

hzaidi
Starting Member

USA
45 Posts

Posted - 04 January 2008 :  12:07:48  Show Profile
quote:
Originally posted by HuwR

you may also run into legal issues by doing so, since if you are making all posts anonymous you will most likely become responsible for any issues of libel etc



I just found a little better way of doing it.


' New code added so that everybodies post is shown as anonymous except a couple people.
			if ChkString(Reply_MemberName,"display") = "xxxx" OR ChkString(Reply_MemberName,"display") = "xxx" then
			ReplyName = profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) 
			else
			'alpha = profileLink(ChkString(Reply_MemberName,"display"),Reply_Author)
			ReplyName = "Anonymous User"
			end if
			' End of new code
			
			'New code to block numofpost except for a few people
			if ChkString(Reply_MemberName,"display") = "xxxx" OR ChkString(Reply_MemberName,"display") = "xxxx" then
			Numofpost = Reply_MemberPosts & " Posts"
			else
			Numofpost =""
			end if
			'End of new code


This goes in topic.asp. In this case it only displays the author name if it's of what you specify. I think it would probably be best though to create another column in the database for moderators & administrators and put the people you "want to show" there. In which case it would make the code much smaller because you could simply run though that record.
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 04 January 2008 :  12:24:37  Show Profile  Visit MaD2ko0l's Homepage
he doesnt want an anonymous posting, he jus twants to hide the usename of certain people.

who exactly do you want to show the usernames? admins/mods and memebrs u want to hide?
as stated in previous posts, there is more to hide than just on topic.asp

© 1999-2010 MaD2ko0l
Go to Top of Page

muzishun
Senior Member

United States
1079 Posts

Posted - 04 January 2008 :  16:44:43  Show Profile  Visit muzishun's Homepage
If the reason for hiding your users' screen names in this forum is because there is sensitive information or you don't want people to be able to figure out who posted something, you'll need to make a lot more changes than in topic.asp. See my posts above for just a few of them. Like Davio said, if you're aiming for a single forum where people can post anonymously, you may be better off creating a separate profile that everyone has access to the logon information for. Then your users can post in that forum as that user.

Bill Parrott
Senior Web Programmer, University of Kansas
Co-Owner and Code Monkey, Eternal Second Designs (www.eternalsecond.com)
Personal Website (www.chimericdream.com)
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.41 seconds. Powered By: Snitz Forums 2000 Version 3.4.07