[asp] 특수문자변환

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Function CheckWord(CheckValue)

CheckValue = replace(CheckValue, "&" , "&amp;")

CheckValue = replace(CheckValue, "<", "&lt;")

CheckValue = replace(CheckValue, ">", "&gt;")

CheckValue = replace(CheckValue, "'", "&quot;")

CheckValue = Replace(CheckValue, chr(13), "<br>")

CheckWord = CheckValue

End Function

</Script>

<%

str = "<하나다> dsf<>adsf<>asdf<a>adsf<dfdfdㅇㄹㄴㅇㄹㄴㅇㄹ<a>그리고 넌 무언인가 & ㅋㅋ"

%>

<% strSubject = CheckWord(str) %>

<%=strSubject%>

특수문자	기호	코드값
"	"	"
&	&	&
<	&lt;	&#060;
>	&gt;	&#062;
공백	&nbsp;	&#160;
™	&trade;	&#153;
©	&copy;	&#169;
®	&reg;	&#174;