<% 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), "") %>

¸¹ÀÌ º» ´º½º

<% End If %> <% End If %> <% 'Ä«¿îÆà ½ÃÀÛ set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons5.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect Set Grs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT count(num) AS CNT FROM club_count_naver WHERE gisa_name = '" & CmsRelationName & "'" Set Grs = Dbcon.Execute(SQL) postcount = Grs("CNT") Set Grs2 = Server.CreateObject("ADODB.Recordset") If postcount = 0 Then NewsTitle = replace(NewsTitle, "'", "") SQL2 = "Insert into club_count_naver (gisa_name, category, svc_date, title, gija, wdate, gisa_count) values " SQL2 = SQL2 & "('" & CmsRelationName & "'" SQL2 = SQL2 & ",'" & types & "'" SQL2 = SQL2 & ",'" & request("ServiceDate") & "'" SQL2 = SQL2 & ",'" & NewsTitle & "'" SQL2 = SQL2 & ",'" & GijaName & "'" SQL2 = SQL2 & ",'" & CreateDate & "'" SQL2 = SQL2 & "," & 1 & ")" Else Set Grs3 = Server.CreateObject("ADODB.Recordset") SQL3 = "SELECT gisa_count FROM club_count_naver WHERE gisa_name = '" & CmsRelationName & "'" Set Grs3 = Dbcon.Execute(SQL3) gisacount = Grs3("gisa_count") SQL2 = "Update club_count_naver set gisa_count = " & gisacount & " + 1 where gisa_name = '" & CmsRelationName & "'" readnum = gisacount + 1 Grs3.close set Grs3 = Nothing End If Set Grs2 = Dbcon.Execute(SQL2) Grs.close Dbcon.close set Grs = Nothing set Grs2 = Nothing set Dbcon = Nothing 'Ä«¿îÆà ³¡ %> <% End If %>