ASP mengimplementasikan kode yang melarang laba -laba mesin pencari mengakses

Artikel ini terutama memperkenalkan kode yang mengimplementasikan ASP untuk melarang laba -laba mesin pencari untuk mengakses.

Kode ini dapat mengontrol mesin pencari umum agar tidak dapat mengakses halaman ASP, dan perlu untuk memasukkan kode ini pada setiap halaman ASP.

1. <%
2. functionisspider ()
3. Dimi Agent Searray
4. agen = agen: & lcase (request.serverVariable (http_user_agent)))
5. searray = array (googleebot, baiduspider, sogouspider, yahoo, sosospider)
6. isspider = false
7. fori = 0toubund (searray)
8. if (instr (agen, searray (i))> 0) thenisspider = true
9. Berikutnya
10. fungsi endfungsi
12. functionFromse ()
13. Dimurlrefer, Searay, i
14. urlrefer = rujuk: & lcase (request.serverVariable (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. Berikutnya
21. fungsi endfungsi
23. if (isSpider ()) kemudian
24. dimmyfso, fileurl, filecon, myfile
25. fileurl = server.mappath (gambar/bg01.gif)
26. SetMyfSO = server.CreateObject (Scripting.FilesystemObject)
27. ifmyfso.fileexists (fileurl) lalu
28. SetMyFile = myfso.opentextFile (fileurl, 1)
29. filecon = myfile.readall
30. Response.write (FileCon)
31. myfile.close
32. SetMyFile = tidak ada
33. SetMyfso = tidak ada
34. respons.end
35. endif
36. endif
37. if (fromse ()) lalu
38. response.write (<br/>)
39. respons.end
40. kalau tidak
41. endif
42. %>

Di atas adalah seluruh konten artikel ini, saya harap Anda menyukainya.