The application technique of implementing the function of transforming HTML code under ASP

<%
'******************************
' Function: HTMLEncode (restring)
' Parameters: restring, strings to be encoded for conversion processing
' Author: Arisisi
' Date: 2007/7/15
' Description: Converting HTML code
' Example: HTMLEncode ("<p> Welcome access <br> Arisisi </p>")
'******************************
Function HTMLEncode (restring)
Dim str:str=restring
If not IsNull (STR) Then
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 (Ten), "<br>")
HTMLEncode = Str
End If
End Function

' Reverse-Convert HTML code

Function HtmlDecode (restring)
Dim str:str=restring
If not IsNull (STR) Then
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, "<br>", CHR (10))
HtmlDecode = Str
End If
End Function
%>