asp实现禁止搜索引擎蜘蛛访问的代码
2018-09-06 11:49
这段代码可以控制常用的搜索引擎无法访问asp页面，需要在每个asp页面包含这段代码。
<% function isspider() dim i,agent,searray agent=agent:&LCase(request.servervariables(http_user_agent)) searray=array(googlebot,baiduspider,sogouspider,yahoo,Sosospider) isspider= false for i=0 to ubound(searray) if (instr(agent,searray(i))>0) then isspider=true next end function function fromse() dim urlrefer,searray,i urlrefer=refer:&LCase(request.ServerVariables(HTTP_REFERER)) fromse= false if urlrefer= then fromse= false searray=array(google,baidu,sogou,yahoo,soso) for i=0 to ubound(searray) if (instr(urlrefer,searray(i))>0) then fromse=true next end function if(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 if end if if (fromse()) then response.write(<br/>) response.end else end if %>
以上所述就是本文的全部内容了，希望大家能够喜欢。
上一篇：FSO一些代码
下一篇：ASP程序快速生成Excel文件