CopyCodeThe Code is as follows: function htmlencode (fstring)
Fstring = Replace (fstring ,";",";")
Fstring = Replace (fstring, "<", "<")
Fstring = Replace (fstring, ">", "> ")
Fstring = Replace (fstring ,"\","\")
Fstring = Replace (fstring ,"--","--")
Fstring = Replace (fstring, CHR (9 ),"")
Fstring = Replace (fstring, CHR (10), "<br> ")
Fstring = Replace (fstring, CHR (13 ),"")
Fstring = Replace (fstring, CHR (22 ),"")
Fstring = Replace (fstring, CHR (32 ),"")
Fstring = Replace (fstring, CHR (34), "") 'Double quotation marks
Fstring = Replace (fstring, CHR (39), "'")' single quotes
Fstring = replacetext (fstring, "([0-9] *);", "$1;") 'solves the Korean character problem
If issqldatabase = 0 then' filter katakana (Japanese character) [\ u30a0-\ u30ff] By yuzi
Fstring = escape (fstring)
Fstring = replacetext (fstring, "% u30 ([A-F] [0-f])", "$1 ;")
Fstring = Unescape (fstring)
End if
Htmlencode = fstring
End Function