Snitz Forums 2000 - Please is there any way to hide links on visitors

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/Code)

Please is there any way to hide links on visitors

New Topic

Reply to Topic

Printer Friendly

Author

Topic

Page: of 2

AHMEDHHH1
Junior Member

Egypt
105 Posts

Posted - 25 October 2010 : 22:09:49

Please is there any way to hide links on visitors and members inside the topics

so we can post a reply in the topic

Edited by - AHMEDHHH1 on 26 October 2010 08:11:27

HuwR
Forum Admin

United Kingdom
20584 Posts

Posted - 26 October 2010 : 02:27:21

product-hide ?

MVC .net dev/test site | MVC .net running on Raspberry Pi

AHMEDHHH1
Junior Member

Egypt
105 Posts

Posted - 26 October 2010 : 08:05:03

Please is there any way to hide links on visitors and members inside the topics

so we can post a reply in the topic

ruirib
Snitz Forums Admin

Portugal
26364 Posts

Posted - 26 October 2010 : 09:49:20

No, there is no such way. It's either full access to topic (actually to the forum where the topic is located) or no access to the topic at all.

Snitz 3.4 Readme | Like the support? Support Snitz too

AHMEDHHH1
Junior Member

Egypt
105 Posts

Posted - 26 October 2010 : 18:17:16

could you add this characteristic?x

or could anyone explain to me how to do it ?x

Podge
Support Moderator

Ireland
3775 Posts

Posted - 27 October 2010 : 08:44:58

Are you talking about showing external links within topics only to members that are logged in?

Podge.

The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)

My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board

Warning: The post above or below may contain nuts.

AHMEDHHH1
Junior Member

Egypt
105 Posts

Posted - 27 October 2010 : 10:14:39

Yes

quote:
Originally posted by Podge

Are you talking about showing external links within topics only to members that are logged in?

Podge
Support Moderator

Ireland
3775 Posts

Posted - 27 October 2010 : 13:06:18

I did that recently and its not that difficult. I will post instructions later.

Podge
Support Moderator

Ireland
3775 Posts

Posted - 27 October 2010 : 15:04:53

Instructions for a default version of V3.4.07

Open inc_func_common.asp
About line 1553 add the following code

function withoutLinks (strInput)
    Set rx = New RegExp
    With rx
        .Pattern = "<(a*)([^/]*)/([A-Za-z0-9]?[^>]+)"">([A-Za-z0-9]?[^>]+)</a>"
        .IgnoreCase = True
        .Global = True
    End With
    withoutLinks = rx.Replace (strInput, "<a href=""login.asp"" target=""_blank"">You must be logged in to see this link.</a>")
end Function

More in a few minutes.

Podge
Support Moderator

Ireland
3775 Posts

Posted - 27 October 2010 : 15:09:14

Open topic.asp
About line 646 find the following code

if Request.QueryString("SearchTerms") <> "" then
                Response.Write    SearchHiLite(formatStr(Reply_Content))
            else
                Response.Write    formatStr(Reply_Content)
            end if

Replace it with

if strDBNTUserName = "" then
                Cleaned_Reply_Content = withoutLinks(formatStr(Reply_Content))
            else
                Cleaned_Reply_Content = formatStr(Reply_Content)
            end if
            if Request.QueryString("SearchTerms") <> "" then
                Response.Write    SearchHiLite(Cleaned_Reply_Content)
            else
                Response.Write    formatStr(Cleaned_Reply_Content)
            end if

Podge
Support Moderator

Ireland
3775 Posts

Posted - 27 October 2010 : 15:13:59

Still in topic.asp
Around line 852 find the following code

if Request.QueryString("SearchTerms") <> "" then
        Response.Write    SearchHiLite(formatStr(Topic_Message))
    else
        Response.Write    formatStr(Topic_Message)
    end if

Replace it with

if strDBNTUserName = "" then
        Cleaned_Topic_Message = withoutLinks(formatStr(Topic_Message))
    else
        Cleaned_Topic_Message = formatStr(Topic_Message)
    end if
    if Request.QueryString("SearchTerms") <> "" then
        Response.Write    SearchHiLite(Cleaned_Topic_Message)
    else
        Response.Write    Cleaned_Topic_Message
    end if

This code is largely untested and I suspect that the regex needs a little work. Please post comments, suggestions and improvements and I'll package it in a mod and put it on SnitzBitz.

I think something like this should be included in the base code so that Snitz would be less of a target for spammers.

Edited by - Podge on 27 October 2010 15:15:10

AHMEDHHH1
Junior Member

Egypt
105 Posts

Posted - 28 October 2010 : 06:28:20

