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>