JSON Escape

'===================================================================
' JSON 문자 escape
'------------------------------------------------------------------
' string json_escape(string str)
'===================================================================
Function json_escape(str)
	If NOT isset(str) then
		json_quot = str
		Exit Function
	End If

	'// 특수문자 처리
	str = Replace(str, "\", "\\")
	str = Replace(str, "'", "\'")
	str = Replace(str, """", "\""")

	'// BR 태그 처리
	str = str_replace("
", "\n", str)
	str = str_replace("
", "\n", str)
	str = str_replace("
", "\n", str)

	'// 라인스킵 처리
	str = Replace(str, chr(13)&chr(10), "\n")
	str = Replace(str, chr(13), "\n")
	str = Replace(str, chr(10), "\n")

	json_escape = str
End Function