asp实现禁止搜索引擎蜘蛛访问的代码

这段代码可以控制常用的搜索引擎无法访问asp页面，需要在每个asp页面包含这段代码。

<%function isspider（）dim i,agent,searrayagent="agent:"&LCase（request.servervariables（"http_user_agent"））searray=array（"googlebot","baiduspider","sogouspider","yahoo","Sosospider"）isspider= falsefor i=0 to ubound（searray） if （instr（agent,searray（i））>0） then isspider=truenextend functionfunction fromse（）dim urlrefer,searray,iurlrefer="refer:"&LCase（request.ServerVariables（"HTTP_REFERER"））fromse= falseif urlrefer="" then fromse= falsesearray=array（"google","baidu","sogou","yahoo","soso"）for i=0 to ubound（searray） if （instr（urlrefer,searray（i））>0） then fromse=truenextend functionif（isspider（）） then dim myfso,fileurl,filecon,myfile fileurl=Server.MapPath（"images/bg01.gif"） Set myfso=Server.CreateObject（"Scripting.FileSystemObject"） if myfso.FileExists（fileurl） thenSet myfile=myfso.OpenTextFile（fileurl, 1）filecon=myfile.readAllresponse.write（filecon）myfile.CloseSet myfile=NothingSet myfso=Nothingresponse.end end ifend ifif （fromse（）） then response.write（"<br/>"） response.endelseend if%>

以上所述就是本文的全部内容了，希望大家能够喜欢。