Microsoft の XMLHTTP オブジェクトを使用して他の Web ページのデータを取得する

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml

  ’ Create an xmlhttp object:
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  ’ Or, for version 3.0 of XMLHTTP, use:
  ’ Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

  ’ Opens the connection to the remote server.
  xml.Open "GET", "http://www.4Guysfromrolla.com/", False
    
  ’ Actually Sends the request and returns the data:
  xml.Send

  ’Display the HTML both as HTML and as text
  Response.Write "<h1>The HTML text</h1><xmp>"
  Response.Write xml.responseText
  Response.Write "</xmp><p><hr><p><h1>The HTML Output</h1>"

  Response.Write xml.responseText
 
  
  Set xml = Nothing
%>

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
    
  xml.Open "GET", _
      "http://www.4guysfromrolla.com/webtech/code/mitchell-pres.zip", _
      False

  xml.Send
    
  ’ Add a header to give it a file name:
  Response.AddHeader "Content-Disposition", _
                     "attachment;filename=mitchell-pres.zip"
    
  ’ Specify the content type to tell the browser what to do:
  Response.ContentType = "application/zip"
    
  ’ Binarywrite the bytes to the browser
  Response.BinaryWrite xml.responseBody

  Set xml = Nothing
%>

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
    
  ’ Notice the two changes in the next two lines:
  xml.Open "POST", "http://www.imdb.com/Find", False
  xml.Send "select=All&for=The Usual Suspects"
    
  Response.Write xml.responseText

  Set xml = Nothing
%>

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml

  Set xml = Server.CreateObject("Microsoft.XMLHTTP")

  xml.Open "GET", "http://www.4Guysfromrolla.com/", False, _
           "Richard", "Welcome"
    
  ’ Actually Sends the request and returns the data:
  xml.Send

  Response.Write xml.responseText

  Set xml = Nothing
%>