Public Function HTMLEncode (fstring)
If not IsNull (fstring) Then
fstring = replace (fstring, ">", ">")
fstring = replace (fstring, "<", "<")
fstring = Replace (fstring, CHR (32), "")
fstring = Replace (fstring, CHR (), """)
fstring = Replace (fstring, CHR (), "& #39;")
fstring = Replace (fstring, CHR (9), " ")
fstring = Replace (fstring, CHR (13), "")
fstring = Replace (fstring, CHR (a) & CHR (a), "<p></p>")
fstring = Replace (fstring, CHR (), "<br/>")
HTMLEncode = fstring
End If
End Function
'==============================
' Function name: Htmldncode
' Function: Character reversal function
' Argument: Text to be converted Fstring
'==============================
Public Function Htmldncode (fstring)
If not IsNull (fstring) Then
fstring = Replace (fstring, ">", ">")
fstring = Replace (fstring, "<", "<")
fstring = Replace (fstring, "", CHR (32))
fstring = Replace (fstring, " ", CHR (9))
fstring = Replace (fstring, """, CHR (34))
fstring = Replace (fstring, "& #39;", CHR (39))
fstring = Replace (fstring, "", CHR (13))
fstring = Replace (fstring, "<p></p>", CHR (Ten) & CHR (10))
fstring = Replace (fstring, "<br/>", CHR (10))
Htmldncode = fstring
End If
End Function