<%
'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%>