"==========================================================================================================================================================================================================================================
'函数名 ： fPhtmlencode
'作用 ： 标题过滤
'参数 ： fstring ------ 字符串
"==========================================================================================================================================================================================================================================
FunctionFPhtmlencode (FSTRING)
Ifisnull (fstring) = falseorfstring <> "" orfstring <> "$ false $" dann
fstring = nohtml (fstring)
fstring = filterjs (fstring)
fstring = ersetzen (fstring, "", "")
fstring = ersetzen (fstring, "", "")
fstring = ersetzen (fstring, "'", "")
fstring = ersetzen (fstring, ">", "")
fstring = ersetzen (fstring, "<", "")
fstring = ersetzen (fstring, chr (9), "") ''
fstring = ersetzen (fstring, chr (10), "")
fstring = ersetzen (fstring, chr (13), "")
fstring = ersetzen (fstring, chr (34), "")
fstring = ersetzen (fstring, chr (32), "") '' Raum
fstring = ersetzen (fstring, chr (39), "")
fstring = ersetzen (fstring, chr (10) & chr (10), "")
fstring = ersetzen (fstring, chr (10) & chr (13), "")
fstring = trimm (fstring)
FPhtmlencode = fstring
Anders
FPhtmlencode = "$ false $"
Endif
Endfunktion