<%
' Start out declaring our variables.
' You are using Option Explicit aren't you?
Dim objWinHttp
Dim strHTML

' New WinHTTP v5.1 - from MS: 
'
' With version 5.1, WinHTTP is now an operating-system component
' of the following systems:
'  - Microsoft Windows Server 2003 family
'  - Microsoft Windows XP, Service Pack 1
'  - Microsoft Windows 2000, Service Pack 3 (except Datacenter Server)

Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")

' Full Docs:
' http://msdn.microsoft.com/library/en-us/winhttp/http/portal.asp
'
' If you have trouble or are getting connection errors,
' try using the proxycfg.exe tool.

' Here we get the request ready to be sent.
' First 2 parameters indicate method and URL.
' The third is optional and indicates whether or not to
' open the request in asyncronous mode (wait for a response
' or not).  The default is False = syncronous = wait.
' Syntax:
'   .Open(bstrMethod, bstrUrl [, varAsync])
objWinHttp.Open "GET", "http://www.asp101.com/samples/httpsamp.asp"

' Send it on it's merry way.
objWinHttp.Send

' Print out the request status:
Response.Write "Status: " & objWinHttp.Status & " " _
	& objWinHttp.StatusText & "<br />"

' Get the text of the response.
strHTML = objWinHttp.ResponseText

' Trash our object now that I'm finished with it.
Set objWinHttp = Nothing

' All that's left to do is display the HTML we just retreived.
' I do it first as plain HTML (which gets interpretted by the
' browser like any other HTML) and then as source (by HTML
' encoding it so the tags display instead of rendering)
' The <h1>s and <table>s are just for appearence.
%>

<h1>Here's The Page:</h1>
<table border="1">
<tr><td>
<%= strHTML %>
</td></tr>
</table>

<br />

<h1>Here's The Code:</h1>
<table border="1">
<tr><td>
<pre>

<%= Server.HTMLEncode(strHTML) %>
</pre>
</td></tr>
</table>
저작자 표시 비영리 동일 조건 변경 허락
신고

'☆Develpoer > └ asp' 카테고리의 다른 글

XML 데이터 파싱하기  (0) 2011.02.16
인증번호생성 함수  (0) 2011.02.16
Http Request 5  (0) 2011.02.16
Mod Function  (0) 2011.02.16
Classic ASP page template for VS 2005  (0) 2011.01.28
Database Filtering injection  (0) 2010.12.29

+ Recent posts