Thank you very much brother Podge

The structure was perfectly working ,And I will refer some part of idea later

I want also hide the links from the members who have not replied to the topic

This feature will be on in the forums which only specified

And the help still going on INCHALLAH of this proposals

Podge
Support Moderator

Ireland
3775 Posts

Posted - 28 October 2010 : 09:00:44

You would have to add two boolean fields to the FORUM_FORUM table. One to allow/disallow links in the topic text and the other to allow/disallow links in the reply text. It should probably be settable in the edit forum page.

I'll look at the code in topic.asp and see how easy it is to work out if the logged in member has replied to the thread.

AHMEDHHH1
Junior Member

Egypt
105 Posts

Posted - 28 October 2010 : 09:47:44

This feature will be on in the forums which only specified

Open post_info.asp

Around line 179 find the following code

"T.T_STATUS, T.T_AUTHOR, T.T_SUBJECT " &_

Replace it with
"T.T_STATUS, T.T_AUTHOR, T.T_SUBJECT, F_Lenk" &_

Around line 189 find the following code

"F.FORUM_ID, F.F_STATUS, F.F_TYPE, F.F_SUBJECT " &_
Replace it with

"F.FORUM_ID, F.F_STATUS, F.F_TYPE, F.F_SUBJECT, F_Lenk " &_

Around line 1176 find the following code

strSql = strSql & ", F_SUBJECT"

And add below it:

strSql = strSql & ", F_Lenk"

Around line 1418 find the following code

strSql = strSql & ", F_SUBJECT = '" & txtSubject & "'"

And add below it:

strSql = strSql & ", F_Lenk = '" & Request.Form("ForumLenk")& "'"

Edited by - AHMEDHHH1 on 28 October 2010 13:24:08

AHMEDHHH1
Junior Member

Egypt
105 Posts

Posted - 28 October 2010 : 09:59:40

Open post.asp

Around line 752 find the following code

if strRqMethod = "Forum" or _
strRqMethod = "EditForum" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Increase Post Count:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><select name=""ForumCntMPosts"" size=""1"">" & vbNewLine & _
" <option value=""0"""
if fForumCntMPosts = "0" then Response.Write(" selected")
Response.Write ">No</option>" & vbNewLine & _
" <option value=""1"""
if fForumCntMPosts = "1" or fForumCntMPosts = "" then Response.Write(" selected")
Response.Write ">Yes</option>" & vbNewLine & _
" </select>" & vbNewLine & _
" <a href=""Javascript:openWindow3('pop_help.asp?mode=options#forumcntmposts')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if

And add below it:

if strRqMethod = "Forum" or _
strRqMethod = "EditForum" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Hide link for visitors:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><select name=""ForumLenk"" size=""1"">" & vbNewLine & _
" <option value=""0"""
if fForumCntMPosts = "0" then Response.Write(" selected")
Response.Write ">No</option>" & vbNewLine & _
" <option value=""1"""
if fForumCntMPosts = "1" or fForumCntMPosts = "" then Response.Write(" selected")
Response.Write ">Yes</option>" & vbNewLine & _
" </select>" & vbNewLine & _
end if

AHMEDHHH1
Junior Member

Egypt
105 Posts

Posted - 28 October 2010 : 10:14:22

Open topic.asp
Around line 101 find the following code

", F.F_STATUS, F.FORUM_ID, F.F_SUBSCRIPTION, F.F_SUBJECT, F.F_MODERATION, T.T_MESSAGE"
Replace it with

", F.F_STATUS, F.FORUM_ID, F.F_SUBSCRIPTION, F.F_SUBJECT, F.F_MODERATION, T.T_MESSAGE, F_Lenk"

Around line 101 find the following code

Topic_Message = rsTopic("T_MESSAGE")

And add below it:

ForumLenk = rsTopic("F_Lenk")

Around line 852 find the following code

if Request.QueryString("SearchTerms") <> "" then
Response.Write SearchHiLite(formatStr(Topic_Message))
else
Response.Write formatStr(Topic_Message)
end if

Replace it with

if strDBNTUserName = "" and ForumLenk = 0 then
Cleaned_Topic_Message = withoutLinks(formatStr(Topic_Message))
else
Cleaned_Topic_Message = formatStr(Topic_Message)
end if
if Request.QueryString("SearchTerms") <> "" then
Response.Write SearchHiLite(Cleaned_Topic_Message)
else
Response.Write Cleaned_Topic_Message
end if

Edited by - AHMEDHHH1 on 02 November 2010 18:02:50

Page: of 2

Topic

New Topic

Reply to Topic

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.23 seconds.