'================================================== '函数名：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