最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 防采集代码 二
时间：2022-07-02 23:12:33 编辑：袖梨 来源：一聚教程网
YPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.**w*3.org/TR/REC-html40/loose.dtd">
user_agent=Request.ServerVariables("HTTP_USER_AGENT")
http_reffer=Request.ServerVariables("HTTP_REFERER")
server_name=Request.ServerVariables("SERVER_NAME")
'检查当前用户是否是蜘蛛人
function check(user_agent)
allow_agent=split("Baiduspider,Scooter,ia_archiver,Googlebot,FAST-WebCrawler,MSNBOT,Slurp",",")
check_agent=false
for agenti=lbound(allow_agent) to ubound(allow_agent)
if instr(user_agent,allow_agent(agenti))>0 then
check_agent=true
exit for
end if
next
check=check_agent
end function
if check(user_agent)=False then
if http_reffer="" or left(http_reffer,len("http://"&server_name)+1)"http://"&server_name&"/" then
%>
end if
end if
%>
相关文章
- 怪物猎人荒野电锯流盾斧配装搭配分享 10-01
- 优美伤感句子摘抄大全短句 10-01
- 刺客信条影传奇锁镰鬼牙获取方法分享 10-01
- 刺客信条影传奇轻甲能剧大师装扮获取方法 10-01
- 刺客信条影传奇武士刀血影获取方法分享 10-01
- 刺客信条影私贩运营支线任务攻略分享 10-01