'==================================================

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