ASP - 네이버 쇼핑 API XML파싱 하기 예제

---

네이버 쇼핑 API 파싱 샘플

---

안녕하세요.

고코더 입니다.

제 홈페이지 묻고 답하기 게시판에

첫 글이 올라왔습니다.

http://gocoder.net/qna/898

ASP 팁 강의를 좀더 다뤄 달라고 하는 요청이었습니다.

제 에버노트에 정리한 ASP 개인 레퍼런스 문서를

거의 블로그에 올려서 쓸게 없지만

▼고코더의 에버노트 ASP노트북 일부분 모습 

잘 찾아보니 네이버 쇼핑 API를 파싱했던 예제가 있어 올립니다.

사실 큰 도움이 안될 수도 있는 소스 이지만

누군가에게는 시간을 아끼는 귀중한 자료가 되길

gocoder.asp

<%
  Set objXmlHttp = server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
  objXmlHttp.open "POST", "http://openapi.naver.com/search?key=APIkey&query="& Replace(goodsname,"&","")&"&display=5&start=1&target=shop&sort=asc", false
 
  objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  objXmlHttp.send
  strResponseText = objXmlHttp.responseText
  Set objXmlHttp = Nothing
 
  Set objMsXmlDom = Server.CreateObject("microsoft.XMLDOM")
  objMsXmlDom.async = false
  objMsXmlDom.loadXML(strResponseText)
 
  If len(strResponseText) < 400 Then
       refer_title= "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/title").Item(0).TeXt)
       refer_link = "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/link").Item(0).Text)
       refer_image = "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/image").Item(0).Text)
       refer_lprice = 0
       refer_mallName = "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/mallName").Item(0).Text)
       refer_productId = "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/productId").Item(0).Text)
       refer_productType = "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/productType").Item(0).Text)
 
  Else
       '추출 (getElementsByTagName("xml엘리먼트명"))
       refer_title= "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/title").Item(0).TeXt)
       refer_link = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/link").Item(0).Text)
       refer_image = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/image").Item(0).Text)
       refer_lprice = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/lprice").Item(0).Text)
       refer_mallName = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/mallName").Item(0).Text)
       refer_productId = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/productId").Item(0).Text)
       refer_productType = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/productType").Item(0).Text)
      
  End If
  Set objMsXmlDom = Nothing
%>

---

ASP XML 관련 글들

---

ASP - XML 하위 노드 반복문으로 가져오기

ASP - XML 가져오기 예제

---

마무리

---

많이 질문해주세요

최대한 다 다뤄보겠습니다!!

http://gocoder.net/qna