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

"==================================================
"函数名：FpHtmlEnCode
"作  用：标题过滤
"参  数：fString ------字符串
"==================================================
Function FpHtmlEnCode（fString）
   If IsNull（fString）=False or fString<>"" or fString<>"$False$" Then
       fString=nohtml（fString）
       fString=FilterJS（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）, ""）
       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）, ""）
       fString=Trim（fString）
       FpHtmlEnCode=fString
   Else
       FpHtmlEnCode="$False$"
   End If
End Function