<% ' XML μ￥L? ?¼? url = "http://sports.chosun.com/weather.xml" Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0") Set oDOM = Server.CreateObject("Microsoft.XMLDOM") with oDOM .async = False ' μ¿±? ?? .setProperty "ServerHTTPRequest", True ' HTTP·?XML μ￥L? °¡n¿? .Load(url) end with Randomize() RandomNo = Int(6 * Rnd()) RandomNo = RandomNo + 1 Set Nodes = oDOM.getElementsByTagName("weather") i = 1 For each SubNodes in Nodes if i = RandomNo Then region = SubNodes.getElementsByTagName("region")(0).Text temp = SubNodes.getElementsByTagName("temp")(0).Text image = SubNodes.getElementsByTagName("image")(0).Text image = image + 1 -1 If image < 10 Then image = "0" & image End If End If i = i + 1 Next %>
<% category = "photo" subr = "photo" %>
<% If request("seq") = "" Then seq = 0 Else seq = request("seq") End If '기사 내용 추리기 dim oDOM, url, xml_file_name, CreateDate, NewsTitle, WebBody, LargeClass, MiddleClass, SmallClass, file_id set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons7.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect If request("id") = "" Then sql7 = "SELECT newskey, SVC_DATE FROM NEWSINFO where webnews_type = 'photonews' order by MODIFYDATE desc limit 1" set rs7=Dbcon.Execute(sql7) file_id = rs7("newskey") xml_file_name = file_id & ".xml" servicedate = rs7("SVC_DATE") Else file_id = Trim(request("id")) xml_file_name = file_id & ".xml" servicedate = Trim(request("ServiceDate")) End If ' XML 데이터 주소 url = "http://sports.chosun.com/news/html/" & Left(servicedate,4) & "/" & Mid(servicedate,5,2) & "/" & Mid(servicedate,7,2) & "/" & xml_file_name 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 NewsTitle = SubNodes.getElementsByTagName("NewsTitle")(0).Text CreateDate = SubNodes.getElementsByTagName("ModifyDate")(0).Text PhotoCount = SubNodes.getElementsByTagName("PhotoCount")(0).Text If PhotoCount <> 0 Then ImgFilename = SubNodes.getElementsByTagName("ServerDataFileName")(0).Text End If WebText = SubNodes.getElementsByTagName("WebText")(0).Text Next Set Nodes = Nothing Set oDOM = Nothing CreateDate = replace(CreateDate, "T", " ") CreateDate = Left(CreateDate, 16) %> <% If seq = 1 Then %> <% ElseIf seq = 2 Then %> <% End If %>
<% If request("id") = "" Then %>

&ServiceDate=<%=rs7("SVC_DATE")%>" class="cfff14" target="_top"><%=NewsTitle%>

<% Else %>

&ServiceDate=<%=servicedate%>" class="cfff14" target="_top"><%=NewsTitle%>

<% End If %> 포토화보가기

    <% sql3 = "SELECT Newskey, SVC_DATE FROM NEWSINFO where webnews_type = 'photonews' order by MODIFYDATE desc limit 16" set rs3=Dbcon.Execute(sql3) i = 1 Do until rs3.EOF sql2 = "SELECT ImageFileName FROM NEWSIMG where newskey = '" & rs3("Newskey") & "'" set rs2=Dbcon.Execute(sql2) servicedate2 = rs3("SVC_DATE") ImageFileName2 = rs2("ImageFileName") ImageFileName2 = replace(ImageFileName2, ".jpg", "_l.jpg") %>
  • &ServiceDate=<%=servicedate2%>', '_self');" />
    • <% rs2.Close Set rs2 = Nothing rs3.Movenext i = i + 1 Loop rs3.Close Set rs3 = Nothing %>

<% If photo_num = 2 Then %>

<% Else %>

<% End If %>

<% If photo_num = 2 Then %>

<% Else %>

<% End If %>
<% If request("id") = "" Then %>

&ServiceDate=<%=rs7("SVC_DATE")%>" class="cfff18" target="_top"><%=NewsTitle%>

<% Else %>

&ServiceDate=<%=servicedate%>" class="cfff18" target="_top"><%=NewsTitle%>

<% End If 'SNS 연동 시작 Public Function URLEncodeUTF8(byVal szSource) Dim szChar, WideChar, nLength, i, result nLength = Len(szSource) For i = 1 To nLength szChar = Mid(szSource, i, 1) If Asc(szChar) < 0 Then WideChar = CLng(AscB(MidB(szChar, 2, 1))) * 256 + AscB(MidB(szChar, 1, 1)) If (WideChar And &HFF80) = 0 Then result = result & "%" & Hex(WideChar) ElseIf (WideChar And &HF000) = 0 Then result = result & _ "%" & Hex(CInt((WideChar And &HFFC0) / 64) Or &HC0) & _ "%" & Hex(WideChar And &H3F Or &H80) Else result = result & _ "%" & Hex(CInt((WideChar And &HF000) / 4096) Or &HE0) & _ "%" & Hex(CInt((WideChar And &HFFC0) / 64) And &H3F Or &H80) & _ "%" & Hex(WideChar And &H3F Or &H80) End If Else result = result + szChar End If Next URLEncodeUTF8 = result End Function title_encode = replace(NewsTitle, chr(34), """) title_encode = URLEncodeUTF8(title_encode) %>
페이스북 보내기 트위터 보내기 미투데이 보내기 구글 보내기 <%=CreateDate%>

<% WebText = replace(WebText, chr(10), "
") %> <%=WebText%>

포토화보

  • 포토화보 전체보기
    <% ElseIf k = 45 Then k = 0 %>
<% End If %> <% rs15.Movenext i = i + 1 k = k + 1 Loop rs15.Close Set rs15 = Nothing Dbcon.Close Set Dbcon = Nothing %>