home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 4 / hacker04 / 04_HACK04.ISO / src / ASP / http.asp < prev    next >
Encoding:
Text File  |  2001-06-08  |  2.8 KB  |  92 lines
  1. <%
  2. '*******************************************************
  3. '*     ASP 101 Sample Code - http://www.asp101.com     *
  4. '*                                                     *
  5. '*   This code is made available as a service to our   *
  6. '*      visitors and is provided strictly for the      *
  7. '*               purpose of illustration.              *
  8. '*                                                     *
  9. '* Please direct all inquiries to webmaster@asp101.com *
  10. '*******************************************************
  11. %>
  12.  
  13. <%
  14. ' Start out declaring our variables.
  15. ' You are using Option Explicit aren't you?
  16. Dim objXmlHttp
  17. Dim strHTML
  18.  
  19. ' This is the server safe version from MSXML3.
  20. Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
  21.  
  22. ' If you have trouble and are getting an error on the .open
  23. ' line like this:
  24. '
  25. ' msxml3.dll error '80070005'
  26. ' Access is denied.
  27. '
  28. ' Try using the proxycfg.exe tool.  We're not using a proxy
  29. ' at all, but it wouldn't work for us until we explicitly
  30. ' ran proxycfg telling it the connection is direct:
  31. ' 
  32. ' proxycfg -d
  33. '
  34. ' forum posts: http://www.asp101.com/forum/display_message.asp?mid=51841
  35. '
  36. ' This had us really annoyed for a while!  Thanks go out to
  37. ' Andrew Stifora and Brian Espey for help on getting that
  38. ' straightened out.
  39.  
  40. ' The old not so safe version!
  41. 'Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP")
  42.  
  43. ' Here we get the request ready to be sent.
  44. ' MS's wording: 'Initializes a request and specifies the method,
  45. ' URL, and authentication information for the request.
  46. ' Syntax:
  47. '   .open(bstrMethod, bstrUrl, bAsync, bstrUser, bstrPassword)
  48. 'objXmlHttp.open "GET", "http://www.asp101.com/samples/httpsamp.asp", False
  49. objXmlHttp.open "GET", "http://10.2.3.180/samples/httpsamp.asp", False
  50.  
  51. ' Send it on it's merry way.
  52. objXmlHttp.send
  53.  
  54. ' Print out the request status:
  55. Response.Write "Status: " & objXmlHttp.status & " " _
  56.     & objXmlHttp.statusText & "<br />"
  57.  
  58. ' Get the text of the response.
  59. ' This object is designed to deal with XML so it also has the
  60. ' following properties: responseBody, responseStream, and
  61. ' responseXML.  We just want the text so I use:
  62. strHTML = objXmlHttp.responseText
  63.  
  64. ' Trash our object now that I'm finished with it.
  65. Set objXmlHttp = Nothing
  66.  
  67. ' All that's left to do is display the HTML we just retreived.
  68. ' I do it first as plain HTML (which gets interpretted by the
  69. ' browser like any other HTML) and then as source (by HTML
  70. ' encoding it so the tags display instead of rendering)
  71. ' The <h1>s and <table>s are just for appearence.
  72. %>
  73.  
  74. <h1>Here's The Page:</h1>
  75. <table border="1" bgcolor="#FFFFFF">
  76. <tr><td>
  77. <%= strHTML %>
  78. </td></tr>
  79. </table>
  80.  
  81. <br />
  82.  
  83. <h1>Here's The Code:</h1>
  84. <table border="1" bgcolor="#FFFFFF">
  85. <tr><td>
  86. <pre>
  87.  
  88. <%= Server.HTMLEncode(strHTML) %>
  89. </pre>
  90. </td></tr>
  91. </table>
  92.