Dosya adı : Global.asa
Nereye : Site anadizini

<script language="vbscript" runat="server">
Function GetSpamBotmusun()

      strBotlar(0) = "ad.fly"
      strBotlar(1) = "semalt"
      strBotlar(2) = "diger"


 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://defolgitburadan.com")

End Sub

Sub Session_OnEnd

End Sub

</script>

Kafayı kullan, 15 dk da yazdım ben bu kodları biraz önce.