ASP Server.CreateObject("Microsoft.XMLHTTP")

<%
Session.Codepage=65001
Response.ContentType="text/HTML"
Response.Charset="utf-8"

Function muzcast_pcode_chk(pcode,id,site_code)

Dim check_url
check_url = "http://url/http_test.asp?pcode=" & pcode & "&id=" & id & "&site_code=" & site_code
Set xml = server.CreateObject("Microsoft.XMLHTTP") '개체생성
xml.open "POST", "" & check_url & "", false '원하는 url불러오기
xml.send ""
strStatus = xml.Status '실행상태 받아오기
return_value = xml.responseText '실제 받고자하는 데이터
response.write return_value
set xml = nothing '개체 소멸

End Function

pcode_chk permission_code,id,site_code

%> 

[출처] Microsoft.XMLHTTP|작성자 진카자마