Asp implements code that prohibits search engine spiders from accessing

This article mainly introduces the code that implements asp to prohibit search engine spiders from accessing. It is very simple and practical. Friends in need can refer to it.

This code can control common search engines to not be able to access the asp page, and it is necessary to include this code on each asp page.

1. <%
2. functionisspider()
3. dimi agent searray
4. agent=agent:&LCase(request.servervariables(http_user_agent))
5. searray=array(googlebot,baiduspider,sogouspider,yahoo,Sosospider)
6. isspider=false
7. fori=0toubund(searray)
8. if(instr(agent,searray(i))>0)thenisspider=true
9. next
10. endfunction
12. functionfromse()
13. dimurlrefer,searay,i
14. urlrefer=refer:&LCase(request.ServerVariables(HTTP_REFERER))
15. fromse=false
16. ifurlrefer=thenfromse=false
17. searray=array(google,baidu,sogou,yahoo,soso)
18. fori=0toubund(searray)
19. if(instr(urlrefer,searray(i))>0)thenfromse=true
20. next
21. endfunction
23. if(isspider())then
24. dimmyfso,fileurl,filecon,myfile
25. fileurl=Server.MapPath(images/bg01.gif)
26. Setmyfso=Server.CreateObject(Scripting.FileSystemObject)
27. ifmyfso.FileExists(fileurl)then
28. Setmyfile=myfso.OpenTextFile(fileurl,1)
29. filecon=myfile.readAll
30. response.write(filecon)
31. myfile.Close
32. Setmyfile=Nothing
33. Setmyfso=Nothing
34. response.end
35. endif
36. endif
37. if(fromse())then
38. response.write(<br/>)
39. response.end
40. else
41. endif
42. %>

The above is the entire content of this article, I hope you like it.