Class ASP 에서 사이트 소스 긁어오기

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

<% '페이지로드Post방식 Function getSiteSourcePost( siteURL, params )  Set httpObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1")  httpObj.open "POST" , siteURL, False  httpObj.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"  '포스트 방식시 위의 라인을 추가해 주어야 한다.     httpObj.Send params  '포스트의 파라미터는 Send 호출시 같이 값을 넘겨 주어야 한다.  httpObj.WaitForResponse  If httpObj.Status = "200" Then   getSiteSourcePost = httpObj.ResponseText  Else   getSiteSourcePost = null  End If End Function   '페이지로드 get방식 Function getSiteSourceGet( siteURL, params )  Set httpObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1")  httpObj.open "GET", siteURL & "?" & params, False     httpObj.Send()  httpObj.WaitForResponse  If httpObj.Status = "200" Then   getSiteSourceGet = httpObj.ResponseText  Else   getSiteSourceGet = null  End If End Function   '네이버 response.write(getSiteSourcePost("http://www.naver.com",""))   '다음 response.write(getSiteSourcePost("http://www.daum.net","")) %>