<% addr = "http://www.kma.go.kr/wid/queryDFSRSS.jsp?zone=4143052000" '의왕 'addr = "http://www.kma.go.kr/wid/queryDFSRSS.jsp?zone=4825035000" '김해 Set XMLDOM = Server.CreateObject("Msxml2.Domdocument") XMLDOM.setProperty "ServerHTTPRequest", true XMLDOM.async = false XMLDOM.load addr If XMLDOM.parseError.ErrorCode <> 0 Then ' XML RSS 에 연결할수 없다면.. response.write ("XML RSS 를 읽어올수 없습니다.") else '연결되었다면 .. Set item = XMLDOM.selectNodes("//item") ' 포스트별 노드 Set title = XMLDOM.selectNodes("//item/title") ' 포스트 제목 Set description = XMLDOM.selectNodes("//item/description") ' 포스트 내용 Set link = XMLDOM.selectNodes("//item/link") ' 포스트 고유주소 Set body = XMLDOM.selectNodes("//item/description/header") Set data = XMLDOM.selectNodes("//item/description/body/data") Set wfKortest = XMLDOM.selectNodes("//item/description/body/data/wfKor") 'For i = 0 to item.length-1 'item 노드의 개수만큼 반복 'Response.write "제목: "+wfKortest.item(i).text+"
" 'Response.write "링크: "+link.item(i).text+"
" 'Response.write description.item(i).text+"

" 'next Response.write "
" Response.write "" Response.write "
" end if %>