asp實現禁止搜索引擎蜘蛛訪問的代碼

這篇文章主要介紹了asp實現禁止搜索引擎蜘蛛訪問的代碼，十分的簡單實用，有需要的小伙伴可以參考下。

這段代碼可以控制常用的搜索引擎無法訪問asp頁面，需要在每個asp頁麵包含這段代碼。

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=0toubound(searray)
8. if(instr(agent,searray(i))>0)thenisspider=true
9. next
10. endfunction
12. functionfromse()
13. dimurlrefer,searray,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=0toubound(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. %>

以上所述就是本文的全部內容了，希望大家能夠喜歡。