百度快照劫持案例—蜘蛛劫持代码

微商推广平台

我想大家早已经看到如:时时彩平台 百度快照劫持案例了吧。
连接地址:
通过百度点击排名第一的站,我们看到的是一个时时彩宣传页面。如果直接在浏览器输入显示的则是这个站本来的程序。
通过查看源码我们看不到heike是用什么代码实现的这效果。隐藏性很高。
这个代码是在百度或者谷歌蜘蛛来抓取的时候自动判断。
废话不多说,直接上代码:

[html]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<% 定义方法函数
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
%>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>
<body>
<table width="751" height="512">
<tr>
<td height="132" bgcolor="#00CCFF"><div align="center">网页头文件(可以是导航栏、图片获其他内容)</div></td>
</tr>
<tr><td height="311">网页内容部分</td>
</tr>
<%
if GetBot="baidu" or GetBot="google" then
Response.Write "<a href='http://www.affaircredit.com'>(友链一)云石</a><a href='http://www.affaircredit.com'>(友链二)挖贝</a>"
else
Response.Write"不做处理,或输出任意"
end if
%>
<tr><td bgcolor="#CCCCCC"><div align="center">友情链接部分</div></td>
</tr>
</table>
</body>
</noframes></html>[/html]

完毕,Ope欢迎大家多思考,多练习,这样才能进步!

小Y电商
微商怎么找客源

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

目前评论:1   其中:访客  0   博主  1

  1. 小Y电商 野牛社区

    过几天写一篇稿子,先顶云石一下