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 %>
以上所述就是本文的全部内容了,希望大家能够喜欢。