FpHtmlEnCode 函数之标题过滤特殊符号的代码

函数名：FpHtmlEnCode

作用：标题过滤

参数：fString需要进行过滤的字符串

以下是该函数的具体实现：

```scss

Function FpHtmlEnCode(fString)

' 判断输入的字符串是否为空或者无效

If Not IsNull(fString) And fString <> "" And fString <> "$False$" Then

' 去除HTML标签

fString = nohtml(fString)

' 过滤JavaScript代码

fString = FilterJS(fString)

' 将HTML实体替换为对应字符

fString = Replace(fString, "&nbsp;", " ")

fString = Replace(fString, "&quot;", "")

fString = Replace(fString, "&39;", "")

fString = replace(fString, ">", ">")

fString = replace(fString, "<", "<")

' 去除控制字符并替换为普通空格

fString = Replace(fString, CHR(9), " ") '&nbsp;

fString = Replace(fString, CHR(10), "")

fString = Replace(fString, CHR(13), "")

fString = Replace(fString, CHR(34), "\"")

fString = Replace(fString, CHR(32), " ") 'space

fString = Replace(fString, CHR(39), "")

' 去除连续的换行符和回车符

fString = Replace(fString, CHR(10) & CHR(10), "")

fString = Replace(fString, CHR(10) & CHR(13), "")

' 去除字符串两端的空格并返回处理后的字符串

FpHtmlEnCode = Trim(fString)

Else

' 如果输入的字符串为空或无效，则返回"$False$"

FpHtmlEnCode = "$False$"

End If

End Function

```

调用该函数的方式如下：

```css

cambrian.render('body') = FpHtmlEnCode("需要过滤的字符串")

```

这个函数可以对输入的字符串进行一系列的过滤和替换操作，以确保其符合HTML编码规范，同时去除不必要的控制字符和JavaScript代码。对于无效的输入，函数会返回"$False$"。