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

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Anti-Leech
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Freeman II
Junior Member

232 Posts

Posted - 10 June 2001 :  13:57:11  Show Profile
i wanna make an Anti-Leech mod, so people cannot steal your posts/links

i tried this, but it didn;t work, can someone help me?
---------------------------------------
forumurl = www.somewhere.com
strOnlinePathInfo=Request.ServerVariables("Path_Info")
if lcase(Left(strOnlinePathInfo, 17)) = forumurl then
'view post
else
'default.asp
end if


Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 10 June 2001 :  21:33:44  Show Profile
Freeman II,

Why don't you put a no right click in your inc_top.asp?

If you want to, this is the best I have found for no right clicking;

<script language="JavaScript">
function click() {
if ((event.button==2) || (event.button==3)) {
alert('No leeching here');}}
document.onmousedown=click
// -->
</script>


I haope this helps.
quote:

i wanna make an Anti-Leech mod, so people cannot steal your posts/links

i tried this, but it didn;t work, can someone help me?
---------------------------------------
forumurl = www.somewhere.com
strOnlinePathInfo=Request.ServerVariables("Path_Info")
if lcase(Left(strOnlinePathInfo, 17)) = forumurl then
'view post
else
'default.asp
end if






Regards,

Webmaster @ Classic Motor Cycling
Classic Motor Cycling

Edited by - Classicmotorcycling on 10 June 2001 21:34:48
Go to Top of Page

Freeman II
Junior Member

232 Posts

Posted - 10 June 2001 :  21:46:12  Show Profile
javascript is so easy to hack

1.view the source code

2.hold right click, hit esc, release it, click properties on the menu

Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 10 June 2001 :  22:23:25  Show Profile
Or, click and hold down the right mouse button, click on ok with left button, then release the right button.
Go to Top of Page

Azaniah
Senior Member

United Kingdom
1004 Posts

Posted - 11 June 2001 :  08:42:05  Show Profile  Visit Azaniah's Homepage
*blink*

It's amazing what you learn in here isn't it.

I did not know that.. (wanders of to try it somewhere....)

Cheers Az

-------
Eagles fly!, but weasels don't get sucked into jet engines.
Go to Top of Page

Azaniah
Senior Member

United Kingdom
1004 Posts

Posted - 11 June 2001 :  11:20:56  Show Profile  Visit Azaniah's Homepage
Darn..

Someone care to explain that all again?

Either or way...


- Nope hold on I sussed what you mean...I'm just being thick again


Thanks
Az

-------
Eagles fly!, but weasels don't get sucked into jet engines.

Edited by - azaniah on 11 June 2001 11:28:24
Go to Top of Page

redbrad0
Advanced Member

USA
3725 Posts

Posted - 11 June 2001 :  12:01:48  Show Profile  Visit redbrad0's Homepage  Send redbrad0 an AOL message
is this what you are looking for?


strDomainName = "yourdomain.com"
strDomainReferer = Request.ServerVariables("HTTP_REFERER")

If InStr(strDomainReferer, strDomainName) Then
' do nothing it came from your domain
Else
Response.Redirect("default.asp")
End If

quote:

i wanna make an Anti-Leech mod, so people cannot steal your posts/links

i tried this, but it didn;t work, can someone help me?
---------------------------------------
forumurl = www.somewhere.com
strOnlinePathInfo=Request.ServerVariables("Path_Info")
if lcase(Left(strOnlinePathInfo, 17)) = forumurl then
'view post
else
'default.asp
end if






Brad
Go to Top of Page

Freeman II
Junior Member

232 Posts

Posted - 11 June 2001 :  12:14:12  Show Profile
Thanks redbrad0


one more question
whats the forum variable for Home url?

iwanna replacethe part in red so you don;t have to edit the source code each time you move to a new server.

thanks

quote:

is this what you are looking for?


strDomainName = "yourdomain.com"
strDomainReferer = Request.ServerVariables("HTTP_REFERER")

If InStr(strDomainReferer, strDomainName) Then
' do nothing it came from your domain
Else
Response.Redirect("default.asp")
End If

quote:

i wanna make an Anti-Leech mod, so people cannot steal your posts/links

i tried this, but it didn;t work, can someone help me?
---------------------------------------
forumurl = www.somewhere.com
strOnlinePathInfo=Request.ServerVariables("Path_Info")
if lcase(Left(strOnlinePathInfo, 17)) = forumurl then
'view post
else
'default.asp
end if






Brad



Go to Top of Page

big9erfan
Average Member

540 Posts

Posted - 11 June 2001 :  12:39:28  Show Profile
It's in inc_top.asp and it's

strHomeURL



http://www.ugfl.net/forums
Go to Top of Page

redbrad0
Advanced Member

USA
3725 Posts

Posted - 11 June 2001 :  14:11:50  Show Profile  Visit redbrad0's Homepage  Send redbrad0 an AOL message
Freeman II,

but think about this before you do this. what are you making your site for? to attract visitors? how do most visitors find you? thru search engines?

when im looking for something i goto search engines and type it in. if the data is in a forum, i goto the forum and read about it. if a search engine sent you to a website and did not send you to the page you wanted, would you continue to look around, or leave? i would look for just a minute and if i did not see it, i would leave.

so if you are so concerned about this, just setup the script to email you everytime someone is linked from another site. this way you can check the link that they came from and if their is a problem with it you can make it so that domain name no longer works.

Brad
Go to Top of Page

big9erfan
Average Member

540 Posts

Posted - 11 June 2001 :  15:03:54  Show Profile
I don't see a problem with people stealing posts/topics. I consider just about any traffic good traffic, unless they are hitting my server for remote loading of images, then maybe I'd restrict that, but I haven't seen much of that, so I'm not worried about it.

Yet.



http://www.ugfl.net/forums
Go to Top of Page

Freeman II
Junior Member

232 Posts

Posted - 11 June 2001 :  18:07:45  Show Profile
it doesn't work i tried this

strDomainName = "strHomeURL"
strDomainReferer = Request.ServerVariables("HTTP_REFERER")
If InStr(strDomainReferer, strDomainName) Then
' do nothing it came from your domain
Else

Response.Redirect("default.asp")
End If

it links back to my site
-------------------------------------
i installed this mod only on one page of my forum, so that won;t be a problem for attracting visitors ...

Go to Top of Page

Freeman II
Junior Member

232 Posts

Posted - 11 June 2001 :  18:41:45  Show Profile
i think theres a problem with this line

If InStr(strDomainReferer, strDomainName) Then

Go to Top of Page

Freeman II
Junior Member

232 Posts

Posted - 11 June 2001 :  20:55:40  Show Profile
Nevermind i forgot to remove the quotes

strDomainName = "strHomeURL"


strDomainName = strHomeURL

LOL

thanks to all who helped me with this mod

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.26 seconds. Powered By: Snitz Forums 2000 Version 3.4.07