ASP реализует код, который запрещает доступ к поисковым системам

Эта статья в основном представляет код, который реализует ASP, чтобы запретить поисковые пауки.

Этот код может управлять общими поисковыми системами, чтобы не иметь возможности получить доступ к странице ASP, и необходимо включить этот код на каждую страницу ASP.

1. <%
2. functionisspider ()
3. Агент DiMi Searray
4. агент = агент: & lcase (request.servervariables (http_user_agent))
5. searray = массив (Googlebot, Baiduspider, Sogouspider, Yahoo, Sosospider)
6. Isspider = false
7. fori = 0toubund (searray)
8. if (instr (агент, searray (i))> 0) thenisspider = true
9. следующий
10. конечная функция
12. functionFromse ()
13. Dimurlrefer, Searay, я
14. urlrefer = см.
15. fromse = false
16. ifurlrefer = thenfromse = false
17. searray = массив (Google, Baidu, Sogou, Yahoo, Soso)
18. fori = 0toubund (searray)
19. if (instr (urlrefer, searray (i))> 0) then formse = true
20. следующий
21. конечная функция
23. if (iSspider ()) тогда
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 = ничего
33. SetMyfso = ничего
34. response.end
35. эндиф
36. эндиф
37. if (fromse ()) тогда
38. response.write (<br/>)
39. response.end
40. еще
41. эндиф
42. %>

Приведенное выше содержимое этой статьи, я надеюсь, вам понравится.