這篇文章主要介紹了asp實現禁止搜索引擎蜘蛛訪問的代碼,十分的簡單實用,有需要的小伙伴可以參考下。
這段代碼可以控制常用的搜索引擎無法訪問asp頁面,需要在每個asp頁麵包含這段代碼。
- <%
- functionisspider()
- dimi,agent,searray
- agent=agent:&LCase(request.servervariables(http_user_agent))
- searray=array(googlebot,baiduspider,sogouspider,yahoo,Sosospider)
- isspider=false
- fori=0toubound(searray)
- if(instr(agent,searray(i))>0)thenisspider=true
- next
- endfunction
- functionfromse()
- dimurlrefer,searray,i
- urlrefer=refer:&LCase(request.ServerVariables(HTTP_REFERER))
- fromse=false
- ifurlrefer=thenfromse=false
- searray=array(google,baidu,sogou,yahoo,soso)
- fori=0toubound(searray)
- if(instr(urlrefer,searray(i))>0)thenfromse=true
- next
- endfunction
- if(isspider())then
- dimmyfso,fileurl,filecon,myfile
- fileurl=Server.MapPath(images/bg01.gif)
- Setmyfso=Server.CreateObject(Scripting.FileSystemObject)
- ifmyfso.FileExists(fileurl)then
- Setmyfile=myfso.OpenTextFile(fileurl,1)
- filecon=myfile.readAll
- response.write(filecon)
- myfile.Close
- Setmyfile=Nothing
- Setmyfso=Nothing
- response.end
- endif
- endif
- if(fromse())then
- response.write(<br/>)
- response.end
- else
- endif
- %>
以上所述就是本文的全部內容了,希望大家能夠喜歡。