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

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

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) then  Set myfile=myfso.OpenTextFile(fileurl, 1)  filecon=myfile.readAll  response.write(filecon)  myfile.Close  Set myfile=Nothing  Set myfso=Nothing  response.end end ifend if                if (fromse()) then response.write("
") response.endelseend if%>

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