Link To Reply MOD
Snitz™ Forums 2000https://forum.snitz.com/forumTopic/Posts/67557?pagenum=1
06 November 2025, 06:42
Topic
leatherlips
Link To Reply MOD
01 August 2008, 13:08
Link To Reply MOD
01 August 2008, 13:08
I made a new little mod that I use on my forum. It is called Link To Reply.
This mod allows the users of your forum to click an icon that displays the link to any topic or reply which they can then copy and paste.
This gives your users the ability to link to the exact reply they were referring to rather than linking to the topic and then trying to explain which reply they were talking about.
If interested you can download it from SnitzBitz.<
This mod allows the users of your forum to click an icon that displays the link to any topic or reply which they can then copy and paste.
This gives your users the ability to link to the exact reply they were referring to rather than linking to the topic and then trying to explain which reply they were talking about.
If interested you can download it from SnitzBitz.<
Replies ...
HuwR
01 August 2008, 14:20
01 August 2008, 14:20
isn't that the same as marcels permalink MOD ?<
leatherlips
01 August 2008, 14:28
01 August 2008, 14:28
No. His does not give you a pop up with the URL in it. Also, mine uses just the normal reply and topic links, not permalinks.
I could never get his to work on my forum.<
I could never get his to work on my forum.<
Massimo
01 August 2008, 15:16
01 August 2008, 15:16
The mods use .swf file?
i use firefox and addon block flash if not autorizated<
MaD2ko0l
01 August 2008, 15:36
01 August 2008, 15:36
swf file is needed to allow the website to send the contents of the text box to your clipboard.<
leatherlips
01 August 2008, 19:20
01 August 2008, 19:20
It was very difficult to find a cross browser select and copy script. This was the only one I could find. It does it through the .swf file. All other scripts I found were only workable for IE. I wanted it to be easy for people to copy. This way lets them do it with one click. They don't have to first highlight it and then right click to select copy.
I thought this was the best and easiest way to do it.
<
I thought this was the best and easiest way to do it.
<
Carefree
01 August 2008, 23:23
01 August 2008, 23:23
topic.asp requires the code to be changed in two places (for topics and for replies). Here's what I did to make everything work.
Replace pop_link_reply.asp with this:
In topic.asp, look for the following lines (appx 585-586):
Between them, add the following:
<
Replace pop_link_reply.asp with this:
Code:
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.05
'#################################################################################
'## Copyright (C) 2000-05 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
'#################################################################################
'# Link To Reply MOD by Leatherlips
'# Thanks Goes To MaD2ko0l For Helping Getting The Reply URL To Show
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_header_short.asp" -->
<%
strQSY = right(Request.QueryString,20)
For i = 2 to 20
strQy=mid(strQSY,i,2)
strQS=mid(strQSY,i+3) ' Note: Everything after final = sign
if strQy = "ID" then exit for
next
For j = 1 to len(strQS)
strQt=mid(strQs,j,1)
strTopic=left(strQS,j-1)
strReply=right(strQS, len(strQS)-j)
if strQt="R" then exit for
next
Response.Write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Link Directly To This Reply</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>To link directly to this reply, copy and paste the entire url below.</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""#FFFFFF"" valign=""top"" align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine
Response.Write "<center>Clicking the button below will automatically select and copy the link to your clipboard.<br><br><form name=""replylink"" action="""">" & vbNewLine
Response.Write "<textarea name=""results"" cols=""70"" rows=""2"">" & strForumURL & "topic.asp?" & ArchiveLink & "whichpage=-1&TOPIC_ID=" & strTopic & "#" & strReply &"</textarea><br><br>" & vbNewLine
Response.Write "<input type=""button"" value=""Click To Select & Copy This Reply Link"" onclick=""copy(document.replylink.results.value);"">" & vbNewLine
Response.Write "</form></center>" & vbNewLine & _
"</td></tr></table></td></tr></table>" & vbNewLine
WriteFooterShort
Response.End
%>
In topic.asp, look for the following lines (appx 585-586):
Code:
' DEM --> End of Code added for moderation.
Response.Write " " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""6"""),Reply_MemberID) & vbNewLine
Between them, add the following:
Code:
Response.Write " <a href=""JavaScript:openWindowLink('pop_link_reply.asp?url=" & strForumURL & "topic.asp?TOPIC_ID=" & Topic_ID & "R" & Reply_ReplyID & "')"">" & getCurrentIcon(strIconLinkTo,"Link directly to this topic","align=""absmiddle"" hspace=""3""") & "</a>" & vbNewLine
Etymon
02 August 2008, 04:31
02 August 2008, 04:31
Hi LL!
I don't want to sound like a dufus here, but in your travels did you find whether or not it was possible to make the code do the visual cue of highlighting the link in the textbox. I ask because the MOD worked on your site (using FireFox) as it should, just I did not know that anything had happened until I pasted the link into notepad. Is it supposed to show the link as highlighted after you click the "Click To Select & Copy This Topic Link" button.
Thanks for the MOD. I think it will be very useful!
<
I don't want to sound like a dufus here, but in your travels did you find whether or not it was possible to make the code do the visual cue of highlighting the link in the textbox. I ask because the MOD worked on your site (using FireFox) as it should, just I did not know that anything had happened until I pasted the link into notepad. Is it supposed to show the link as highlighted after you click the "Click To Select & Copy This Topic Link" button.
Thanks for the MOD. I think it will be very useful!
<
Classicmotorcycling
02 August 2008, 07:13
02 August 2008, 07:13
Carefree,
I had to change your code a little for the pop_link_reply.asp, I hope that you don't mind.
Seems to work with a slight change.<
I had to change your code a little for the pop_link_reply.asp, I hope that you don't mind.
Code:
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.06
'#################################################################################
'## Copyright (C) 2000-05 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
'#################################################################################
'# Link To Reply MOD by Leatherlips
'# Thanks Goes To MaD2ko0l, Carefree and Classicmotorcycling For Helping Getting
'# The Reply URL To Show
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_header_short.asp" -->
<%
Response.Write " <script type=""text/javascript""> " & vbNewLine & _
" function copy(what) {" & vbNewLine & _
" window.clipboardData.setData('Text',what.value);" & vbNewLine & _
" }" & vbNewLine & _
" function paste(what) {" & vbNewLine & _
" what.value = window.clipboardData.getData('Text');" & vbNewLine & _
" }" & vbNewLine & _
" </script>" & vbNewLine
strQSY = right(Request.QueryString,20)
For i = 2 to 20
strQy=mid(strQSY,i,2)
strQS=mid(strQSY,i+3) ' Note: Everything after final = sign
if strQy = "ID" then exit for
next
For j = 1 to len(strQS)
strQt=mid(strQs,j,1)
strTopic=left(strQS,j-1)
strReply=right(strQS, len(strQS)-j)
if strQt="R" then exit for
next
Response.Write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Link Directly To This Reply</b></font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>To link directly to this reply, copy and paste the entire url below.</font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""#FFFFFF"" valign=""top"" align=""left"">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" <center>Clicking the button below will automatically select and copy the link to your clipboard.<br><br>" & vbNewLine & _
" <form>" & vbNewLine & _
" <textarea name=""data"" cols=""70"" rows=""2"">" & strForumURL & "topic.asp?" & ArchiveLink & "whichpage=-1&TOPIC_ID=" & strTopic & "#" & strReply &"</textarea>" & vbNewLine & _
" <br />" & vbNewLine & _
" <input type=""button"" value=""Click To Select & Copy This Reply Link"" onclick=""copy(this.form.data)"">" & vbNewLine & _
" </form>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
WriteFooterShort
Response.End
%>
Carefree
02 August 2008, 07:23
02 August 2008, 07:23
I don't mind at all, if you find a better way of making things work, feel free.
However, there's a better way of listing code here using just the code/code or just the scrollbox/scrollbox methods (which list the contents in a single line of type when you copy/paste).
Instead enclose the code within the scrollboxes. Like this: [ scrollbox ][ code ] blah blah blah [/ code ] [/ scrollbox ]. Then the code can be copied/pasted properly.<
However, there's a better way of listing code here using just the code/code or just the scrollbox/scrollbox methods (which list the contents in a single line of type when you copy/paste).
Instead enclose the code within the scrollboxes. Like this: [ scrollbox ][ code ] blah blah blah [/ code ] [/ scrollbox ]. Then the code can be copied/pasted properly.<
leatherlips
02 August 2008, 07:53
02 August 2008, 07:53
What did your changes do?<
leatherlips
02 August 2008, 08:21
There are other scripts I found that do visually select and copy but they are IE specific. I chose not to use them because I wanted it to be cross browser. The one I am using works in IE, FF, Safari and Opera. I haven't tested any other browsers.<
02 August 2008, 08:21
Originally posted by EtymonThis was the only cross browser copy to clipboard script that I could find. It does not visually show the text as being selected. However it still DOES select and copy it.
I don't want to sound like a dufus here, but in your travels did you find whether or not it was possible to make the code do the visual cue of highlighting the link in the textbox. I ask because the MOD worked on your site (using FireFox) as it should, just I did not know that anything had happened until I pasted the link into notepad. Is it supposed to show the link as highlighted after you click the "Click To Select & Copy This Topic Link" button.
There are other scripts I found that do visually select and copy but they are IE specific. I chose not to use them because I wanted it to be cross browser. The one I am using works in IE, FF, Safari and Opera. I haven't tested any other browsers.<
Carefree
03 August 2008, 00:33
Not sure who this question was addressed to, Leather. Me? Classic?
If me, my changes put the icon on the replies as well as topics, changed the query string to force it to include replies info, then parsed the query string (which doesn't seem to grab anything after the topic information) to get the pertinent data from which to build the link.
Classic's changes added the javascript routine into the reply page so that it isn't necessary to add it to func_common in order for it to work. He also changed the onclick routine to capture all the form information.<
03 August 2008, 00:33
Originally posted by leatherlips
What did your changes do?
Not sure who this question was addressed to, Leather. Me? Classic?
If me, my changes put the icon on the replies as well as topics, changed the query string to force it to include replies info, then parsed the query string (which doesn't seem to grab anything after the topic information) to get the pertinent data from which to build the link.
Classic's changes added the javascript routine into the reply page so that it isn't necessary to add it to func_common in order for it to work. He also changed the onclick routine to capture all the form information.<
leatherlips
03 August 2008, 08:39
03 August 2008, 08:39
Thanks Carefree.
I'm a little confused though.
I'm a little confused though.
Classic's changes added the javascript routine into the reply page so that it isn't necessary to add it to func_common in order for it to workI did not add anything to inc_func_common.asp.<
leatherlips
03 August 2008, 21:31
In both pop_link_reply.asp and pop_link_topic.asp look for:
Add the part in red:
What this does is change the text that appears on the button to say Successfully Copied! after the button is clicked.<
03 August 2008, 21:31
Originally posted by EtymonI have added a confirmation that the link was successfully copied.
...I did not know that anything had happened until I pasted the link into notepad...
In both pop_link_reply.asp and pop_link_topic.asp look for:
Code:
onclick=""copy(document.replylink.results.value);"">Code:
onclick=""copy(document.replylink.results.value);this.value='Successfully Copied!';"">