원격지 파일을 읽기

'==================================================
' 원격지 파일을 읽어들인다.
'   호출 방법    :  getSiteSourceGet( siteURL, params )
'==================================================
Function getSiteSourceGet( siteURL, params )
 Set httpObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
 
 if Request.ServerVariables("HTTPS") = "on" then
  if instr(1,siteURL,"https://") < 1 then
   siteURL = "https://" & Request.ServerVariables("HTTP_HOST") & siteURL
  end if
 else
  if instr(1,siteURL,"http://") < 1 then
   siteURL = "http://" & Request.ServerVariables("HTTP_HOST") & siteURL
  end if
 End If 

 if len(params) > 0 then
  httpObj.open "GET", siteURL & "?" & params, False
 else
  httpObj.open "GET", siteURL, False
 end if
 
 httpObj.Send()
 httpObj.WaitForResponse
 If httpObj.Status = "200" Then
  getSiteSourceGet = httpObj.ResponseText
 Else
  getSiteSourceGet = null
 End If
End Function