티스토리 뷰

웹프로그래밍/ASP Classic

XML Escape/UnEscape

공허공자 2013. 5. 22. 12:00
'// XML Escape
function XmlEscape(strXml)
	If NOT isset(strXml) Then Exit function
	strXml = Replace(strXml, chr(34), """)
	strXml = Replace(strXml, chr(39), "'")
	strXml = Replace(strXml, chr(60), "<")
	strXml = Replace(strXml, chr(62), ">")
	strXml = Replace(strXml, "&", chr(38))
	strXml = Replace(strXml, chr(38), "&")
	XmlEscape = strXml
end function

'// XML UnEscape
function XmlUnEscape(strXml)
	If NOT isset(strXml) Then Exit function
	strXml = Replace(strXml, """, chr(34))
	strXml = Replace(strXml, "'", chr(39))
	strXml = Replace(strXml, "<", chr(60))
	strXml = Replace(strXml, ">", chr(62))
	strXml = Replace(strXml, "&", chr(38))
	XmlUnEscape = strXml
end function

'웹프로그래밍 > ASP Classic' 카테고리의 다른 글

Classic ASP 배열 커스텀 함수들  (0) 2013.05.22
JSON Escape  (0) 2013.05.22
Classic ASP 모바일 브라우저 체크  (2) 2013.05.22
Classic ASP SHA1 암호화  (0) 2013.05.22
Classic ASP UTF-8 파일 읽기, 쓰기  (0) 2013.05.22
댓글