ASP版友情链接欺骗蜘蛛劫持视频教程
index.asp
<%
function Getbot()
dim s_agent
GetBot=""
s_agent=Request.ServerVariables("HTTP_USER_AGENT")
if instr(1,s_agent,"googlebot",1) > 0 then
GetBot="google"
end if
if instr(1,s_agent,"baiduspider",1) > 0 then
GetBot="baidu"
end if
end function
if GetBot="baidu" or GetBot="google" then
Response.Write""
else
Response.Write"<a href=http://www.slin8.com>seo</a> <a href=http://www.sinala.net>超级外链工具</a>"
end if
%>
jc.asp
<html>
<title>网站标题</title>
<body>
<center>
这里是网站正文
</center>
</body>
<!--#include file="jc.asp"-->
</html>
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
