home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advhttp / act_get.asp next >
Encoding:
Text File  |  2001-04-17  |  773 b   |  26 lines
  1. <html>
  2. <head>
  3.     <title>AdvHTTP Component</title>
  4. </head>
  5. <body>
  6. <%
  7. dim HTTP
  8. set HTTP = Server.CreateObject("AdvHTTP.HTTP")
  9.     HTTP.ProxyServer = Request.Form("ProxyServer")
  10.     HTTP.ProxyPort = Request.Form("ProxyPort")
  11.     HTTP.Path = Request.Form("Path")' path at which you want to save return data
  12.     HTTP.SaveToFile = Request.Form("SaveToFile")' file name to be saved
  13.     HTTP.URL = Request.Form("URL")
  14.     set Result = HTTP.Get()
  15.     if (HTTP.IsError = 1) then
  16.         Response.Write "Error: " & HTTP.ErrorReason & "<br>"
  17.     else
  18.         Response.Write "MimeType: " & Result.MimeType & "<br>" & "Header: " & Result.Header & "<br>" & "FileContent: " & Result.FileContent & "<br>"
  19.     end if
  20. set Result = Nothing
  21. set HTTP = Nothing
  22. %>
  23. <a href="dsp_get.htm">Back</a>
  24. </body>
  25. </html>
  26.