<% If request("mobile") = "off" Then Else %> <% End If dim oDOM, url, xml_file_name, CreateDate, NewsTitle, WebBody, LargeClass, MiddleClass, SmallClass, file_id ' 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 %>
<% adkey = "outlink_search" flag2 = Request.ServerVariables("HTTP_USER_AGENT") If (Instr(flag2, "iPhone") > 0 OR (Instr(flag2, "Android") > 0 And Instr(flag2, "SHW-M380")=0)) Then response.redirect "http://m.sportschosun.com/news.htm?id=" & request("id") & "&ServiceDate=" & request("ServiceDate") Else curday = date() nowday = Left(curday,10) a = WeekDay(nowday) b = time() c=Left(b,2) b = Mid(b, 4,2) b = replace(b, ":", "") b = b + 1 - 1 ' ad_on = 0 이면 광고 배제 If a = 6 Then If c = "오후" Then If b > 9 Then ad_on = 0 Else ad_on = 1 End If Else ad_on = 1 End If ElseIf a = 7 Then ' 토요일은 종일 배제 ad_on = 0 ElseIf a = 1 Then ' 일요일은 종일 배제 ad_on = 0 Else ad_on = 1 End If If request("id") = "" Then response.redirect "http://sports.chosun.com/news/ntype2_o.htm?ut=1&name=" & request("name") Else file_id = request("id") 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 CmsRelationName = SubNodes.getElementsByTagName("CmsRelationName")(0).Text WebBody = SubNodes.getElementsByTagName("WebBody")(0).Text GijaName = SubNodes.getElementsByTagName("GijaName")(0).Text PhotoCount = SubNodes.getElementsByTagName("PhotoCount")(0).Text If PhotoCount > 0 Then ServerDataFileName = SubNodes.getElementsByTagName("ServerDataFileName")(0).Text ImageSizeType = SubNodes.getElementsByTagName("AppendData")(0).getAttribute("ImageSizeType") End If LargeClass = SubNodes.getElementsByTagName("LargeClass")(0).getAttribute("name") MiddleClass = SubNodes.getElementsByTagName("MiddleClass")(0).getAttribute("name") SmallClass = SubNodes.getElementsByTagName("SmallClass")(0).getAttribute("name") Next Set Nodes = Nothing Set oDOM = Nothing CreateDate = replace(CreateDate, "T", " ") CreateDate = Left(CreateDate, 16) If SmallClass = "자동차" Then response.redirect "/news/utype_car.htm?id=" & request("id") & "&ServiceDate=" & request("ServiceDate") ElseIf Left(NewsTitle,5) = "[세계육상" Then response.redirect "/news/ntype2_daegu.htm?id=" & request("id") & "&ServiceDate=" & request("ServiceDate") ElseIf Left(NewsTitle,5) = "[대구육상" Then response.redirect "/news/ntype2_daegu.htm?id=" & request("id") & "&ServiceDate=" & request("ServiceDate") ElseIf Left(NewsTitle,5) = "[포토-대구육상" Then response.redirect "/news/ntype2_daegu.htm?id=" & request("id") & "&ServiceDate=" & request("ServiceDate") Else sub_title = MiddleClass %>
<% floating = "outlink_search" %>
  • 조선일보
  • 하이컷
  • 와이즈토토
  • 청룡영화상

<% If subr = "baseball" Then section_link = "/sports/baseball/main_baseball.htm" ElseIf subr = "soccer" Then section_link = "/sports/soccer/main_soccer.htm" ElseIf subr = "others" Then section_link = "/sports/others/main_others.htm" ElseIf subr = "game" Then section_link = "/enter/game/main_game.htm" ElseIf subr = "cartoon" Then section_link = "/cartoon/main.htm" ElseIf subr = "photo" Then section_link = "/photo/main_photo.htm" ElseIf (subr = "enter" OR subr = "movie" OR subr="culture" OR subr = "music" OR subr = "tv") Then section_link = "/enter/main_enter.htm" Else section_link = "/life/main_life.htm" End If %>

<% If subr = "baseball" Then flag = "1" End If If subr = "soccer" Then flag = "2" End If If category = "enter" Then flag = "3" End If If category = "life" Then flag = "5" End If If category = "photo" Then flag = "6" End If If subr = "game" Then flag = "7" End If If category = "cartoon" Then flag = "8" End If If subr = "review24" Then flag = "9" End If If subr = "funfum" Then flag = "10" 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 = URLEncodeUTF8(title_encode) %>

<%=NewsTitle%>

기사입력 | <%=CreateDate%>
<% '내용 추려내기... strLine = WebBody strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine, file_id , "http://manhwa.sportschosun.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, """, chr(34)) strLine = replace(strLine, "굛", "세") strLine = replace(strLine, "article", "") strLine = replace(strLine, "", "
") 'strLine = replace(strLine, "
", "") strLine = replace(strLine, " 0 Then set tagfree = New Regexp tagfree.Pattern= ServerDataFileName &"[^>]+>" tagfree.Global=true If ImageSizeType = "1" Then add_string = ServerDataFileName & "" width='550'>" ElseIf ImageSizeType = "2" Then add_string = ServerDataFileName & "" width='250'>" ElseIf ImageSizeType = "3" Then add_string = ServerDataFileName & "" width='180'>" Else add_string = ServerDataFileName & "">" End If add_string = replace(add_string, """, chr(34)) strLine=tagfree.Replace(strLine, add_string) End If ' 루미너스 광고 끝 'End If strLine = replace(strLine, "☞ 웹신문 보러가기", "") strLine = replace(strLine, "☞ 스포츠조선 구독", "") strLine = replace(strLine, "

[", "") strLine = replace(strLine, "] [", "") strLine = replace(strLine, "[

- Copyrights ⓒ 스포츠조선, 무단 전재 및 재배포 금지 -

", "") %>
<%=strLine%>

     
<% idd = CmsRelationName svcd = request("ServiceDate") NEWSTITLE = Replace(NEWSTITLE, "'", "") NEWSTITLE = Replace(NEWSTITLE, Chr(34), "") %>
<% If catid = "sports" Then ntom = "0xe8055" ElseIf catid = "entertainment" Then ntom = "0xe8056" Else ntom = "0xe8074" End If If ad_on = 1 Then %>
<% End If %>

많이 본 뉴스

<% End If %> <% End If %> <% End If %>