使用方法
隱藏頁面這種黑帽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匯總齊全這個是很難的工作,只要你忽略了一個,那這個蜘蛛就會返回真實的抓取的信息,通過多個搜尋引擎蜘蛛的返回信息的對比,就可以知道這個網站是否已經作弊,這個屬於惡性黑帽作弊,其後果是禁止網站。