", "
") strLine = replace(strLine, """, chr(34)) strLine = replace(strLine, "굛", "세") strLine = replace(strLine, "article", "") strLine = replace(strLine, "
| |
|
<%
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, " |
| <%=CreateDate%> |
