zblogasp 判断是否蜘蛛来源-百度

<%
function checkbd()
dim i,agent,searray
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","baiduspider","sogouspider","yahoo","Sosospider")
checkbd= false
for i=0 to ubound(searray)
 if (instr(agent,searray(i))>0) then checkbd=true
next
end function
dim guangao
guangao = "<script type=\'text\/javascript\' src=\'\/youxi.js\'><\/script>"
%>
<%if checkbd()=false then %>
document.writeln('<%= guangao %>');
<%End If%>


版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请通知我们,一经查实,本站将立刻删除。


客服