asp xml파일정보 불러오기
Posted by Albert 4338Day 21Hour 31Min 30Sec ago [2013-06-05]
dim oDOM, url,xmlHttp, str_xml, oStream ,xmlDOM,RootNode, dr, dr_Child ,address
' XML 데이터 주소
url = "http://openapi.map.naver.com/api/geocode.php?key=9a0a8f9659e64bc9116d071953d0ee3b&encoding=euc-kr&coord=tm128&query=수원"
Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "GET", url, False
xmlHttp.Send
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Position = 0
oStream.Type = 1
oStream.Write xmlHttp.ResponseBody
oStream.Position = 0
oStream.Type = 2
oStream.Charset = "euc-kr"
sText = oStream.ReadText
oStream.Close
Set xmlDOM = server.CreateObject("MSXML.DOMDOCUMENT")
xmlDOM.async = False
xmlDOM.LoadXML sText
'작업시작
RootNode = "/geocode" '최상위 노드 입력
Set rootNode = xmlDOM.selectNodes(RootNode)
Set dr = rootNode(0).childNodes
For i = 0 To dr.length-1
Set dr_Child = dr(i).childNodes
For j = 0 to dr_Child.length-1
'Response.write dr_Child(j).nodeName
IF dr_Child(j).nodeName = "address" Then
address = dr_Child(j).text
Response.write address&"<br>"
End IF
IF dr_Child(j).nodeName = "point" Then
point = dr_Child(j).text
If Trim(point) <> "" Then
gpoint = Split(point," ")
gx = gpoint(0)
gy = gpoint(1)
End If
Response.write "<br>"&gx&"<br>"&gy&"<br>"
End IF
Next
Next
Set dr = Nothing
Set rootNode = Nothing
Set xmlDOM = Nothing