<% strPathInfo = request("id") dim oDOM, url, xml_file_name, CreateDate, NewsTitle, WebBody, LargeClass, MiddleClass, SmallClass, file_id file_id = strPathInfo xml_file_name = file_id & ".xml" servicedate = request("ServiceDate") ' XML 데이터 주소 url = "http://sports.chosun.com/news/html/" & Left(servicedate,4) & "/" & Mid(servicedate,5,2) & "/" & Mid(servicedate,7,2) & "/" & xml_file_name 'url = "http://sports.chosun.com/news/html/2010/08/31/201008310100220050000967.xml" Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0") Set oDOM = Server.CreateObject("Microsoft.XMLDOM") with oDOM .async = False ' 동기식 호출 .setProperty "ServerHTTPRequest", True ' HTTP로 XML 데이터 가져옴 .Load(url) end with Set Nodes = oDOM.getElementsByTagName("WebNewsLayoutML") For each SubNodes in Nodes CreateDate = SubNodes.getElementsByTagName("ModifyDate")(0).Text NewsTitle = SubNodes.getElementsByTagName("NewsTitle")(0).Text WebBody = SubNodes.getElementsByTagName("WebBody")(0).Text Next strLine = WebBody strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine, file_id , "http://sccdn.chosun.com/news/html/" & Left(servicedate,4) & "/" & Mid(servicedate,5,2) & "/" & Mid(servicedate,7,2) & "/" & file_id) strLine = replace(strLine,b, c) ' 절대링크로 바꾸기... strLine = replace(strLine,">", ">") strLine = replace(strLine,"

", "


") strLine = replace(strLine, """, chr(34)) strLine = replace(strLine, "굛", "세") strLine = replace(strLine, "article", "") strLine = replace(strLine, "
", "
") Set Nodes = Nothing Set oDOM = Nothing CreateDate = replace(CreateDate, "T", " ") CreateDate = Left(CreateDate, 16) %><%=NewsTitle%>
<%=CreateDate%>
<%=strLine%>