• 注册
热门标签
↑ 收起导航

asp防采集提高代码二

再来一段asp 防采集代码,自己测试!

vb 代码
 
  1. <%
  2. user_agent=Request.ServerVariables("HTTP_USER_AGENT")
  3. http_reffer=Request.ServerVariables("HTTP_REFERER")
  4. server_name=Request.ServerVariables("SERVER_NAME")
  5. '检查当前用户是否是蜘蛛
  6.  
  7. function check(user_agent)
  8.   allow_agent=split("Baiduspider,Scooter,ia_archiver,Googlebot,FAST-WebCrawler,MSNBOT,Slurp",",")
  9.   check_agent=false
  10.   for agenti=lbound(allow_agent) to ubound(allow_agent)
  11.   if instr(user_agent,allow_agent(agenti))>0 then
  12. check_agent=true

  13.   exit for
  14.   end if
  15.   next
  16.   check=check_agent
  17. end function
  18. if check(user_agent)=False then
  19. if http_reffer="" or left(http_reffer,len("http://"&server_name)+1)<>"http://"&server_name"/" then
  20. %>
  21. <html><body>
  22. <form action='' name=checkrefer id=checkrefer method=post>
  23. </form>
  24. <script>
  25. document.all.checkrefer.action=document.URL;
  26. document.all.checkrefer.submit();
  27. </script>
  28. </body></html>
  29. <%
  30. response.end
  31. end if
  32. end if
  33. %>
版权声明:转载请注明来自杨俊伟博客,本文地址:http://yangjunwei.com/a/113.html
除非注明,杨俊伟博客文章均为原创,转载请注明出处和链接!
 

沙发木了,占个板凳也不错~ »

  • 康清玉
    2015/12/21 23:41:44

    嘿嘿,回个贴表明我来过。

发表评论 



我还是想用邮箱注册

登录

忘记密码 ?

用第三方帐号快捷登录

已有账户?前往登录吧~

注册