<%
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 = "ＴＶ" 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 = "ＩＴ" 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
%>