'==================================================
'函数名：FpHtmlEnCode
'作用：标题过滤
'参数：fString------字符串
'==================================================
FunctionFpHtmlEnCode(fString)
IfIsNull(fString)=FalseorfString<>""orfString<>"$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$"
EndIf
EndFunction