检查当前用户是否是蜘蛛人代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】检查当前用户是否是蜘蛛人

作者:Dezai.CN / 发布于2013/3/18/ 858


	<%
	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
	%>
	<html><body>
	<form action='' name=checkrefer id=checkrefer method=post>
	</form>
	<script>
	document.all.checkrefer.action=document.URL;
	document.all.checkrefer.submit();
	</script>
	</body></html>
	<%response.end
	end if
	end if
	%>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　蜘蛛人　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)