使用方法及代码分享
躲藏页面这种黑帽SEO作弊方式属于比较复杂的方式,需要黑帽seoer拥有较强的编程能力,我本来想写套代码分享给大家,可是终极没有测试成功,下面这串代码是我在网上找到的,能否准确的起作用,请各位自己尝试,假如你是一位编程高手,但愿你可以给大家总结一份准确的代码和IP数据库,到时我会发布出来利便大家下载和浏览。
<%
function cip(sip)
tip=cstr(sip)
sip1=left(tip,cint(instr(tip,".")-1))
tip=mid(tip,cint(instr(tip,".")+1))
sip2=left(tip,cint(instr(tip,".")-1))
tip=mid(tip,cint(instr(tip,".")+1))
sip3=left(tip,cint(instr(tip,".")-1))
sip4=mid(tip,cint(instr(tip,".")+1))
cip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)
end function
ipconnpath = "count/ip.mdb"
vip=Request.servervariables("REMOTE_ADDR")
%><%
set connip=server.createobject("adodb.connection")
DBPath = Server.MapPath(ipconnpath)
connip.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
ipnow=cip(vip)
Set rsip = Server.CreateObject("ADODB.Recordset")
sql="select * from ip where (onip<=" & ipnow & " and offip>=" & ipnow & ")"
rsip.Open sql,connip,1,1
vwhere=left(rsip("addj"),2)
rsip.Close
set rsip=nothing
connip.Close
set connip=nothing%>
<%
select case vwhere
case "湖南"
Response.Redirect "web/"
case "河南"
Response.Redirect "home/"
case else
Response.Redirect "main/"
end select
%>
假如可以将搜索引擎蜘蛛的IP地址汇总齐全,那这种方式对于某些搜索引擎不收录的站点类型是比较实用的,不外想将搜索引擎蜘蛛的IP汇总齐全这个是很难的工作,只要你忽略了一个,那这个蜘蛛就会返回真实的抓取的信息,通过多个搜索引擎蜘蛛的返回信息的对比,就可以知道这个网站是否已经作弊,这个属于恶性黑帽作弊,其后果是屏蔽网站。