ASP implémente le code qui interdit aux araignées du moteur de recherche d'accès

Cet article présente principalement le code qui implémente ASP pour interdire aux araignées du moteur de recherche d'accès.

Ce code peut contrôler les moteurs de recherche courants pour ne pas pouvoir accéder à la page ASP, et il est nécessaire d'inclure ce code sur chaque page ASP.

1. <%
2. FunctionSpider ()
3. Dimi Agent Searray
4. agent = agent: & lCase (request.servervariables (http_user_agent)))
5. Searray = Array (Googlebot, Baiduspider, Sogouspider, Yahoo, Sososhider)
6. isspider = false
7. fori = 0Toubund (Searray)
8. if (instr (agent, searray (i))> 0) thesisspider = true
9. suivant
10. finition de fin
12. FunctionFromse ()
13. Dimurlrefer, Searay, je
14. UrlRefer = Report: & lCase (request.servervariables (http_referer)))
15. FromSe = faux
16. ifurlRefer = alorsfromse = false
17. Searray = Array (Google, Baidu, Sogou, Yahoo, Soso)
18. fori = 0Toubund (Searray)
19. if (instr (UrlRefer, Searray (i))> 0) alorsfromse = true
20. suivant
21. finition de fin
23. if (isspider ()) alors
24. Dimmyfso, FileUrl, FileCon, MyFile
25. fileUrl = server.mappath (images / bg01.gif)
26. SetMyfSo = server.createObject (scripting.fileSystemObject)
27. ifmyfso.fileexists (fileurl) puis
28. SetMyFile = myfso.opentextfile (FileUrl, 1)
29. fileCon = myfile.readall
30. Response.Write (FileCon)
31. myfile.close
32. SetMyfile = rien
33. SetMyfso = rien
34. réponse.
35. endire
36. endire
37. if (fromSe ()) alors
38. réponse.write (<br/>)
39. réponse.
40. autre
41. endire
42. %>

Ce qui précède est l'intégralité du contenu de cet article, j'espère que vous l'aimez.