<% num = request("num") strPathInfo = request("name") img_fileinfo = right(strPathInfo,12) img_fileinfo = Left(img_fileinfo,8) strPathInfo = replace(strPathInfo, ";", "") strPathInfo = replace(strPathInfo, "&", "") 'response.write strPathInfo k = Right(Trim(strPathInfo),5) If (k = "1.htm" OR k = "2.htm" OR k = "3.htm" OR k = "4.htm" OR k = "5.htm" OR k = "6.htm" OR k = "7.htm" OR k = "8.htm" OR k = "9.htm" OR k = "0.htm") Then a = Right(strPathInfo, 12) b = Mid(a, 1, 8) strPhysicalPath = Server.MapPath(strPathInfo) set objFSO = Server.CreateObject("Scripting.FileSystemObject") set objFile = objFSO.GetFile(strPhysicalPath) set objFileTextStream = objFile.OpenAsTextStream(1, -2) strFileLine = objFileTextStream.ReadLine p = Mid(Trim(strPathInfo), 14, 6) sub_title = Mid(strFileLine,13,2) If sub_title = "축구" Then strPhysicalPath2 = Server.MapPath("/news/template/article_soccer2.htm") p = Mid(Trim(strPathInfo), 14, 6) catid = "sports" types = "sports" floating = "sports" ElseIf sub_title = "야구" Then If Mid(strFileLine,14,2) = "구/" Then strPhysicalPath2 = Server.MapPath("/news/template/article_baseball2.htm") catid = "sports" types = "sports" floating = "sports" sub_title = "MLB/NPB" Else strPhysicalPath2 = Server.MapPath("/news/template/article_baseball2.htm") catid = "sports" types = "sports" floating = "sports" sub_title = "MLB/NPB" End If p = Mid(Trim(strPathInfo), 14, 6) ElseIf sub_title = "스포" Then strPhysicalPath2 = Server.MapPath("/news/template/article_others2.htm") p = Mid(Trim(strPathInfo), 14, 6) catid = "sports" types = "sports" floating = "sports" ElseIf sub_title = "종합" Then strPhysicalPath2 = Server.MapPath("/news/template/article_others2.htm") p = Mid(Trim(strPathInfo), 14, 6) catid = "sports" types = "sports" floating = "sports" sub_title = "종합" ElseIf sub_title = "농구" Then strPhysicalPath2 = Server.MapPath("/news/template/article_others2.htm") p = Mid(Trim(strPathInfo), 14, 6) catid = "sports" types = "sports" floating = "sports" ElseIf sub_title = "골프" Then strPhysicalPath2 = Server.MapPath("/news/template/article_others2.htm") p = Mid(Trim(strPathInfo), 14, 6) catid = "sports" types = "sports" floating = "sports" ElseIf sub_title = "TV" Then strPhysicalPath2 = Server.MapPath("/news/template/article_tv2.htm") p = Mid(Trim(strPathInfo), 21, 6) catid = "entertainment" types = "entertainment" floating = "enter" ElseIf sub_title = "TV" Then strPhysicalPath2 = Server.MapPath("/news/template/article_tv2.htm") p = Mid(Trim(strPathInfo), 21, 6) catid = "entertainment" types = "entertainment" floating = "enter" ElseIf sub_title = "음악" Then strPhysicalPath2 = Server.MapPath("/news/template/article_music2.htm") p = Mid(Trim(strPathInfo), 21, 6) catid = "entertainment" types = "entertainment" floating = "enter" ElseIf sub_title = "영화" Then strPhysicalPath2 = Server.MapPath("/news/template/article_movie2.htm") p = Mid(Trim(strPathInfo), 21, 6) catid = "entertainment" types = "entertainment" floating = "enter" ElseIf sub_title = "문화" Then strPhysicalPath2 = Server.MapPath("/news/template/article_culture2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "life" floating = "life" ElseIf sub_title = "생활" Then strPhysicalPath2 = Server.MapPath("/news/template/article_living2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "game" floating = "life" ElseIf sub_title = "게임" Then strPhysicalPath2 = Server.MapPath("/news/template/article_game2.htm") p = Mid(Trim(strPathInfo), 21, 6) catid = "it" types = "game" floating = "game" ElseIf sub_title = "뉴스" Then strPhysicalPath2 = Server.MapPath("/news/template/article_topic2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "life" floating = "life" ElseIf sub_title = "세계" Then strPhysicalPath2 = Server.MapPath("/news/template/article_world2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "life" floating = "life" ElseIf sub_title = "경제" Then strPhysicalPath2 = Server.MapPath("/news/template/article_economic2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "life" floating = "life" ElseIf sub_title = "정치" Then strPhysicalPath2 = Server.MapPath("/news/template/article_politic2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "life" floating = "life" ElseIf sub_title = "스페" Then strPhysicalPath2 = Server.MapPath("/news/template/article_special2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "life" floating = "life" ElseIf sub_title = "레저" Then strPhysicalPath2 = Server.MapPath("/news/template/article_travel2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "life" floating = "life" ElseIf sub_title = "경마" Then strPhysicalPath2 = Server.MapPath("/news/template/article_race2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "life" floating = "life" ElseIf sub_title = "정보" Then strPhysicalPath2 = Server.MapPath("/news/template/article_it2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "life" floating = "life" ElseIf sub_title = "IT" Then strPhysicalPath2 = Server.MapPath("/news/template/article_it2.htm") p = Mid(Trim(strPathInfo), 12, 6) catid = "life" types = "life" floating = "life" End If set objFSO2 = Server.CreateObject("Scripting.FileSystemObject") set objFile2 = objFSO2.GetFile(strPhysicalPath2) set objFileTextStream2 = objFile2.OpenAsTextStream(1, -2) if request("ut") = "1" Then k=0 Do while k < 18 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop %>
<% Do while k < 28 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop %> <% Do while k < 39 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop If sub_title = "스페" Then sub_title = "스페셜" End If '제목 추려내기... i = 0 Do while i < 1 strFileLine = objFileTextStream.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") 'strLine = replace(strLine, """, "'") if i = 0 Then response.Write strLine title = strLine title = replace(title,"", "") title = replace(title,"", "") title = replace(title,"
", "") title_encode = title End If i = i + 1 loop Do while k < 45 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop '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) %> <% 'SNS 연동 끝 Do while k < 46 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop '시간 추려내기... Do while i < 2 strFileLine = objFileTextStream.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") strLine = replace(strLine, "
", "") response.Write strLine i = i + 1 loop Do while k < 53 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop '내용 추려내기... If Mid(strPathInfo,7,1) = "s" Then ' sports일 경우.... c = Mid(strPathInfo,1,37) ElseIf Mid(strPathInfo,7,1) = "e" Then c = Mid(strPathInfo,1,44) Else c = Mid(strPathInfo,1,35) End If flagtag = 0 ii = 0 Do while i < 10000 strFileLine = objFileTextStream.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,img_fileinfo , "http://sports.chosun.com" & img_fileinfo) strLine = replace(strLine,"

", "


") strLine = replace(strLine,b, c) ' 절대링크로 바꾸기... strLine = replace(strLine,">", ">") strLine = replace(strLine, """, chr(34)) strLine = replace(strLine, "굛", "세") ' 루미너스 광고 시작 set tagfree = New Regexp tagfree.Pattern= "]+>" tagfree.Global=true set matches = tagfree.execute(strLine) if (matches.count > 0 AND ii = 0) Then strLine = replace(strLine, "", "") ii = 1 Else End if ' 루미너스 광고 끝 intwhere = InStr(strLine, "") if intwhere > 0 Then i = 9999 End If response.Write strLine i = i + 1 loop Do while k < 63 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop %>
<% Do while k < 75 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop %> <% Do while k < 84 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop Do while k < 91 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop Do while k < 103 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop Do while k < 112 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop Do while k < 140 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop Else End If End If %>