wmaraci reklam
lidertakipci

ASP Sitelerde Spam Botları Engelleme

3 Mesajlar 768 Okunma
advertseo
wmaraci reklam

altuncumedya altuncumedya WM Aracı Kullanıcı
  • Üyelik 30.01.2012
  • Yaş/Cinsiyet 38 / E
  • Meslek web tasarım
  • Konum Kahramanmaraş
  • Ad Soyad A** A**
  • Mesajlar 142
  • Beğeniler 1 / 11
  • Ticaret 0, (%0)
arkadaşlar asp de adf.ly, semalt.com gibi spam botların siteye girişini ya da sunucuya erişimini nasıl engellerim. Global.asa dosyası ile yapmaya çalıştım olmadı. Google analiyticten filtre yapınca sadece veriler görünmüyor ama ben bu spam botları tamamen engellemek istiyorum. bilgisi olan arkadaşlar varsa. yaklaşık 300 e yakın spam bot var listemde. anlık 30-40 ziyaretçi yollayıp hemen çıkma oranını yükseltiyorlar ve seoya zarar veriyorlar.

Ayrıca php de bunu .htaccess dosyası ile kolaylıkla yapılabiliyor ama ASP ve Windows hostta nasıl olacak
 

 

wmaraci
reklam

ontedi ontedi www.ontedi.com Kullanıcı
  • Üyelik 03.10.2013
  • Yaş/Cinsiyet 44 / E
  • Meslek Yazılım Uzmanı, Matematikçi
  • Konum Ankara
  • Ad Soyad S** T**
  • Mesajlar 1119
  • Beğeniler 325 / 324
  • Ticaret 2, (%100)
Global.asa veya Global.asax ise yapabilirsin.

Kodlarını yazarsan daha da yardımcı olabiliriz.
 

 

www.ontedi.com
www.cizgi.site

altuncumedya altuncumedya WM Aracı Kullanıcı
  • Üyelik 30.01.2012
  • Yaş/Cinsiyet 38 / E
  • Meslek web tasarım
  • Konum Kahramanmaraş
  • Ad Soyad A** A**
  • Mesajlar 142
  • Beğeniler 1 / 11
  • Ticaret 0, (%0)
Ek Olarak:

ontedi adlı üyeden alıntı

Global.asa veya Global.asax ise yapabilirsin.

Kodlarını yazarsan daha da yardımcı olabiliriz.

<script>
Function GetSpamBotmusun()

strBotlar(0) = "adf.ly"
strBotlar(1) = "ilovevitaly.com"
strBotlar(2) = "satellite.maps.ilovevitaly.com"
strBotlar(3) = "howtostopreferralspam.eu"
strBotlar(4) = "непереводимая.рф"



Dim strHttpReferer
Dim blnSonuc

strHttpReferer =Trim(Request.ServerVariables ("HTTP_REFERER"))
blnSonuc = False

If Len(strHttpReferer) > 1 Then
For i = 0 To Ubound(strBotlar)
i=i+1
If InStr(strHttpReferer,strBotlar(i)) > -1 Then blnSonuc = True
Next
Else
blnSonuc = False
End If
GetSpamBotmusun = blnSonuc
End Function

sub Application_OnStart

end sub

sub Application_OnEnd

end sub

Sub Session_OnStart

If GetSpamBotmusun() = True Then Response.Redirect("http://www.sallagitsin.com")

End Sub

Sub Session_OnEnd

End Sub

</script>
 

 

wmaraci
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)
Site Ayarları
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al