wmaraci reklam
tr.link

ASP Sitelerde Spam Botları Engelleme

3 Mesajlar 882 Okunma
acebozum
tr.link

altuncumedya altuncumedya WM Aracı Kullanıcı
  • Üyelik 30.01.2012
  • Yaş/Cinsiyet 39 / 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
 

 

googleasistan
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 1118
  • 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 39 / 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>
 

 

Site Ayarları
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al