Global.asa veya Global.asax ise yapabilirsin.
Kodlarını yazarsan daha da yardımcı olabiliriz.
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>