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

时间:2021-05-28

这段代码可以控制常用的搜索引擎无法访问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) 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("<br/>") response.endelseend if%>

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

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章