whois 접속iP를 이용한 국가코드 가져오기

function getCountyCode(countyIP)

 

  url = "http://whois.kisa.or.kr/openapi/ipascc.jsp?query="& countyIP &"&key=해당사이트에서키값을받아야한다&answer=xml"

 

  Set objXmlHttp  = Server.CreateObject("Microsoft.XMLHTTP")

  objXmlHttp.open "POST", url , false

  objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  objXmlHttp.send   ''요청

  strResponseText = objXmlHttp.responseText  ''응답 텍스트 저장
  Set objXmlHttp  = Nothing

 

  ''DOM 파서를 이용해 파싱
  Set objMsXmlDom = Server.CreateObject("microsoft.XMLDOM")

  objMsXmlDom.async = false
  objMsXmlDom.loadXML( strResponseText ) ''스트링으로 로드하기 때문에 loadXML 메서드 사용.

 

  getCountyCode = objMsXmlDom.getElementsByTagName("countryCode").Item(0).Text

  Set objMsXmlDom = Nothing

 

end function