ASP实现了禁止搜索引擎蜘蛛访问的代码。

此代码可以控制普通搜索引擎访问ASP页面的不足,并且每个ASP页面都需要代码。


<
isspider()函数
朦胧的我,代理,searray
代理=经纪人:LCase(request.servervariables(http_user_agent ))
searray =阵列(oglebot
isspider = false
我= 0,UBound(searray)
如果(仪器(代理,searray(I))> 0)然后isspider =真
下一个
端功能

fromse()函数
昏暗的urlrefer,searray,我
urlrefer = 是指:LCase(request.servervariables(http_referer ))
fromse = false
如果urlrefer = 然后fromse = false
searray =阵列(眉目传情
我= 0,UBound(searray)
如果(仪器(urlrefer,searray(I))> 0)然后fromse =真
下一个
端功能

如果(isspider())然后
昏暗的myfso FileURL filecon来,,,
FileURL = server.mappath(图像/ BG01。gif)
集myfso = server.createobject(脚本。FileSystemObject )
如果myfso.fileexists(FileURL)然后
集来= myfso.opentextfile(FileURL,1)
filecon = myfile.readall
response.write(filecon)
近来。
设置文件中=没有
集myfso =没有
response.end
最后如果
最后如果
如果(fromse())然后
response.write()
response.end
其他的
最后如果
%>




以上是本文的全部内容,希望大家能喜欢。