<%
'*********************************
'Function: HTMLEncode(reString)
'Parameter: reString, string to be encoded
'Author: Alixi
'Date: 2007/7/15
'Description: Convert HTML code
'Example: HTMLEncode("<p>Welcome to<br>Alixi</p>")
'*********************************
FunctionHTMLEncode(reString)
DimStr:Str=reString
IfNotIsNull(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(10),"<br>")
HTMLEncode=Str
EndIf
EndFunction
'Inverse conversion HTML code
FunctionHTMLDecode(reString)
DimStr:Str=reString
IfNotIsNull(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
EndIf
EndFunction
%>