复制代码代码如下所示:
函数的HTMLEncode(fstring)
fstring =取代(fstring,;
fstring =取代(fstring,<
fstring =取代(fstring,>
fstring =取代(fstring,
fstring =取代(fstring,,
fstring =取代(fstring,CHR(9),# 9;)
fstring =取代(fstring,CHR(10),)
fstring =取代(fstring,CHR(13),)

fstring =取代(fstring,CHR(32),)
fstring =取代(fstring,CHR(34),双引号
fstring =取代(fstring,CHR(39),)的单引号
fstring =替换文本(fstring,#({ }×0-9);# 1美元;要解决朝鲜文字的问题)
如果issqldatabase = 0然后过滤假名(日文字符){ u30a0 - u30ff } Yuzi first
fstring =逃避(fstring)
fstring =替换文本(fstring,%({ } { U30 A-F 0-F })
fstring = unescape(fstring)
最后如果
HtmlEncode = fstring
端功能