<%
'*******************************
'기능 : htmlencode (Retring)
'매개 변수 : Retring, 인코딩 할 문자열
'저자 : Alixi
'날짜 : 2007/7/15
'설명 : HTML 코드를 변환합니다
'예 : htmlencode ( "<p> <br> alixi </p>"에 오신 것을 환영합니다)
'*******************************
functionhtmlencode (Retring)
Dimstr : str = Retring
그런 다음 ifnotisnull (str)
str = uncheckstr (str)
str = replace (str, "&", "&")
str = replace (str, ">", ">")
str = replace (str, "<", "<")
str = replace (str, chr (32), "")
str = replace (str, chr (9), "")
str = replace (str, chr (9), "")
str = replace (str, chr (34), "")
str = replace (str, chr (39), " '")
str = replace (str, chr (13), "")
str = replace (str, chr (10), "<br>")
htmlencode = str
endif
최종 기능 장애
'역 변환 HTML 코드
functionhtmldecode (Retring)
Dimstr : str = Retring
그런 다음 ifnotisnull (str)
str = replace (str, "&", "&")
str = replace (str, ">", ">")
str = replace (str, "<", "<")
str = replace (str, "", chr (32))
str = replace (str (str), ", chr (9))
str = replace (str (str), ", chr (9))
str = replace (str, ", chr (34))
str = replace (str, " ', chr (39))
str = replace (str, ", chr (13))
str = replace (str, "<br>", chr (10))
htmldecode = str
endif
최종 기능 장애
%>