<%
'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)
%>
<%
'내용 추려내기...
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%>