程序代码:
  <%
  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 '   '设置对象,具体xmlhttp详细使用方法请见:http://www.cnsxml.com/blogview.asp?logID=273  《XMLHTTP 对象及其方法》一文

  xml.Send '发送请求
   
  Response.AddHeader Content-Disposition, attachment;filename=mitchell-pres.zip  '添加头给这个文件
   
  Response.ContentType = application/zip '设置输出类型
   
  Response.BinaryWrite xml.responseBody ’输出二进制到浏览器

  Set xml = Nothing
  %>