<%
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)
strPhysicalPath2 = Server.MapPath("/news/template/article_tv2.htm")
p = Mid(Trim(strPathInfo), 21, 6)
catid = "entertainment"
types = "entertainment"
floating = "enter"
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
%>