本人办网站三年多,网站内容精彩,发展红火,赚钱不少,但一直为一些垃圾网站的采集所苦恼。据不完全统计,有几十个网站采集我网站内容,有时我一个月的心血,编辑更新的内容,采集者一分钟就不到就解决问题,据为已有,有时采集量大时还会造成服务器奇慢,影响用户访问,实在令人气愤!

为了防止采集,我试过各种方法,绝大多数方法是“双刃剑”---防止了采集,也影响了搜索引擎收录,实在不爽!一天本人忽发奇想:何不采取封IP的办法防止采集,于是网上找一段最简单的封IP代码,一试,果然有效,企图采集者无功而返,经三个多月应用,已找不到采集者了,实在有点寂寞,哈哈。实践证明,本方法绝对不影响搜索收录!具体代码如下:

<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|61.233.40.201|61.240.131.121|127.0.0.1|211.99.31.202|219.150.14.36|"
'获取IP地址
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then
IP = Request.ServerVariables("REMOTE_ADDR")
End If
VisitIP="|"&IP&"|"
If instr(1,IPString,VisitIP)>0 Then
response.write "你的IP被禁止"
response.end
End If
%>