제목 : 도로명, 지번, 신 우편번호 5자리 검색하기. 공공데이터 우편번호 api 사용. (ASP)




소스 :



<%@Language="VBScript" CODEPAGE="65001" %>

<%

    Response.CharSet="utf-8"

    Session.codepage="65001"

    Response.codepage="65001"

    Response.ContentType="text/html;charset=utf-8"

%>

<!doctype html>

<html lang="en">

 <head>

  <meta charset="UTF-8">

  <meta name="Generator" content="EditPlus®">

  <meta name="Author" content="">

  <meta name="Keywords" content="">

  <meta name="Description" content="">

  <title>Document</title>

 </head>

 <body>

 <%

address = request("address")

 %>

 <form name="Frm" method="post" action="index.asp">

<input type="text" name="address" value="<%=address%>" />

<input type="submit" value="전송" />

 </form>

<%

address = server.urlencode(address)

strkey1 = "인증키입력"


strUrl = "http://openapi.epost.go.kr/postal/retrieveNewAdressAreaCdSearchAllService/retrieveNewAdressAreaCdSearchAllService/getNewAddressListAreaCdSearchAll?countPerPage=10&currentPage=1&ServiceKey="&strkey1&"&srchwrd="&address



    Set objXmlHttp = server.CreateObject("Msxml2.ServerXMLHTTP.3.0")

    objXmlHttp.open "GET", strUrl, false

    objXmlHttp.send

status = objXmlHttp.status


    strResponseText = objXmlHttp.responseText

    Set objXmlHttp = Nothing


    Set objMsXmlDom = Server.CreateObject("microsoft.XMLDOM")

    objMsXmlDom.async = False

    objMsXmlDom.loadXML(strResponseText)




Set NodeList = objMsXmlDom.documentElement.selectNodes("//NewAddressListResponse/cmmMsgHeader")

For Each Node In NodeList

    Set AddrNode = Node.selectSingleNode("responseTime/text()")

    if not AddrNode Is Nothing then response.write "responseTime=" &AddrNode.nodeValue & "<br/>"

    set AddrNode = nothing

    Set AddrNode = Node.selectSingleNode("successYN/text()")

    if not AddrNode Is Nothing then response.write "successYN=" &AddrNode.nodeValue & "<br/>"

    set AddrNode = nothing

    Set AddrNode = Node.selectSingleNode("returnCode/text()")

    if not AddrNode Is Nothing then response.write "returnCode=" &AddrNode.nodeValue & "<br/>"

    set AddrNode = nothing

    Set AddrNode = Node.selectSingleNode("totalCount/text()")

    if not AddrNode Is Nothing then response.write "totalCount=" & AddrNode.nodeValue & "<br/>"

    set AddrNode = nothing

    Set AddrNode = Node.selectSingleNode("countPerPage/text()")

    if not AddrNode Is Nothing then response.write "countPerPage=" &AddrNode.nodeValue & "<br/>"

    set AddrNode = nothing

    Set AddrNode = Node.selectSingleNode("totalPage/text()")

    if not AddrNode Is Nothing then response.write "totalPage=" &AddrNode.nodeValue & "<br/>"

    set AddrNode = nothing


    Set AddrNode = Node.selectSingleNode("currentPage/text()")

    if not AddrNode Is Nothing then response.write "currentPage=" &AddrNode.nodeValue & "<br/>"

    set AddrNode = nothing



Next


Set NodeList = Nothing



Set NodeList = objMsXmlDom.documentElement.selectNodes("//NewAddressListResponse/newAddressListAreaCdSearchAll")

For Each Node In NodeList

    Set AddrNode = Node.selectSingleNode("zipNo/text()")

    if not AddrNode Is Nothing then response.write AddrNode.nodeValue & "<br/>"

    set AddrNode = nothing

    Set AddrNode = Node.selectSingleNode("lnmAdres/text()")

    if not AddrNode Is Nothing then response.write AddrNode.nodeValue & "<br/>"

    set AddrNode = nothing

    Set AddrNode = Node.selectSingleNode("rnAdres/text()")

    if not AddrNode Is Nothing then response.write AddrNode.nodeValue & "<br/>"

    set AddrNode = nothing

Next


Set NodeList = Nothing


    Set objMsXmlDom = Nothing

%>


 </body>

</html>




내용 :


인증키 발급방법, 순서

   1, 회원가입 : http://www.data.go.kr (공공데이터 포털)

   2, 회원로그인

   3, 메인 메뉴중 [오픈 API] 클릭 -> 통합검색폼에서 '우편번호' 라고 검색하면

       '우편번호 정보' 라는 항목이 찾아짐.

   4, [활용신청] 버튼 클릭해서 '개발계정 신청' 양식을 작성함.

       * 시스템유형 : 일반

       * 활용목적 : 웹개발

       * 기타항목 : 입렵하라는 건 다 입력해줌

    5, 신청서 전송하면 실시간 승인완료 되고 인증키도 바로 발급됨

    6, 마이페이지 -> OPEN API -> 개발계정 -> 검색결과 -> 인증키 확인


인증키는 인코딩된 형태로 제공됨.



#상세 기능 설명


새우편번호 정보 : 도로명주소 및 지번주소를 페이지당 출력될 개수와 출력될 페이지에 맞춰 5자리 우편번호와 도로명주소 및 지번주소의 상세내역을 조회해주는 우편번호 정보조회 서비스






예제 소스 파일 :


 출처 :  https://www.data.go.kr




Posted by 잠수콩